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 Miér Jun 08, 2011 1:23 pm
Código:
Function Beaufort (A : String; B : String) : String;
{'==============================================================='}
{' AX: Cifrado Beaufort '}
{' Uso: Beaufort('Texto', 'clave') '}
{' Dedicado a Corp-51 '}
{'==============================================================='}

Var D : String;
Var E : String;
Var F : LongInt;
Var G : Integer;
Var H : Integer;
Var I : String;
Begin

If Length(A) = 0 Then Exit;
If Length(B) = 0 Then Exit;

D := Trim(StringReplace(UpperCase(A), ' ', '', [rfReplaceAll]));
E := Trim(StringReplace(UpperCase(B), ' ', '', [rfReplaceAll]));

If Length(E) < Length(D) Then Begin
For F := 1 To Length(D) - Length(E) Do E := E + Copy(E, F, 1);
end;

For F := 1 To Length(D) Do Begin
G := Ord(Copy(D, F, 1)[1]);
H := Ord(Copy(E, F, 1)[1]);
If (H - G) = Abs(H - G) Then I := I + Chr((H - G) + 65) Else I := I + Chr(27 - Abs(H - G) + 65);
end;

Beaufort := I;
end;

Hola a todos...Esta es la función Beaufort (Cifrado Beaufort), que es muy parecido a Vigenère. Su utilización es muy sencilla y cualquier duda coménten!

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.