Delphi Cifrado Zara-128 By AX

[Expermicid]

[lenguaje=delphi]Function Zara(A : Variant; B : Integer): Variant;

{'=============================================================='}

{' Ax: Zara-128 '}

{' Uso: Zara('Texto', 1/2) | Cifrar (1) - Descifrar (2) '}

{'=============================================================='}

Var C : Integer;

Var D : String;

Begin

If Length(A) = 0 Then Exit;

C := 1;

If Not (B = 1) Then If Not (B = 2) Then Exit;

Case B Of

1: For C := 1 To Length(A) Do Begin D := D + IntToStr(Ord(Copy(A, C, 1)[1]) + 312) + ' '; end;

2: While C <= Length(A) Do Begin D := D + Chr(StrToInt(Copy(A, C, 3)) - 312); Inc(C, 4); end;

end;

Zara := D;

End;[/lenguaje]

Autor: AX

Fuente: PitbullSecurity

Saludos :smiley: