Там есть зашифрованные строки
Кто-нибудь знает как их можно расшифровать?

Там используется элементарный шифр. Я догадался за 5 минут. Профессионалы сломают в течении секунд наверное. Если кто-то интересуется то продаю и суть шифра, и то как догадаться, и базу E-Mail'ов и Креды тоже. По все вопросам -- форумы на cheat.net.ru/board в разделе Флейм.
Или (если разрешат) здесь.

Ты не мог бы мне посмочь. Там в БД есть такая таблица -- settings. Из нее помжно узнать что кодирование там происходит по RC4. Пытаюсь написать мелкую програмку которая бы выполняла сее кодирование. Но что-то результаты не те что надо:((( В чем здесь может быть ошибка?

type
keyType = record
    state:string;
    x,y:integer;
    end;
const
key:keyType = (state:'HGSDYGDSLWREIUCJD938439402342';x:1;y:1);

a:array[1..1,1..6] of integer =((1,2,3,4,5,6));

var
i,j,k:integer;
ch:char;
begin
writeln;writeln;writeln;writeln;writeln;writeln;
with key do begin
for i:=1 to 6 do
Begin
{RC4}
   x:=(x+1) mod 29;
   y:=(ord(state[key.x])+y) mod 29;
     ch:=state[x];
     state[x]:=state[key.y];
     state[y]:=ch;
   j:=(ord(state[x])+ord(state[y])) mod 29;
   writeln(a[1,i] xor ord(state[j]));

End;
end;
end.

Если кому интересно. Вот код программы расшифровывающий строки из базы данных к Comersus. В этой БД номера кред, а также пароли пользоватлей и администраторов.

автор TsarAlex. По все вопросам посылайте личное сообщение в этом форуме.

const
   strPwd:string='HGSDYGDSLWREIUCJD938439402342';
   a:array[1..2,1..16] of integer =(
(133,177,143,47,147,178,63,91,72,52,123,66,157,220,208,231),
(133,177,143,47,147,178,63,91,72,52,123,66,157,220,208,231)
);
var
   x,y,l,i,j,k:integer;
   sbox,rc4key:array[0..255] of integer;

Procedure Init;
Begin
x:=0; y:=0;
for i:=0 to 255 do
begin
sbox[I]:=i;
rc4key[I]:=ord(strPwd[(i mod length(strPwd))+1]);
end;

k:=0;
for i:=0 to 255 do
 begin
 k:=(k+sbox[I]+rc4key[I]) mod 256;
 j:=sbox[I];
 sbox[I]:=sbox[k];
 sbox[k]:=j;
 end;

End;

begin
writeln;writeln;writeln;writeln;writeln;writeln;

FOR l:=1 to 2 do
    Begin
    Init;
    WriteLn;

for i:=1 to 16 do
Begin
   x:=(x+1) mod 256;
   y:=(y+sbox[x]) mod 256;
   k:=sbox[x];sbox[x]:=sbox[y];sbox[y]:=k;
   j:=(sbox[x]+sbox[y]) mod 256;
   write(chr(a[l,i] xor sbox[j]));
End;

    End;
end.