Cifrado Basico [By Expermicid]

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;

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;