bu kodu cozebilecek arkadaslar varmı ???
22
●2.176
- 24-10-2008, 00:13:22Kimlik doğrulama veya yönetimden onay bekliyor.
- 24-10-2008, 11:47:36Üyeliği durdurulduŞüpheliyim ki size ait olmayan bir şeye ulaşmaya çalışıyorsunuz.
Bu yüzden bu forumda tamamen böyle bir metnin decrypt edilmesi yanlış olur.
<SCRIPT language=JavaScript>eval(unescape("%66%75%6e%63%74%69%6f%6e%20%52%72%52%72%52%72%52%72%28%74%65%61%61%62%62%29%20%7b%76%61%72%20%74%74%74%6d%6d%6d%3d%22%22%3b%6c%3d%74%65%61%61%62%62%2e%6c%65%6e%67%74%68%3b%77%77%77%3d%68%68%68%68%66%66%66%66%3d%4d%61%74%68%2e%72%6f%75%6e%64%28%6c%2f%32%29%3b%69%66%28%6c%3c%32%2a%77%77%77%29%09%68%68%68%68%66%66%66%66%3d%68%68%68%68%66%66%66%66%2d%31%3b%66%6f%72%28%69%3d%30%3b%69%3c%68%68%68%68%66%66%66%66%3b%69%2b%2b%29%74%74%74%6d%6d%6d%20%3d%20%74%74%74%6d%6d%6d%20%2b%20%74%65%61%61%62%62%2e%63%68%61%72%41%74%28%69%29%2b%20%74%65%61%61%62%62%2e%63%68%61%72%41%74%28%69%2b%68%68%68%68%66%66%66%66%29%3b%69%66%28%6c%3c%32%2a%77%77%77%29%20%74%74%74%6d%6d%6d%20%3d%20%74%74%74%6d%6d%6d%20%2b%20%74%65%61%61%62%62%2e%63%68%61%72%41%74%28%6c%2d%31%29%3b%64%6f%63%75%6d%65%6e%74%2e%77%72%69%74%65%28%74%74%74%6d%6d%6d%29%3b%7d%3b"));</SCRIPT>{$APPTYPE CONSOLE} uses SysUtils, Classes, StrUtils; var TS: TStrings; FS: TStream; S, A: string; P: Integer; B: Char; begin TS := TStringList.Create; ---------------- ----------- ------------- ------------- end; FS.Free; end.
----------------------------------------
function RrRrRrRr için;
function PreProcess(const S: string): string; var i: Integer; begin Result := ''; i := 1; while i<=Length(S) do begin if S[i] = '\' then begin case S[i+1] of --------------- ---------- ----------- end; Inc(i); end else Result := Result + S[i]; Inc(i); end; end; - 24-10-2008, 18:58:26Üyeliği durdurulduSize özel ASP ile bu tür bir script yazabiliriz.Scriptin tüm haklarını size veririz.İster kullanırsınız isterseniz 100 kişiye satarsınız.Eğer ilgilenirseniz 200ytl.
