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 Jue Jul 05, 2012 8:52 pm
Hola a todos.

Despues de haber consultado a algunos usuarios ( entre ellos Metal ) decidi introducirne en Delphi.

Como primer programa traduci el Cifrado Basico que habia hecho en Vb6 a Delphi.

Cifrar:

Código:
function Cifrar( text : string; num : Integer) : string;
  var
    i : Integer;
    aux : string;
  begin
    aux := '';
    for i := 1 to Length(text) do
      begin
        if ord(text[i]) mod 2 = 0 then
          if num mod 2 = 0 then
            aux := aux + chr(ord(text[i]) + num)
          else
            aux := aux + chr(ord(text[i]) - num)
        else
          if num mod 2 = 0 then
            aux := aux + chr(ord(text[i]) - num)
          else
            aux := aux + chr(ord(text[i]) + num)
      end;
      Result := aux;
  end;

Decifrar:

Código:
function Descifrar(text : string; num : Integer) : string;
  var
    i : Integer;
    aux : string;
  begin
    aux := '';
    for i := 1 to Length(text) do
      begin
        if ord(text[i]) mod 2 = 0 then
          aux := aux + chr(ord(text[i]) - num)
        else
          aux := aux + chr(ord(text[i]) + num)
      end;
      Result := aux;
  end;



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.