Encriptación.

[BuenaOnda]

Hola... sabes yo tengo unos componentes super buenos para realizar una encriptacion profesional, si los quieres contactame a mi crreo smith_visual@hotmail.com para poder enviartelos..

[vtdeleon]

Que tal si lo publicas aqui y/o lo compartes(*) con todos?

(*)Siempre que sean componentes libres o tuyos.

[[seoane]]

Prueba con esto:

Código Delphi [-]
function Decrypt(Str, Password: string): string;
var
  i: integer;
  S: string;
begin
  S:= EmptyStr;
  for i:= 1 to Length(Password) do
    S:= S + IntToStr(Ord(Password[i]));
  i:= 0;
  Result:= Emptystr;
  while Length(Str) > 0 do
  begin
    i:= (i mod Length(S)) + 1;
    Result:= Result + Chr(StrToInt('$'+Copy(Str,1,2)) xor Ord(S[i]));
    Delete(Str,1,2);
  end;
end;

// Por ejemplo
ShowMessage(Decrypt('74606A780C0C','c'));

[[egostar]]

Seoane, solo que yo veo un error al traducir el código

en la linea

P$ = P$ & Asc(Mid$(PASSWORD$, i, 1))

Estan convirtiendola así

Código Delphi [-]
 
S:= S + IntToStr(Ord(Password[i]));

Y estan usando una suma en lugar de AND, eso cambia todo el resultado.

Saludos.

[[seoane]]

Empezado por egostar

Y estan usando una suma en lugar de AND, eso cambia todo el resultado.

Creo recordar, de la época en que me toco usar el Vb, que el operador & sirve para concatenar cadenas. Es decir que mi traducción es correcta, para mas información, lee un manual de visual basic

[[egostar]]

Empezado por seoane

lee un manual de visual basic

ok ok, entendido y anotado

Saludos

[BuenaOnda]

Tplockbox.zip:
Your file of 1,01 MB bytes exceeds the forum's limit of 29,3 KB for this filetype.

este errr me apaece al intentar subir los componentes de encriptacion... alguien me puede decir como los puedo subir para compartirlos con todos Uds..??