escribojava

Saludos amigos aqui dejo un codigo de encriptacion basado en arreglos, nos sive para entnder como funciona y luego poder implementar algo de acuerdo a nuestra necesidad, hay muchas funciones que relizan esta labor como lo son XorEncode/XorDecode, RSA o MD claro esta para utilizar algunos de estos es necesario que incluyas sus librerias en tu proyecto . function TControl_Acceso.encriptar(c:string):string; var i,j,tam:integer; s:string; ch:char; begin tam:=length(c); ch:=c[1]; c[1]:=c[tam]; c[tam]:=ch; s:=''; j:=122; for i:=1 to tam do begin if ((i mod 2)<>0) then begin s:=s+chr(j)+c[i]; j:=j-1; s:=s+chr(j); j:=j-1; end else s:=s+c[i]; end; if (tam mod 2 =0) then s:=s+chr(j); encriptar:=s; end; //Para llamar encriptar: //control_acceso.encriptar(pasword.Text); function TControl_Acceso.desencriptar(c:string):string; var i,tam:integer; s:string; ch:char; begin tam:=length(c); s:=''; for i:=2 to tam do begin if

Formulario Transparente con delphi; aca les dejo la funcion implementada en un proyecto, esta la colocan en la parte publica del formulario y listo le cambia las propiedades al formulario. //HAGO EL FORMULARIO TRANSPARENTE// frmRegion := 0; for I := 0 to ControlCount - 1 do begin { create a region for the control } aRect := Controls[i].BoundsRect; { coordinates have to be window-relative, not client area relative } OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top ); tempRegion := CreateRectRgnIndirect( aRect ); { merge the region with the "summary" region we are building } if frmRegion = 0 then frmRegion := tempRegion else begin CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR ); DeleteObject( tempRegion ); end; end; { create a region for the caption and menu bar and add it to the summary } tempregion := CreateRectRgn( 0, 0, Width, GetSyste

Una pagina web en internet representa su imagen empresarial frente al mundo, además de constituirse en una fuente más que interesante para desarrollar negocios. A&S ASESORIAS Y SOLUCIONES INFORMATICAS www.ays-colombia.com presenta un conjunto de soluciones de diseño web, desarrollamos sitios en los lenguajes más populares de internet, de cuidada presentación, rápido tiempo de carga y resultado efectivo en los buscadores, de modo que su página web resulte popular

Imagenes de un modem adsl tipo cableado:     Conexion basica:   C onexion basica a un solo pc: Identificar Problemas en mi Red Interna: Si los Indicadores en su Switch no presentan actividad: puede deberse a una falla sobre el puerto del mismo o de la tarjeta de red del PC, puede probar conectando otro PC en ese mismo puerto.  asi como esta imagen: Si deseas conectar a Internet varios ordenadores o una red local, puedes utilizar tu línea ADSL para hacerlo. En función del número de ordenadores que vayan a compartir simultáneamente la conexión y del tipo de uso que requieras, deberás considerar cual es la gama ASDL más adecuada: 256kbps para 2 ó 3 equipos y 512kbps y 2Mbps para un número superior de equipos conectados y uso más intensivo de ancho de banda. AyS asesorias y soluciones informaticas recomienda utilizar un ROUTER ADSL para la conexión de varios ordenadores o una red local ya que se trata de un equipo de conectividad específico p

Test de velocidad para medir la velocidad de tu ADSL , VDSL o cable. Test de conexión y velocidad de subida y bajada adsl Get the &amp;amp;lt;a href="http://www.widgetbox.com/widget/speed-test"&amp;amp;gt;Speed Test&amp;amp;lt;/a&amp;amp;gt; widget and many other &amp;amp;lt;a href="http://www.widgetbox.com/"&amp;amp;gt;great free widgets&amp;amp;lt;/a&amp;amp;gt; at &amp;amp;lt;a href="http://www.widgetbox.com"&amp;amp;gt;Widgetbox&amp;amp;lt;/a&amp;amp;gt;! Not seeing a widget? (&amp;amp;lt;a href="http://docs.widgetbox.com/using-widgets/installing-widgets/why-cant-i-see-my-widget/"&amp;amp;gt;More info&amp;amp;lt;/a&amp;amp;gt;)