Параметр Sos uCoz

[Pearl777]

Здравствуйте! Подскажите пожалуйста как парсить скрытый параметр Sos на uCoz. В html коде его, но при регистрации он отсылается (проверял сниффером).

[Pearl777]

Нашел вот такую функцию в html коде

PHP код:

var _y8M=''; function _dS(s){ var i;var r=""; var l=s.length-1; var k=s.substr(l,1); for (i=0;i<l;i++){ c=s.charCodeAt(i)-k;  if(c<32){ c=127-(32-c);} r+=String.fromCharCode(c); } return r;} _y8M=_dS('?lqsxw#w|sh@%klgghq%#qdph@%vrv%#ydoxh@%54:4483855%#2A3');</script> 


На одном сайте читал что это зашифрованый sos параметр, но вот как его расшифровать в delphi не могу понять.

[Человек_Борща]

Функция декодирования.

[Pearl777]

Человек_Борща, Спасибо! Но я уже вроде как сам сделал все. Вопрос неактуален.

[Zergius]

Доброго времени суток!
Pearl777, напишите как решили проблему , пожалуйста.
Тоже зашел в тупик.

[Pearl777]

Сообщение от Zergius

Доброго времени суток!
Pearl777, напишите как решили проблему , пожалуйста.
Тоже зашел в тупик.

Честно говоря я уже и не помню как решил эту проблему. Ну я сейчас попробую набросать код и разобраться с параметром SOS.

[Zergius]

Сообщение от Pearl777

Честно говоря я уже и не помню как решил эту проблему. Ну я сейчас попробую набросать код и разобраться с параметром SOS.

Pearl777, спасибо, уже тоже сам разобрался, перевел PHP-функцию, найденную в интернете:

function DeCodeSos(s:string):string;
var
l,i,c,k:integer;
begin

s:=StringReplace(s, '\', '',[rfReplaceAll, rfIgnoreCase]);

result:='';
l:=length(s);
k:=StrToInt(s[l]);

for i:=1 to l-1 do
begin
c:=ORD(s[i])-k;
result:=result+Char(c);
end;

end;