[HaBo]

enkore · 05.08.08, 14:28

Hi!

Das ist mein allererstes CrackMe :D

Ziel sollte es sein einen Keygen zu schreiben, oder einen richtigen Schlüssel herauszufinden...

Alles ist erlaubt ;)

Die EXE ist von mir komprimiert worden...
Die Programmiersprache ist Freebasic (also nüx mit .NET Reflector...)
Verschlüsselungen wurden KEINE benutzt...

Sonst gibt es keine Infos, nur die Executable...

Viel Spaß beim Cracken :)

/EDIT:
Ein paar Zusatzinformationen:
.Es wird KEIN Password abgefragt
.Die angehängte Datei ist ein funktionsloser container
.Die in der Datei eingebettete Resource ist entscheident!! <-- ganz wichtig
.Der angegebene Dateityp der eingebetteten Resource ist falsch! <-- ebenfalls wichtig

---Noch mehr Infos (das kann doch nicht so schwer sein!?!?!??!)---
.Die eingebettete Resource ist eine kodierte DLL. Nicht verschlüsselt, kodiert. Mit einem sehr verbreiteten Algorithmus zum kodieren von Binärdaten.

NEUE INFOS:
Die DLL ist mit Base64 kodiert... hallelulja kugt auf die Vars' und die Export table !

-----------------------------------------------------------------
Es gibt in der DLL eine Funktion IsValidKey (höhö^^):

Code:

Function IsValidKey(KeyStr As String) As Integer Export
	Dim As Integer ret, ascii
	Dim As String ch
	ascii = Asc(Mid(KeyStr, 5, 1))
	
	If Chr(ascii) = "-" Then
		ascii = 0
		ret = 1
		ascii = Asc(Mid(KeyStr, 10, 1))
		ch = Mid(KeyStr, 10, 1)
		ascii = Asc(ch)
	Else
		Return ret
	EndIf
	
	If Chr(ascii) = "-" Then
		ret = 1
		Return ret
	EndIf
	
	ret = 0
	Return ret
End Function

Dei ist selbstverständlich ein Fake ;)

Der Key leutet nämlich: kkdsjfnFKWAklmasf8913879-afkejfsjdfkalfZalvgaj

Vollständiger Sourcecode:

Code:

Dim Shared As String pws
pws  = Chr(107) + Chr(107) + Chr(100) + Chr(115) + Chr(106) + Chr(102) + Chr(110) + Chr(70) + Chr(75) + Chr(87) 
pws += Chr(65) + Chr(107) + Chr(108) + Chr(109) + Chr(97) + Chr(115) + Chr(102) + Chr(56) + Chr(57) + Chr(49) 
pws += Chr(51) + Chr(56) + Chr(55) + Chr(57) + Chr(45) + Chr(97) + Chr(102) + Chr(107) + Chr(101) + Chr(106) 
pws += Chr(102) + Chr(115) + Chr(106) + Chr(100) + Chr(102) + Chr(107) + Chr(97) + Chr(108) + Chr(102) + Chr(90) 
pws += Chr(97) + Chr(108) + Chr(118) + Chr(103) + Chr(97) + Chr(106) 


Function IsValidKey(KeyStr As String) As Integer Export
	Dim As Integer ret, ascii
	Dim As String ch
	ascii = Asc(Mid(KeyStr, 5, 1))
	
	If Chr(ascii) = "-" Then
		ascii = 0
		ret = 1
		ascii = Asc(Mid(KeyStr, 10, 1))
		ch = Mid(KeyStr, 10, 1)
		ascii = Asc(ch)
	Else
		Return ret
	EndIf
	
	If Chr(ascii) = "-" Then
		ret = 1
		Return ret
	EndIf
	
	ret = 0
	Return ret
End Function

lagalopex · 25.08.08, 01:36

Normalerweise stellt man Crackmes online und das wars.
Man gibt selber keine Lösung oder sowas. Das machen andere, wenn sie es denn gelöst haben.
Und es gibt Leute die auch noch was anderes zu tun haben, oder noch ein paar Crackmes vor sich

Ist keine Seltenheit, wenn es erst nach nem Jahr eine Lösung gibt. Und wenns länger dauert, was solls? Durch deine "Lösung" (welche nichtmal eine ist, aber sie lüftet alle Geheimnisse) wird sich kaum noch wer finden, der sich da ran setzt

Anzeige

- Anzeige -

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
CrackMe die 2. (Unsolved!)	5etH	Hacks & Crackmes	6	20.05.09 15:13
Dreadnought [unsolved]	+++ATH0	Hacks & Crackmes	9	06.08.06 04:32
Ucm 0.1.0 /unsolved	DolphVS	Hacks & Crackmes	5	09.12.05 14:18
Keygenme (last one)-unsolved	sd333221	Hacks & Crackmes	7	05.12.05 08:44

25.08.08, 01:36	#2 (permalink)
lagalopex Registriert seit: 01.11.03 Likes: 0	Normalerweise stellt man Crackmes online und das wars. Man gibt selber keine Lösung oder sowas. Das machen andere, wenn sie es denn gelöst haben. Und es gibt Leute die auch noch was anderes zu tun haben, oder noch ein paar Crackmes vor sich Ist keine Seltenheit, wenn es erst nach nem Jahr eine Lösung gibt. Und wenns länger dauert, was solls? Durch deine "Lösung" (welche nichtmal eine ist, aber sie lüftet alle Geheimnisse) wird sich kaum noch wer finden, der sich da ran setzt

[HaBo]

[UNSOLVED] trotzdem beendet