---------------------------------------------------------------------------------
// SOLCrack : neoturk_ xxnt03@lycos.co.uk 26/05/04
// Benden CV mi isteyen Zuper0nline Geyiklerine duyrulur!.
// Zuper0nline guide 5. 0 Sifre Cözümü – Programi!
// Y0ung Media crypto ve algoritmalarinizi gözden gecirin
// kullanicilarin güvenligini düsünün! Guide yapmaktan aciz iseniz birakin ben yapayim:]]
// Special thanks to N3oCrYpT0,Porti,The-King [ testers ], phoex...,
// PROGRAM DOWNLOAD : http://www.dogma.home-page.org/
---------------------------------------------------------------------------------
1=,
2=t
3=q
4=y
5='
6=&
7=-
8=t
9=u
10=l
11=+
12=x
s[1]:='%|$!)wv}$%<{';
s[2]:='$}% (vw|%$=z';
s[3]:=';b:?7ihc:;"e';
s[4]:=':c;>6hib;:#d';
s[5]:='9`8=5kja89 g';
s[6]:='8a9<4jk`98!f';
s[7]:='?f>;3mlg>?&a';
s[8]:='>g?:2lmf?>'+chr(39)+'`';//muck
s[9]:='=d<91one<=$c';
s[10]:='s[11]:=' M FGL ?J';s[12]:='ë²êï繸³êëòµ';
s[13]:='ê³ëî渹²ëêó´';
s[14]:='é°èí建±èéğ•';
s[15]:='è±éì亻°éèñ';
s[16]:='ïîëã½¼•îïö±';
s[17]:='î•ïêâ¼½ïî÷°';
s[18]:='í´ìé῾µìíô³';
s[19]:='ìµíè྿´íìõ²';
s[20]:='ãºâçï±°»âãú½';
s[21]:='â»ãæî°±ºãâû¼';
s[22]:='á¸àåí³²¹àáø¿';
s[23]:='à¹áäì²³¸áàù¾';
s[24]:='ç¾æãëµ´¿æçş¹';
s[25]:='æ¿çâê´µ¾çæÿ¸';
s[26]:='å¼äá镽äåü»';
s[27]:='û¢úÿ÷©¨£úûâ¥';
s[28]:='ú£ûşö¨©¢ûúã¤';
s[29]:='ù øıõ«ª¡øùà§';
s[30]:='ø¡ùüôª« ùøá¦';
s[31]:='ÿ¦şûó§şÿæ¡';
s[32]:='ü¥ıø𮯤ıüå¢';
s[33]:='óªò÷ÿ¡ «òóê';
s[34]:='ä½åà蕼åäıº';
s[35]:='ş§ÿúò¦ÿşç ';
s[36]:='ı¤üùñ¯®¥üıä£';
//*** artistik patinaj !...
for m2:=1 to 12 do
begin
x2:='';
for m:=1 to 36 do
begin
x:=s[m];
x2:=x2+x[m2];
end;
solkeys[m2]:=x2;
end;
//******** solkeytable ***********
{
0123456789abcdefghijklmnoprstuvyzqwx
//1 =%$;:98?>=< êéèïîíìãâáàçæåûúùøÿüóäşı
//2 =|?bc`afgdeM³°±•´µº»¸¹¾¿¼¢£ ¡¦¥ª½§¤
//3 =$%:;89>?<= ëèéîïìíâãàáæçäúûøùşıòåÿü
//4 =! ?>=<;:98 îíìëêéèçæåäãâáÿşıüûø÷àúù
//5 =)(76543210 æåäãâáàïîíìëêé÷öõôóğÿèòñ
//6 =wvihkjmlonF¸»º½¼¿¾±°³²µ´•©¨«ª®¡¯
//7 =vwhijklmnoG¹º»¼½¾¿°±²³´µ¨©ª«¯ •®
//8 =?|cba`gfedL²±°•µ´»º¹¸¿¾½£¢¡ §¤«¼¦¥
//9 =$%:;89>?<= ëèéîïìíâãàáæçäúûøùşıòåÿü
//10 =%$;:98?>=< êéèïîíìãâáàçæåûúùøÿüóäşı
//11 =<="# !&'$%?óğñö÷ôõúûøùşÿüâãàáæåêıçä
//12 ={zedgfa`cbJ´•±°³²½¼¿¾¹¸»¥¤§¦¡¢º £
//*** artistik patinaj 2 ********
for m:=1 to 12 do
begin
x:=solkeys[m];
//memo1.lines.add(x);
for n:=1 to 36 do solkeytable[m,n]:=x[n];
end;
//final
end;
function cracksol50:string;
var reg:Tregistry;x,x2:string;sonuc:string;m,n:integer;
//**** crack pass *********
function crackpass(x:string):string;
var sart:boolean;s:string;m,n,n2,m2,sonlandiricino:integer;sonlandiricichar:char;cozulecekpass:string;
posx:integer;c1,c2:char;
begin
s:='';sonlandiricino:=0;sonlandiricichar:='x';
cozulecekpass:=x;
//sonlandırıcıyı bul
n:=length(x);n2:=length(sonlandirici);
sart:=false;
for m:=1 to n do
begin
if sart then break;
for m2:=1 to n2 do
//showmessage(x[m]+'='+sonlandirici[m2]);
if x[m]=sonlandirici[m2] then
begin
sonlandiricino:=m;
sonlandiricichar:=x[m];
sart:=true;
break;
end;
end;
cozulecekpass:=copy(x,1,sonlandiricino-1);
//şifreyi çöz
//form1.memo2.lines.add(inttostr(m)+'='+x+' *** '+cozulecekpass);
for m2:=1 to sonlandiricino-1 do
begin
x:=solkeys[m2];
c2:=cozulecekpass[m2];
posx:=pos(c2,x);
//if posx<=0 then posx:=1;
c1:=solkeytable[m2,posx];
//form1.memo2.lines.add('>>>'+inttostr(m2)+'='+c1+'='+solrootkey[posx]);
s:=s+solrootkey[posx];
end;
//final
result:=s;
end;
begin
sonuc:='';
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
x:='\SOFTWARE\Superonline\SOLGUIDE50\PROFILES';
if reg.OpenKey(x,true) then
begin
sonuc:='Cracked by neoturk'+crlf+crlf;
x:='DefaultSection';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='MailAddress';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='MailClient';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='MailDomain';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='MailPassword';x2:=reg.ReadString(x);x2:=crackpass(x2);sonuc:=sonuc+x+'='+x2+crlf;
x:='MailUser';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='Minute';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='Password';x2:=reg.ReadString(x);x2:=crackpass(x2);sonuc:=sonuc+x+'='+x2+crlf;
x:='POP3';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='SMTP';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='SSMTP';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='UserName';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
x:='Version';x2:=reg.ReadString(x);sonuc:=sonuc+x+'='+x2+crlf;
sonuc:=sonuc+crlf+'Have a nice fun!..';
end
else
begin
sonuc:='Superonline5.0 not found!';
end;
//final
reg.CloseKey;
reg.Free;
result:=sonuc;
end;
procedure TForm1.Button1Click(Sender: TObject);
var m:integer;
begin
memo1.clear;
memo1.lines.add(cracksol50);
//for m:=1 to 12 do memo1.lines.add(inttostr(m)+'='+solkeys[m]);
end;
Programi isteyen herkes: http://www.dogma.home-page.org/
adresinden indirebilir...
neoturk /D0GM4