fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Crackme #1

Uploader:	AndT
Datum/Zeit:	16.11.2007 15:29:28

' Complier diesen Code mit FB 0.18.3 und schreibt ein neues Programm(ohne ein Teil dieses Programmcodes) in FB welches dafür sorget das diese Crackme "cracked" ausgibt..

' Programmed by AndT



sub runcheck

dim as ubyte char

dim as ubyte char2

char - = 1

open "runs" for binary as #1

get #1,1,char2

if char2=255 then

    end

else

    get #1,,char

    char = char -1

    put #1,,char

end if

close

end sub

Print "Andt's neues Crackme"

open "crackme.exe" for input as #23

dim as integer bs = lof(23)

close #23

#if (__FB_VERSION__ = "0.18.3")

if bs <> 36352 then end

#else

#print Cheater..

#endif

DIM AS STRING PW2

select case command(1)

case ""

end

case "main"

sleep 1

open "nothing.here" for input as #1

dim as integer t1,t2

input #1,t2

close #1

kill "nothing.here"

t1=INT(TIMER)

if t1=t2 then

PW2=command(2)

dim as string PW = HEX(21380912382519)

runcheck

IF PW = PW2 then Print "cracked" else print "leider nicht :P"

sleep

end if

case else

    open "nothing.here" for output as #1

    print #1,"0000000000000000"

    kill "nothing.here"

end select



close #1

close #2

kill "nothing.here"

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.