Encriptación.

[Redneck]

Primero que todo les deseo un feliz año nuevo a todos los miembros de la página y los felicito por llevar el sitio de lo mas actualizado posible.

Bien, tengo una funcion que encripta una cadena, pero está en Visual Basic, traté de pasarla a Delphi pero los resultados no fueron los mismos:

Acá la función Visual:

Public Function xDecrypt$(Strg$, PASSWORD$)
Dim b$, s$, i As Long, j As Long
Dim A1 As Long, A2 As Long, A3 As Long, P$ as Long
j = 1
For i = 1 To Len(PASSWORD$)
P$ = P$ & Asc(Mid$(PASSWORD$, i, 1))
Next
For i = 1 To Len(Strg$) Step 2
A1 = Asc(Mid$(P$, j, 1))
j = j + 1: If j > Len(P$) Then j = 1
b$ = Mid$(Strg$, i, 2)
A3 = Val("&H" + b$)
A2 = A1 Xor A3
s$ = s$ + Chr$(A2)
Next
xDecrypt$ = s$
End Function


donde la PASSWORD es 'c' y Strg es 74606A780C0C el resultado debiera ser MYSA55. Logré llegar a esto cuando la pasé a Delphi:

procedure TForm1.Button2Click(Sender: TObject);
var
a1,a2,a3,s,i,j : LongInt;
// a2,a3 : Double;
cadena,pass,p,h,b : String;
// j : Integer;
z,code : INteger;
begin
pass := edit2.Text;
cadena := edit1.Text;
j := 1;
For i := 1 To Length(pass) Do
P := P + IntToStr(Ord(Copy(pass,i,1)[1]));

i:=1;
While i <= Length(cadena) Do
Begin
A1 := Ord(Copy(P,J,1)[1]);
j := j + 1;
If j > Length(P) Then
j := 1;
b := Copy(cadena,i,2);
Val('$H' + b,z,code);
A3 := z;
A2 := A1 Xor A3;
s := s + StrToInt(Chr(A2));
i := i + 2;
end;

edit3.Text := IntToStr(s);

end;


Pero me da como resultado 54 agradezco sus comentarios para poder migrar la función a delphi y funcione bien.

De antemano muchas gracias.

[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