Expermicid Posted June 4, 2012 Share Posted June 4, 2012 (edited) [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: Edited February 16, 2014 by Expermicid Link to comment Share on other sites More sharing options...
Recommended Posts