Crack'n'post (PE32)

[xact]

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.html

Spor!

[virusz]

: rst, well done

nu stiu keyword-ul , eventual o sa dau un edit cand aflu

[xact]

You're close !!

PS. si propun ca dupa ce a fost spart, sa se posteze codul-sursa al fiecarui challenge...

[OrIaX]

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
  end
end

cred ca sunt si eu pe drumul cel bun nu?

[xact]

Cu un pas in spatele lui virusz...

[xact]

Indiciu: Keywordul e encriptat cu Caesar cipher.

[virusz]

noise

boon, pun unu facut acuma repede sa nu ma injure careva...

target: keyword

download:

http://rapidshare.com/files/205356919/crackme_v2.exe.html

MD5: 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..

[xact]

Felicitari, virusz!

O sa postez si sursa cand ajung acasa.

[xact]

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.

[Hertz]

Puneti altu ca ma bag si eu cat am timp.

[xact]

Noul crackme :

http://rapidshare.com/files/205681677/crackme_3.exe.html

MD5: 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

[virusz]

done.... keyword: Label2

video: http://rapidshare.com/files/205739033/clip000d0007.7z.html

next:

crackme v4 - download: http://rapidshare.com/files/205768427/crackmev4.exe.html

target: aflati keyword-ul pentru a primi parola...., le postati aici pe forum

bafta

[noidee]

done.... keyword: Label2

video: http://rapidshare.com/files/205739033/clip000d0007.7z.html

next:

crackme v4 - download: http://rapidshare.com/files/205768427/crackmev4.exe.html

target: aflati keyword-ul pentru a primi parola...., le postati aici pe forum

bafta

Parola: JbLDHIr2CZWoE4KqGp52CpamDJ4tE3KrDZWmC30

Keyword: Crackme v4 (easy) - virusz

Edited March 7, 2009 by noidee

[xact]

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?

[noidee]

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

[virusz]

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;
var
comp : string;
begin
comp := GetComputerNetName;
result := length(s)*length(comp);
end;

function x1(s:string):string;
begin
result := inttostr(length(s) + $1420);
end;

function t2(s:string):string;
var
er : integer;
compname : string;
begin
compname := GetComputerNetName;
er := length(s) + $1420;
er := er + t1(s);
er := er * $3E8;
result := inttostr(er);
end;

function generate(s:string):string;
var
comp : string;
tern : string;
sn   : string;
begin
comp   := GetComputerNetName;
tern   := comp+inttostr(t1(s))+ x1(s) + t2(s);
sn     := strtobase64(tern);
if ((ord(sn[length(sn)])) = $20 ) then
result := copy(sn,1,(length(sn)-1))
else
result := sn;
end;
function re(u:string):string;
begin
u:=generate(form1.caption);
 re:=u;
  end;
+
e:string;
begin
e:=generate(form1.caption);
if form1.Caption=(edit1.Text) then
begin
edit2.text := generate(edit1.text);

[noidee]

http://rapidshare.com/files/207272028/crackmev5_2.exe.html

MD5: 5B29C0602AFFF61BB0F0C9F30E0F2B9F

Target: keyword

Hint: Cand o sa il gasiti o sa va afiseze un numar pe ecran

[noidee]

Pun hinturi?

Edited March 11, 2009 by noidee

[xact]

Please do!

[noidee]

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.

[Nytro]

Daca scri parola corect afiseaza "10" ?

[noidee]

Daca scri parola corect afiseaza "10" ?

Da, posteaza parola si video te rog:)

LE: si noul crackme

[Nytro]

Edit:

CrackMe:

http://rapidshare.com/files/208819072/Project1.exe

Edited March 12, 2009 by Nytro

[CyberWolf08]

N-am reusit inca sa aflu keywordul dar cred ca sunt pe aproape(cred)

 MsgBox("Parola corecta, yupyyy", 64, "CrackMe")
var_num6 = -388+12 + 16
var_num4 = 1+1 + 1

Totusi nu prea inteleg algoritmul de generare al parolei...

[Nytro]

Un string array cu codurile ASCII ale caracterelor parolei.