Como inverter essa function?

19/05/2008

1

e ae pessoal,
Como faço para criptografar textos usando esta função?
Só consigo usá-la para descriptografar.
Parece que ela de outra forma, transforma letras, números, símbolos, etc... em somente números, tanto que as strings que eu tenho são somente números e ele descriptografa em letras, simbolos, etc...
Se eu entrar com letras para criptografar com essa function abaixo ele gera um erro.

Dêem uma analisada:
_______________________________________________________

 

var 
  Yoa  : String = ´*[+*/$SYHDUS-854231$\*+]´;

...

function DesCript(Src : String) : String;
var
  KLen    : integer;
  KPos    : integer;
  setG    : integer;
  dest      : String;
  SPos    : integer;
  SAsc    : integer;
  TmSAsc : integer;
begin
  dest := ´´;
  KLen := Length(Yoa);
  KPos := 0;
  SPos := 0;
  SAsc := 0;
 
 setG := StrToInt(´$´+ copy(src,1,2));
  SPos := 3;
  repeat
    SAsc := StrToInt(´$´+ copy(src,SPos,2));
    if KPos < KLen then
      KPos := KPos + 1
    else
      KPos := 1;
 
    TmSAsc := SAsc xor Ord(Yoa[KPos]);
 
    if TmSAsc <= setG then
      TmSAsc := 255 + TmSAsc - setG
    else
      TmSAsc := TmSAsc - setG;
 
    dest := dest + chr(TmSAsc);
    setG := SAsc;
    SPos := SPos + 2;
  until SPos >= Length(Src);
 
  DesCript := dest;
end;



Aguardo, estou precisando muito.

Blz.


Responder

Posts

19/05/2008

Onjahyr

Só para se ter uma idéia. Se colocar esta string criptografada:

´D83FF071F54E4AE10D3AE477CAD470EC508BCA0FA755E36694E916A23C4493AF7EAF5AEC1DAC2AA83E9FCD0B5E9929BCB731FF58505FF5082D220026C96EE27DC41FB72C84FA318E55EF0E60A832B37FAA91B071B7F40B´

(Sem aspas)

com a function acima, descriptografa e fica assim (também sem aspas):

´<link href=´/siwinstatic/css/siwin_adesao_login.css´ rel=´stylesheet´ type=´text/css´>´

Agora, como seria para criar a criptografia, como inverter a function para criptografar?

Alguém por favor poderia analisar???


Responder

19/05/2008

Onjahyr

Acima lê-se sem aspas no início e no final da string


Responder

20/05/2008

Onjahyr

up :wink:


Responder

21/05/2008

Onjahyr

sobe


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira