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.]

avatar
Usuario
Usuario

Ver perfil de usuario
el Lun Jun 04, 2012 2:24 pm
Hola a todos.

Aqui les dejo este algoritmo.
Autor: Metal_Kingdom

Encriptar:

Código:
function EncROTn(Cadena: string; NumRot: integer): string;
var
i: integer;
begin
for i:= 1 to length(Cadena) do
Result:= Result + chr(ord(Cadena[i]) + NumRot mod 256);
end;

Desencriptar:

Código:
function DecROTn(Cadena: string; NumRot: integer): string;
var
i: integer;
begin
for i:= 1 to length(Cadena) do
Result:= Result + chr(ord(Cadena[i]) + (256 - NumRot) mod 256);
end;

Ejemplo de cada una:

Código:
Showmessage(EncROTn('putón', 12)); //muestra un msgbox con la string 'putón' encriptada con rot12 = |€ÿz
Showmessage(DecROTn('|€ÿz', 12)); //muestra un msgbox con la string '|€ÿz' desencriptada con rot12 = putón

Creditos: Slek

Saludos

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

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