domingo, 1 de dezembro de 2013

Função que efetua criptografia no texto


function crypt(texto : string):string;
var
  i, e, cri, sen, sen1, let : integer;
                        ret : string;
begin
   e   := 1;
   ret := '';

   for i := 1 to length(trim(texto))  do
   begin
     sen1 := ord(senh_[e]);

      if sen1 < 167 then
         sen := sen1 + 167
      else
         sen := sen1;

      let := ord(texto[i]);
      cri := sen - let ;
      ret := ret + chr(cri);

      if e > length(senh_) then
         e := 1;
   end;

   Result := ret;
end;

Nenhum comentário:

Postar um comentário