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