Tu comunidad de Seguridad Informatica

Para ver Todo el contenido del foro es necesario estar Registrado!
Antes de comentar o Aportar es Obligado Leer Las: Reglas | Rules
Ya Esta Disponible al publico "LeProject" el Videojuego del Foro Click Aquí Para Ver el Post.
Pitbull Security Labs "Extras" Esta Disponible! [ENTRA]

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1AX 

avatar
Moderadores
Moderadores

Ver perfil de usuario
el Jue Jun 09, 2011 2:36 pm
Código:
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;

Saludos.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Temas similares

-

» mensaje cifrado

Permisos de este foro:
No puedes responder a temas en este foro.