Descriptografia

[billywillis 0]

Preciso descriptografar um BD, tenho o código de Uncript mas não faço idéia de onde colocar, estou usando o Mysql 5.0. e PMA 3.2.0

 

eis o código:

 

Function UnCript(Dado : String) : String;
var
  x, y, pos : Integer;
  carac : String;
Begin
  sAlfaCripto := 'àåçêëèïîìÄÅÉæÆôöòûùÿÖÜø£Ø׃áíóúñѪº¿®¬½¼¡«»²³¹·¨°¸÷§¶¾_±­´¯ÝýÙÛÚÞþµÕõÒÔßÓ̦ÏÎÍÈËÊÐð¤äâéüÇ~àåçêëèïîìÄÅÉæÆôöòûùÿÖÜø£Ø׃áíóúñѪº¿®¬½¼¡«»²³¹·¨°¸÷§¶¾_±­´¯ÝýÙÛÚÞþµÕõÒÔßÓ̦ÏÎÍÈËÊÐð¤äâéüÇ~';
  sAlfa       := ' ABCDEFGHIJKLMNOPQRSTUWVXYZ1234567890ÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÃÕÜabcdefghijklmnopqrstuvxwyzáàãâéèêíìîóòöôõúùüûç';
  result := '';
  for x := 1 to length(dado) do
  Begin
    carac := copy(dado,x,1);
    pos := 0;
    for y := 1 to length(sAlfaCripto) do
    Begin
      if carac = Copy(sAlfaCripto,y,1) then
      begin
        pos := y;
        Break;
      end;
    end;
    result := result + Copy(sAlfa,pos,1);
  end;
end;

[Dee 0]

Isso é Delphi ?

[billywillis 0]

Isso é Delphi ?

 

nao faço ideia, tem uns elementos de delphi sim, mas nunca estudei delphi nem pascal a fundo..

[quintelab 91]

Descriptografar um BD? Como ele foi criptografado?

 

Abraços...