Descriptografia

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;

 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;