xact Posted February 27, 2009 Report Share Posted February 27, 2009 Propun o competitie de tip "castiga si propune" in care cel ce rezolva challenge-ul, va propune un alt crackme. Regulile ar fi urmatoarele:- fara packere;- fara SFX-uri;- se pot folosi orice metode pentru atingerea targetului - decompilare/dezasamblare/editare in notepad . Targetul trebuie specificat de cel ce propune challenge-ul (aflare parola, crack-uire, printscreen al mesajului, etc)- cine castiga, propune urmatorul crackme;- in cazul in care dupa 4 zile nu reuseste nimeni sa sparga executabilul, va posta un indiciu; dupa alte 3 va mai posta un indiciu, dupa alte 2 un altul, dupa 1 zi un altul si dupa alte 24 de ore - solutia si inca un crackme, dar de o dificultate mult mai redusa decat precedentul. Dat fiind cele de mai sus, propun eu primul crack, facut in delphi 7. Target: aflarea keyword-ului.http://www.4shared.com/file/90044078/75cdb63c/crackme_v1.htmlSpor! Quote Link to comment Share on other sites More sharing options...
virusz Posted February 28, 2009 Report Share Posted February 28, 2009 : rst, well donenu stiu keyword-ul , eventual o sa dau un edit cand aflu Quote Link to comment Share on other sites More sharing options...
xact Posted February 28, 2009 Author Report Share Posted February 28, 2009 You're close !!PS. si propun ca dupa ce a fost spart, sa se posteze codul-sursa al fiecarui challenge... Quote Link to comment Share on other sites More sharing options...
OrIaX Posted March 1, 2009 Report Share Posted March 1, 2009 object Form1: TForm1 Left = 411 Top = 388 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Crackme (xact)' ClientHeight = 112 ClientWidth = 388 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 16 Width = 71 Height = 13 Caption = 'Enter keyword:' end object Edit1: TEdit Left = 16 Top = 40 Width = 249 Height = 21 TabOrder = 0 end object Button1: TButton Left = 288 Top = 40 Width = 75 Height = 25 Caption = '&OK' TabOrder = 1 OnClick = Button1Click endendcred ca sunt si eu pe drumul cel bun nu? Quote Link to comment Share on other sites More sharing options...
xact Posted March 1, 2009 Author Report Share Posted March 1, 2009 Cu un pas in spatele lui virusz... Quote Link to comment Share on other sites More sharing options...
xact Posted March 3, 2009 Author Report Share Posted March 3, 2009 Indiciu: Keywordul e encriptat cu Caesar cipher. Quote Link to comment Share on other sites More sharing options...
virusz Posted March 3, 2009 Report Share Posted March 3, 2009 noise boon, pun unu facut acuma repede sa nu ma injure careva...target: keyworddownload:http://rapidshare.com/files/205356919/crackme_v2.exe.htmlMD5: 65B6B1915266EE432D6405D12A69060D xact poti pune sursa?propun sa se faca cate un video cum s-a rezolvat fiecare crack-me.. ca si asa nu mai se mai baga aproape nimeni la ele si macar poate vede ceva ala care incearca.... plm.. 1 Quote Link to comment Share on other sites More sharing options...
xact Posted March 4, 2009 Author Report Share Posted March 4, 2009 Felicitari, virusz! O sa postez si sursa cand ajung acasa. Quote Link to comment Share on other sites More sharing options...
xact Posted March 4, 2009 Author Report Share Posted March 4, 2009 Keyword: zgomot mareeeee....Momentan n-am timp sa fac filmulet, doar un screenshot:O sa revin diseara cu un nou crackme si codul sursa la precedentul. Quote Link to comment Share on other sites More sharing options...
Hertz Posted March 4, 2009 Report Share Posted March 4, 2009 Puneti altu ca ma bag si eu cat am timp. Quote Link to comment Share on other sites More sharing options...
xact Posted March 4, 2009 Author Report Share Posted March 4, 2009 Noul crackme :http://rapidshare.com/files/205681677/crackme_3.exe.htmlMD5: AE605569BF6D1537238611B04B41FA56 Target: keyword.Codul sursa la precedentul:function xc(a:string):string;var i:integer;s2:string;begin s2:=''; for i:=1 to length(a) do s2:=s2+chr(ord(a[i])+2); xc:=s2;end;function xx(a:string):string;var i:integer;s2:string;begin s2:=''; for i:=1 to length(a) do s2:=s2+chr(ord(a[i])-5); xx:=s2;end;procedure TForm1.Button1Click(Sender: TObject);begin if xc(edit1.Text) = 'pqkug' then begin showmessage(xx('wxy1%|jqq%itsj')); edit1.Text:=edit1.Text + ': ' + xx('wxy1%|jqq%itsj'); end else edit1.Clear;end;Spor la cracuit! LE. Cum am aflat keyword-ul la precedentul (video): http://rapidshare.com/files/205713139/rst1.avi.html Quote Link to comment Share on other sites More sharing options...
virusz Posted March 4, 2009 Report Share Posted March 4, 2009 done.... keyword: Label2video: http://rapidshare.com/files/205739033/clip000d0007.7z.htmlnext:crackme v4 - download: http://rapidshare.com/files/205768427/crackmev4.exe.htmltarget: aflati keyword-ul pentru a primi parola...., le postati aici pe forumbafta Quote Link to comment Share on other sites More sharing options...
noidee Posted March 7, 2009 Report Share Posted March 7, 2009 (edited) done.... keyword: Label2video: http://rapidshare.com/files/205739033/clip000d0007.7z.htmlnext:crackme v4 - download: http://rapidshare.com/files/205768427/crackmev4.exe.htmltarget: aflati keyword-ul pentru a primi parola...., le postati aici pe forumbafta Parola: JbLDHIr2CZWoE4KqGp52CpamDJ4tE3KrDZWmC30Keyword: Crackme v4 (easy) - virusz Edited March 7, 2009 by noidee 1 Quote Link to comment Share on other sites More sharing options...
xact Posted March 7, 2009 Author Report Share Posted March 7, 2009 Is bhut! Am incercat keyword-ul, n-a mers. Probabil omisesem un spatiu acolo... Ma duc la culcare pana nu ma trimite cineva...Noidee, felicitari ! ...si asteptam un nou crackme. Virusz... un cod sursa, ceva? Quote Link to comment Share on other sites More sharing options...
noidee Posted March 8, 2009 Report Share Posted March 8, 2009 Is bhut! Am incercat keyword-ul, n-a mers. Probabil omisesem un spatiu acolo... Ma duc la culcare pana nu ma trimite cineva...Noidee, felicitari ! ...si asteptam un nou crackme. Virusz... un cod sursa, ceva? Maine (azi) il pun Quote Link to comment Share on other sites More sharing options...
virusz Posted March 8, 2009 Report Share Posted March 8, 2009 e..da, scuze ,src:function GetComputerNetName: string;var buffer: array[0..255] of char; size: dword;begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := ''end;function t1(s:string):integer;varcomp : string;begincomp := GetComputerNetName;result := length(s)*length(comp);end;function x1(s:string):string;beginresult := inttostr(length(s) + $1420);end;function t2(s:string):string;varer : integer;compname : string;begincompname := GetComputerNetName;er := length(s) + $1420;er := er + t1(s);er := er * $3E8;result := inttostr(er);end;function generate(s:string):string;varcomp : string;tern : string;sn : string;begincomp := GetComputerNetName;tern := comp+inttostr(t1(s))+ x1(s) + t2(s);sn := strtobase64(tern);if ((ord(sn[length(sn)])) = $20 ) thenresult := copy(sn,1,(length(sn)-1))elseresult := sn;end;function re(u:string):string;beginu:=generate(form1.caption); re:=u; end;+e:string;begine:=generate(form1.caption);if form1.Caption=(edit1.Text) thenbeginedit2.text := generate(edit1.text); Quote Link to comment Share on other sites More sharing options...
noidee Posted March 8, 2009 Report Share Posted March 8, 2009 http://rapidshare.com/files/207272028/crackmev5_2.exe.htmlMD5: 5B29C0602AFFF61BB0F0C9F30E0F2B9FTarget: keywordHint: Cand o sa il gasiti o sa va afiseze un numar pe ecran Quote Link to comment Share on other sites More sharing options...
noidee Posted March 11, 2009 Report Share Posted March 11, 2009 (edited) Pun hinturi? Edited March 11, 2009 by noidee Quote Link to comment Share on other sites More sharing options...
xact Posted March 11, 2009 Author Report Share Posted March 11, 2009 Please do! Quote Link to comment Share on other sites More sharing options...
noidee Posted March 11, 2009 Report Share Posted March 11, 2009 Please do! Programul e scris in C si compilat cu Borland. Keyword-ul este memorat intr-un vector.Fiecare element al acestuia contine codul ascii (hexazecimal) al cate unui caracter din keyword. Quote Link to comment Share on other sites More sharing options...
Nytro Posted March 12, 2009 Report Share Posted March 12, 2009 Daca scri parola corect afiseaza "10" ? Quote Link to comment Share on other sites More sharing options...
noidee Posted March 12, 2009 Report Share Posted March 12, 2009 Daca scri parola corect afiseaza "10" ?Da, posteaza parola si video te rog:)LE: si noul crackme Quote Link to comment Share on other sites More sharing options...
Nytro Posted March 12, 2009 Report Share Posted March 12, 2009 (edited) Edit:CrackMe: http://rapidshare.com/files/208819072/Project1.exe Edited March 12, 2009 by Nytro Quote Link to comment Share on other sites More sharing options...
CyberWolf08 Posted March 12, 2009 Report Share Posted March 12, 2009 N-am reusit inca sa aflu keywordul dar cred ca sunt pe aproape(cred) MsgBox("Parola corecta, yupyyy", 64, "CrackMe")var_num6 = -388+12 + 16var_num4 = 1+1 + 1Totusi nu prea inteleg algoritmul de generare al parolei... Quote Link to comment Share on other sites More sharing options...
Nytro Posted March 12, 2009 Report Share Posted March 12, 2009 Un string array cu codurile ASCII ale caracterelor parolei. 1 Quote Link to comment Share on other sites More sharing options...