Hackerboard Wiki HaboBlog
Hackerboard bei Facebook Hackerboard bei Google+ Hackerboard bei Twitter

[HaBo]

 
Hacks & Crackmes Tests, Fragen oder Hilfestellungen. Crackmes und Hackits werden hier diskutiert.

Neues Autoit Crackme =)

Diskussion: Neues Autoit Crackme =) im Forum Hacks & Crackmes, in der Kategorie Software Home; Anzeige da mein erstes Crackme ja in unfassbar kurzer zeit geowned wurde, hab ich mir gedacht, ich probier was schwierigeres ...

Antwort
Alt 23.07.07, 10:56   #1 (permalink)
 
Registriert seit: 07.04.06
Huggy Leistung: Facit NTK
Likes: 0
Standard Neues Autoit Crackme =)

Anzeige

da mein erstes Crackme ja in unfassbar kurzer zeit geowned wurde,
hab ich mir gedacht, ich probier was schwierigeres =)

Das Crackme ist gelöst, wenn ihr eine Erfolgsmeldung seht.
Wenn das Crackme nicht gelöst wird, kommt:

nix :D :D



Da es eben Autoit ist , denke ich es wird trotzdem kein problem sein.

Achja, decompilen wird nix bringen *hihi*

Angehängte Dateien
Dateityp: zip Crackit2.zip (240,0 KB, 162x aufgerufen)
Huggy ist offline   Mit Zitat antworten
Alt 23.07.07, 13:30   #2 (permalink)
IsNull
Guest
 
Likes:
Standard

Zitat:
Achja, decompilen wird nix bringen *hihi*
Hast du es mit der NoDecompile Funktion vom AHK Compiler compiliert?
  Mit Zitat antworten
   
HaBOT
 
- Anzeige -

Werbung ist gerade online    
Alt 23.07.07, 14:16   #3 (permalink)
Themenstarter
 
Registriert seit: 07.04.06
Huggy Leistung: Facit NTK
Likes: 0
Standard

Lass mich in frieden mit AHK, ich hasse AHK


aber decompiliers mal, dann wirst du sehen wieso es nicht geht.


obfuscator lässt grüßen *gg*


Und NoDecompile kann man auch decompilern :/
Huggy ist offline   Mit Zitat antworten
Alt 23.07.07, 14:17   #4 (permalink)
 
Registriert seit: 14.06.07
Machine Leistung: Facit NTK
Machine eine Nachricht über ICQ schicken
Likes: 0
Standard

hm... ich glaube es lässt sich wirklich nicht dekompilieren... bin zwar neu auf dem Gebiet "Crackmes", aber ich denke, so einfach ist das nicht, oder?
Kann mir jemand sagen, der ein wenig Ahnung davon hat, ob das n gutes Anfängercrackme ist?

Solche Sachen, mit hardcodiertem Key, etc hab ich schon auf die Reihe bekommen. Tools wie Olly und PEiD hab ich auch.. daran solls nicht scheitern
AutoIt Zeugs hab ich auch alles da, das mach ich öfters mal...
Machine ist offline   Mit Zitat antworten
Alt 23.07.07, 16:19   #5 (permalink)
Themenstarter
 
Registriert seit: 07.04.06
Huggy Leistung: Facit NTK
Likes: 0
Standard

Vll kann ja wer n tutorial schreiben wenn er es geschafft hat =D
Huggy ist offline   Mit Zitat antworten
Alt 23.07.07, 20:32   #6 (permalink)
Member of Honour
 
Benutzerbild von +++ATH0
 
Registriert seit: 02.04.05
+++ATH0 Leistung: K 6-3+++ATH0 Leistung: K 6-3+++ATH0 Leistung: K 6-3
Likes: 76
Standard

Zitat:
Das Crackme ist gelöst, wenn ihr eine Erfolgsmeldung seht.
Meinst du "sieht" oder meinst du "hört"? Oder kannst du da etwas genauer sein mit dem was man sehen soll?
Zum Beispiel nur ein TNA-Icon unten rechts?
+++ATH0 ist offline   Mit Zitat antworten
Alt 23.07.07, 21:09   #7 (permalink)
Themenstarter
 
Registriert seit: 07.04.06
Huggy Leistung: Facit NTK
Likes: 0
Standard

Es kommt ein Tray Ballon :-)



Also unten rechts kommt ein Ballon^^
Huggy ist offline   Mit Zitat antworten
Alt 23.07.07, 21:18   #8 (permalink)
Member of Honour
 
Benutzerbild von +++ATH0
 
Registriert seit: 02.04.05
+++ATH0 Leistung: K 6-3+++ATH0 Leistung: K 6-3+++ATH0 Leistung: K 6-3
Likes: 76
Standard

Hmm   

Hmm, irgendetwas mache ich noch falsch.
Ich bin mir sicher, dass ich den richtigen Code im Clipboard habe, es kommt auch dieses übliche "Plopp!" und das AutoIt Script schliesst sich auch nicht sofort, aber ich sehe keine Infoblase. :(
Habe leider keine Zeit genauer zu schauen woran es liegt.
Für alle die es interessiert, können sie hier gucken, was sie ins Clipboard kopieren müssen:

Code:
0041746A   > \FF15 98914500               CALL NEAR [DWORD DS:<&KERNEL32.CompareStringW>]   ; \CompareStringW
Probiert mal, ob es bei euch klappt. ;)
+++ATH0 ist offline   Mit Zitat antworten
Alt 23.07.07, 21:32   #9 (permalink)
CDW
Moderator
 
Benutzerbild von CDW
 
Registriert seit: 20.07.05
CDW Leistung: OpteronCDW Leistung: OpteronCDW Leistung: OpteronCDW Leistung: OpteronCDW Leistung: OpteronCDW Leistung: Opteron
Likes: 202
Standard

Zitat:
Original von +++ATH0
Hmm   

Hmm, irgendetwas mache ich noch falsch.
Ich bin mir sicher, dass ich den richtigen Code im Clipboard habe, es kommt auch dieses übliche "Plopp!" und das AutoIt Script schliesst sich auch nicht sofort, aber ich sehe keine Infoblase. :(
Habe leider keine Zeit genauer zu schauen woran es liegt.
Für alle die es interessiert, können sie hier gucken, was sie ins Clipboard kopieren müssen:

Code:
0041746A   > \FF15 98914500               CALL NEAR [DWORD DS:<&KERNEL32.CompareStringW>]   ; \CompareStringW
Probiert mal, ob es bei euch klappt. ;)
jep   

klappt gut -> XP SP2
"Stringverschlusselung" rückgängig gemacht oder einfach nur geOllyDebugt?
__________________
Noch mal, für alle Pseudo-Geeks: 1+1=0. -> 10 wäre Überlauf!
Selig, wer nichts zu sagen hat und trotzdem schweigt.
CDW ist offline   Mit Zitat antworten
Alt 23.07.07, 21:34   #10 (permalink)
Member of Honour
 
Benutzerbild von +++ATH0
 
Registriert seit: 02.04.05
+++ATH0 Leistung: K 6-3+++ATH0 Leistung: K 6-3+++ATH0 Leistung: K 6-3
Likes: 76
Standard

ne   

Zitat:
"Stringverschlusselung" rückgängig gemacht oder einfach nur geOllyDebugt?
Einfach nur ollydebuggt. ;)
War glaube ich einfacher in diesem Fall, wenn bei mir die BaloonTips bloss funktionieren würden. :S
+++ATH0 ist offline   Mit Zitat antworten
Alt 23.07.07, 23:37   #11 (permalink)
Themenstarter
 
Registriert seit: 07.04.06
Huggy Leistung: Facit NTK
Likes: 0
Standard

Genial oO


Jetzt bitte noch n keygen, wenn möglich *Gg*


Gibt es auch eine Variante, dass mein key nicht so doof direkt dasteht?

ich könnt noch n paar fiesheiten einbauen, aber kann ich euch irgendwie arbeit machen?

abgesehen von debugger schließen usw *gg*


??neues!! :

Diesmal bisschen komplizierter im Code, hoffe auch komplizierter für euch
Angehängte Dateien
Dateityp: zip Crackit.zip (204,3 KB, 48x aufgerufen)
Huggy ist offline   Mit Zitat antworten
Alt 24.07.07, 00:58   #12 (permalink)
CDW
Moderator
 
Benutzerbild von CDW
 
Registriert seit: 20.07.05
CDW Leistung: OpteronCDW Leistung: OpteronCDW Leistung: OpteronCDW Leistung: OpteronCDW Leistung: OpteronCDW Leistung: Opteron
Likes: 202
Standard

   

je höcher die Sprache, desto weniger Kontrolle über das Endergebis ;)
dieselbe Adresse wie oben gilt auch hier.
Zitat:
Kann mir jemand sagen, der ein wenig Ahnung davon hat, ob das n gutes Anfängercrackme ist?
jein, bei guten WinAPI Kenntnissen oder einiger Erfahrung mit nicht obfcusated Autoit/AHK Skripten sollte es keine größeren Schwierigkeiten bereiten.
Falls man aber die "API Feinheiten" nicht kennt ist es imho für Anfänger ein zu großer Brocken, da hier ein (auf anhieb nicht lesbares) Skript im Interpreter abgearbeitet wird.Der Interpreter muss zwar zur Umsetzung der Funktionen auch auf WinAPIs zurückgreifen, aber ohne genug Erfahrung im Umgang damit wird man doch schnell frustriert sein.
Es besteht jedenflals die Möglichkeit das Script zu dumpen und die Obfocusation mehr oder weniger rückgängig zu machen - das wäre ein guter Punkt um eigene Programmiererskills zu testen . Aber wenn man das noch nie gemacht hat (Autoit/AHK Skripte direkt aus dem Interpretermodul dumpen) wird es schwer aufzufinden sein, da dank der Obfcusation erstmal nicht sofort sieht, was zum Skript gehört.
__________________
Noch mal, für alle Pseudo-Geeks: 1+1=0. -> 10 wäre Überlauf!
Selig, wer nichts zu sagen hat und trotzdem schweigt.
CDW ist offline   Mit Zitat antworten
Alt 24.07.07, 11:09   #13 (permalink)
Themenstarter
 
Registriert seit: 07.04.06
Huggy Leistung: Facit NTK
Likes: 0
Standard

Ja, aber dieses crackme braucht mehrere "gelöste" sachen.


Nur das richtige im Clipboard reicht da nicht

oder vll is das clipboard egal? *hihi*

Mfg


ps: nen Autoit De-obfuscator gibts aber nicht, oder?^^
Huggy ist offline   Mit Zitat antworten
Alt 27.07.07, 09:58   #14 (permalink)
 
Registriert seit: 27.07.07
cw2k Leistung: Facit NTK
Likes: 0
myAutoIT Decompiler *OpenSource* v1.71

Zitat:
ps: nen Autoit De-obfuscator gibts aber nicht, oder?^^
Nun wenns sowas noch nicht gibt, kann man sich ja was basteln.


Ram-tadda-tam.TadaTam
myAutoIT Decompiler *OpenSource* v1.8

Decompiler & Deobfusciert fast all AutoItscripts :]

So ist das Lock-File:
Code:
opening: M:\crackme\Crackit.exe
AlternativeSigScan for 'FILE'-signature in au3-body...
00032847 -> SrcFile_FileInst: >AUTOIT UNICODE SCRIPT<
Seeking back to script start position...
Modified AU3_Signature: A3 48 4B BE 98 6C 4A A9 99 4C 53 0A 86 D6 48 7D   ?HK??lJ??LS
?ÖH}
~ Note:  The following offset values are were the data ends (and not were it starts) ~
Note:  The offset values are were the data ENDs (and not as usual where it BEGINs)
00032818 -> AutoIt Script Found.  - Type2 = EA05
Script is password protected!
00032828 -> Password/MD5PassphraseHash: 19 2A 57 DB 32 65 9B B5 35 D3 34 F1 F8 13 BB 31 
            *W?2e??5Ó4???1
MD5PassphraseHash_ByteSum: 00000780  '+ 22AF' => decryption key!
------------ Processing Body -------------
=== > Processing FILE: #1
0003282C -> ResType: FILE
00032847 -> SrcFile_FileInst: >AUTOIT UNICODE SCRIPT<
00032878 -> CompiledPathName: C:\DOKUME~1\SCHLUM~1\LOKALE~1\Temp\autB04.tmp
00032879 -> IsCompressed: Wahr
0003287D -> ScriptSize Compressed: 00001F4C  Decimal:8012
00032881 -> ScriptSize UnCompressed(not used by aut2exe so far): 0000AC90  Decimal:44176
00032885 -> ADLER32 check value for uncompressed script data: 26E72CE2
00032895 -> FileTime (number of 100-nanosecond intervals since January 1, 1601) 
    pCreationTime:  01C7CD744F46AEE2  23.07.2007 21:56:23 [328]
    pLastWrite   :  01C7CD744F4DD5F0  23.07.2007 21:56:23 [375]
00032895 -> Begin of script data
Decrypting script data...
Calculating ADLER32 checksum from decrypted scriptdata
   OK.
   Calculate ADLER32: 26E72CE2
   CRC from script  : 26E72CE2
JB LZSS Signature:EA05
Compressed scriptdata written to M:\crackme\Crackit.tmp
Expanding script data...
Saving script to "Crackit.au3" at M:\crackme\
Convert from FromUnicode to Accii and write data in textbox
-------------------------------------------------------------------------------
Processing Finished!
000347E9 -> End of script data   FileLen: 000347E9  => Overlay: 00000008
overlaybytes: 41 55 33 21 45 41 30 35   AU3!EA05
===============================================================================
Testing for Scripts that were obfuscate by 'Jos van der Zande AutoIt3 Source Obfuscator v1.0.15 [July 1, 2007]' or 'EncodeIt 2.0'
Trying to DeObfuscate : M:\crackme\Crackit.au3
Okay. Obfucated script loaded and displayed.
Renaming Dims...
Renaming Consts...
Renaming Globals...
Restoring StringNames in ...
FunctionName: Main
  Local strings: 20
FunctionName: A2D00105962
  Local strings: 10
FunctionName: A3300200C47
  Local strings: 18
FunctionName: A4900301A20
  Local strings: 24
FunctionName: A3000405C4D
  Local strings: 81
FunctionName: A5000504438
  Local strings: 5
FunctionName: A4B00602F13
  Local strings: 6
FunctionName: A3E0070100E
  Local strings: 5
FunctionName: A0800806048
  Local strings: 3
FunctionName: A2400901F5C
  Local strings: 2
FunctionName: A1A00A0160D
  Local strings: 0
FunctionName: A2C4558BC5541
  Local strings: 0
FunctionName: A0500002156
  Local strings: 0
FunctionName: A2C4558BC5542
  Local strings: 0
Strings at all: 174
strings in Tbl: 186
UnAssigned/Unused strings [Index, Value]: 
Try to breaks very long lines (about 2000 chars) by adding '_'+<NewLine> ...
Saving Script to: M:\crackme\Crackit_restore.au3
Deobfucation succeed.

Running 'Tidy.exe Crackit_restore.au3' to improve sourcecode readablity.
E:\Programmierung\Projekte\AutToExe\Ver 1.5\Tidy\Tidy.exe "M:\crackme\Crackit_restore.au3"
Tidy.exe ExitCode: 0
===============================================================================

===============================================================
Seperating Includes of : M:\crackme\Crackit_restore.au3
  9421 byte loaded.
C:\Dokumente und Einstellungen\Schlumpfi\Desktop\crackme_old1_Obfuscated.au3	 -> Desktop\Schlumpfi\crackme_old1_Obfuscated.au3
Saving Logdata to : M:\crackme\_myExeToAut.log

Hier der Crackme SourceCode(mit einigen 'Ergänzung' zur Verbesserung der Benutzer-freundlichkeit):
PHP-Code:
; <AUT2EXE VERSION3.2.4.9>
; ----------------------------------------------------------------------------
; <
AUT2EXE INCLUDE-STARTC:Dokumente und EinstellungenSchlumpfiDesktopcrackme_old1_Obfuscated.au3>
; ----------------------------------------------------------------------------

Func Fn0000($Arg00)
    
Local $Var0000$Var0001$Var0002$Var0003$Var0004$Var0005$Var0006
    $Var0001 
StringSplit($Arg00"")
    If 
Mod($Var0001[0], 2) <> 0 Then
        SetError
(1)
        Return -
1
    
EndIf
    For 
$Var0002 1 To $Var0001[0]
        
$Var0005 $Var0001[$Var0002]
        
$Var0002 $Var0002 1
        $Var0006 
$Var0001[$Var0002]
        
$Var0003 Dec($Var0005 $Var0006)
        If @
error <> 0 Then
            SetError
(1)
            Return -
1
        
EndIf
        
$Var0004 Chr($Var0003)
        
$Var0000 $Var0000 $Var0004
    Next
    
Return $Var0000
EndFunc

Func Fn0001
($Arg00$ArgOpt01 = -1$ArgOpt02 = -1)
    If 
$ArgOpt01 = -Or $ArgOpt01 = Default Then $ArgOpt01 ","
    
If $ArgOpt02 = -Or $ArgOpt02 = Default Then $ArgOpt02 "."
    
Local $Var0000 StringSplit($Arg00$ArgOpt02), $Var0001 ''$Var0002$Var0003 False
    
If UBound($Var0000) > 2 Then
        $Var0002 
StringRegExp($Var0000[1], "(\d+)(\d{3})"1)
        
$Var0003 True
    
Else
        
$Var0002 StringRegExp($Arg00"(\d+)(\d{3})"3)
    EndIf
    If 
UBound($Var0002) = 2 Then
        
While IsArray($Var0002)
            
$Var0001 $ArgOpt01 $Var0002[1] & $Var0001
            $Var0002 
StringRegExp($Var0002[0], "(\d+)(\d{3})"3)
        
WEnd
    
EndIf
    
Local $Var0004 StringLen(StringReplace($Var0001$ArgOpt01''))
    If 
$Var0003 And $Var0001 Then
        
Return StringTrimRight($Var0000[1], $Var0004) & $Var0001 $ArgOpt02 $Var0000[2]
    ElseIf 
$Var0001 Then
        
Return StringTrimRight($Arg00$Var0004) & $Var0001
    
EndIf
    Return 
SetError(10$Arg00)
EndFunc 
; So jetzt haben alle gesehen wie Toll das doch als php-code aussieht. Hier muss ich ein einig 'sparen' das es der Server noch rechtzeitig schafft meinen Post zu 'formatieren' bevor er beim Posten am 30 SekundenLimit Abkackt.
; Aber als kleiner Trost, der nach vorangegange und nachfolgende 'Fake'Code ist eh nicht wichtig.
Code:
Func Fn0002($Arg00, $Arg01, $Arg02, $ArgOpt03 = -1, $ArgOpt04 = -1)
	If $ArgOpt04 = -1 Or $ArgOpt04 = Default Then
		If $ArgOpt03 = -1 Or $ArgOpt03 = Default Then
			$ArgOpt03 = 0
		Else
			$ArgOpt03 = 1
		EndIf
		Local $Var0000 = '', $Var0001 = '', $Var0002 = ''
		While StringLen($Arg00) > 0
			$Var0001 = StringInStr($Arg00, $Arg01, $ArgOpt03)
			If Not $Var0001 Then ExitLoop
			$Arg00 = StringTrimLeft($Arg00,($Var0001 + StringLen($Arg01)) - 1)
			$Var0002 = StringInStr($Arg00, $Arg02, $ArgOpt03)
			If Not $Var0002 Then ExitLoop
			$Var0000 &= StringLeft($Arg00, $Var0002 - 1) & Chr(1)
			$Arg00 = StringTrimLeft($Arg00, $Var0002)
		WEnd
		If Not $Var0000 Then Return SetError(1, 0, 0)
		$Var0000 = StringSplit(StringTrimRight($Var0000, 1), Chr(1))
		Local $Arr0003[UBound($Var0000) - 1]
		For $A3440E00A00 = 1 To UBound($Var0000) - 1
			$Arr0003[$A3440E00A00 - 1] = $Var0000[$A3440E00A00]
		Next
		Return $Arr0003
	Else
		If $ArgOpt03 = Default Or $ArgOpt03 = -1 Then
			$ArgOpt03 = "(?i)"
		Else
			$ArgOpt03 = ''
		EndIf
		Local $Var0004 = StringRegExp($Arg00, "(?s)" & $ArgOpt03 & $Arg01 & "(.*?)" & $Arg02, 3)
		If IsArray($Var0004) Then Return $Var0004
		Return SetError(1, 0, 0)
	EndIf
EndFunc

Func Fn0003($Arg00, $Arg01, $Arg02, $ArgOpt03 = 1)
	If $Arg00 <> 0 And $Arg00 <> 1 Then
		SetError(1)
		Return ''
	ElseIf $Arg01 = '' Or $Arg02 = '' Then
		SetError(1)
		Return ''
	Else
		If Number($ArgOpt03) <= 0 Or Int($ArgOpt03) <> $ArgOpt03 Then $ArgOpt03 = 1
		Local $Var0000
		Local $Var0001
		Local $Var0002
		Local $Var0003
		Local $Arr0004[256][2]
		Local $Var0005
		Local $Var0006
		Local $Var0007
		Local $Var0008
		Local $Var0009
		Local $Var000A
		Local $Var000B
		If $Arg00 = 1 Then
			For $A1E70402D1A = 0 To $ArgOpt03 Step 1
				$Var0002 = ''
				$Var0001 = ''
				$Var0000 = ''
				For $Var0002 = 1 To StringLen($Arg01)
					If $Var0001 = StringLen($Arg02) Then
						$Var0001 = 1
					Else
						$Var0001 = $Var0001 + 1
					EndIf
					$Var0000 = $Var0000 & Chr(BitXOR(Asc(StringMid($Arg01, $Var0002, 1)), Asc(StringMid($Arg02, $Var0001, 1)), 255))
				Next
				$Arg01 = $Var0000
				$Var0005 = ''
				$Var0006 = 0
				$Var0007 = ''
				$Var0008 = ''
				$Var0009 = ''
				$Var000B = ''
				$Var000A = ''
				$Var0003 = ''
				$Arr0004 = ''
				Local $Arr0004[256][2]
				For $Var0005 = 0 To 255
					$Arr0004[$Var0005][1] = Asc(StringMid($Arg02, Mod($Var0005, StringLen($Arg02)) + 1, 1))
					$Arr0004[$Var0005][0] = $Var0005
				Next
				For $Var0005 = 0 To 255
					$Var0006 = Mod(($Var0006 + $Arr0004[$Var0005][0] + $Arr0004[$Var0005][1]), 256)
					$Var0003 = $Arr0004[$Var0005][0]
					$Arr0004[$Var0005][0] = $Arr0004[$Var0006][0]
					$Arr0004[$Var0006][0] = $Var0003
				Next
				For $Var0005 = 1 To StringLen($Arg01)
					$Var0007 = Mod(($Var0007 + 1), 256)
					$Var0008 = Mod(($Var0008 + $Arr0004[$Var0007][0]), 256)
					$Var0009 = $Arr0004[Mod(($Arr0004[$Var0007][0] + $Arr0004[$Var0008][0]), 256) ][0]
					$Var000B = BitXOR(Asc(StringMid($Arg01, $Var0005, 1)), $Var0009)
					$Var000A = $Var000A & Hex($Var000B, 2)
				Next
				$Arg01 = $Var000A
			Next
		Else
			For $A1E70402D1A = 0 To $ArgOpt03 Step 1
				$Var0006 = 0
				$Var0007 = ''
				$Var0008 = ''
				$Var0009 = ''
				$Var000B = ''
				$Var000A = ''
				$Var0003 = ''
				$Arr0004 = ''
				Local $Arr0004[256][2]
				For $Var0005 = 0 To 255
					$Arr0004[$Var0005][1] = Asc(StringMid($Arg02, Mod($Var0005, StringLen($Arg02)) + 1, 1))
					$Arr0004[$Var0005][0] = $Var0005
				Next
				For $Var0005 = 0 To 255
					$Var0006 = Mod(($Var0006 + $Arr0004[$Var0005][0] + $Arr0004[$Var0005][1]), 256)
					$Var0003 = $Arr0004[$Var0005][0]
					$Arr0004[$Var0005][0] = $Arr0004[$Var0006][0]
					$Arr0004[$Var0006][0] = $Var0003
				Next
				For $Var0005 = 1 To StringLen($Arg01) Step 2
					$Var0007 = Mod(($Var0007 + 1), 256)
					$Var0008 = Mod(($Var0008 + $Arr0004[$Var0007][0]), 256)
					$Var0009 = $Arr0004[Mod(($Arr0004[$Var0007][0] + $Arr0004[$Var0008][0]), 256) ][0]
					$Var000B = BitXOR(Dec(StringMid($Arg01, $Var0005, 2)), $Var0009)
					$Var000A = $Var000A & Chr($Var000B)
				Next
				$Arg01 = $Var000A
				$Var0002 = ''
				$Var0001 = ''
				$Var0000 = ''
				For $Var0002 = 1 To StringLen($Arg01)
					If $Var0001 = StringLen($Arg02) Then
						$Var0001 = 1
					Else
						$Var0001 = $Var0001 + 1
					EndIf
					$Var0000 = $Var0000 & Chr(BitXOR(Asc(StringMid($Arg01, $Var0002, 1)), Asc(StringMid($Arg02, $Var0001, 1)), 255))
				Next
				$Arg01 = $Var0000
			Next
		EndIf
		Return $Arg01
	EndIf
EndFunc

Func Fn0004($Arg00, $Arg01, $Arg02)
	Local $Var0000, $Var0001, $Var0002
	If $Arg00 = "" Or(Not IsString($Arg00)) Then
		SetError(1)
		Return $Arg00
	ElseIf $Arg01 = "" Or(Not IsString($Arg00)) Then
		SetError(2)
		Return $Arg00
	Else
		$Var0000 = StringLen($Arg00)
		If(Abs($Arg02) > $Var0000) Or(Not IsInt($Arg02)) Then
			SetError(3)
			Return $Arg00
		EndIf
	EndIf
	If $Arg02 = 0 Then
		Return $Arg01 & $Arg00
	ElseIf $Arg02 > 0 Then
		$Var0001 = StringLeft($Arg00, $Arg02)
		$Var0002 = StringRight($Arg00, $Var0000 - $Arg02)
		Return $Var0001 & $Arg01 & $Var0002
	ElseIf $Arg02 < 0 Then
		$Var0001 = StringLeft($Arg00, Abs($Var0000 + $Arg02))
		$Var0002 = StringRight($Arg00, Abs($Arg02))
		Return $Var0001 & $Arg01 & $Var0002
	EndIf
EndFunc

Func Fn0005($Arg00)
	Local $Var0000 = 0
	Local $Var0001 = 1
	Local $Var0002 = ""
	Local $Var0003
	For $Var0000 = 1 To StringLen($Arg00)
		$Var0003 = StringMid($Arg00, $Var0000, 1)
		Select
			Case $Var0001 = 1
				If Fn0009($Var0003) Then
					$Var0003 = StringUpper($Var0003)
					$Var0001 = 0
				EndIf
			Case Not Fn0009($Var0003)
				$Var0001 = 1
			Case Else
				$Var0003 = StringLower($Var0003)
		EndSelect
		$Var0002 = $Var0002 & $Var0003
	Next
	Return($Var0002)
EndFunc

Func Fn0006($Arg00, $Arg01)
	Local $Var0000
	Select
		Case Not StringIsInt($Arg01)
			SetError(1)
			Return ""
		Case StringLen($Arg00) < 1
			SetError(1)
			Return ""
		Case $Arg01 <= 0
			SetError(1)
			Return ""
		Case Else
			For $A54D0E0463F = 1 To $Arg01
				$Var0000 = $Var0000 & $Arg00
			Next
			Return $Var0000
	EndSelect
EndFunc
;So genug gespart, ab hier wird es bedeutsam
PHP-Code:
Func FnStringReverse($Arg00)
    
Local $Var0000
    Local $Var0001
    
If StringLen($Arg00) >= 1 Then
        
For $Var0001 1 To StringLen($Arg00)
            
$Var0000 StringMid($Arg00$Var00011) & $Var0000
        Next
        
Return $Var0000
    
Else
        
SetError(1)
        Return 
""
    
EndIf
EndFunc

Func Fn0008
($Arg00)
    
Local $Var0000$Var0001$Var0002$Var0003$Var0004
    $Var0000 
StringSplit($Arg00"")
    For 
$Var0001 1 To $Var0000[0]
        
$Var0002 Asc($Var0000[$Var0001])
        
$Var0003 Hex($Var00022)
        
$Var0004 $Var0004 $Var0003
    Next
    
Return $Var0004
EndFunc

Func Fn0009
($Arg00)
    
Local $Var0000 "abcdefghijklmnopqrstuvwxyz"
    
Return(StringInStr($Var0000$Arg00))
EndFunc
$IPAddress1 
StringRight(@IPAddress11)
$DesktopHeight4 StringRight(@DesktopHeight4)
$WDAY = @WDAY
$UserName3 
StringLeft(@UserName3)
;
ClipPut("")
ClipPut("<Na da hat wohl einer das Kopieren vergessen ?>")
$PasswordFromClipboard $IPAddress1 $DesktopHeight4 $WDAY $UserName3
$PasswordFromUser 
InputBox("Passwort""Das hochsichere Geheime passwort eingeben!")
$PasswordFromClipboard FnStringReverse($PasswordFromClipboard)
If 
ProcessExists("OLLYDBG.exe"Then
    MsgBox
(0"Debuggen""Debuggen ist böse!" & @CRLF "Das macht mir Angst =( ")
EndIf
If 
ClipGet() <> $PasswordFromClipboard Then
    Sleep
(100)
EndIf
If 
ClipGet() = $PasswordFromClipboard And $PasswordFromUser "Error" Then
    TrayTip
("Richtig!""Richtig!!"5)
    
Sleep(5000)
mein Mutmach Update START >>>
Else    
     
MsgBox(0x10,'Ooooch "' ClipGet() & '" ist leider Falsch <schluchz>'_
    
"Aber nicht Traurig sein, für's nächste Mal weißt du ja jetzt, das du zuerst '" $PasswordFromClipboard _
    
"' eingibst, markierst und kopierst und dann erst ""Error"" eingibst, bevor du auf Okay drückst.")
;<<< 
mein Mutmach Update ENDE
EndIf 
und zum Abschluss noch ganz Wichtig.

-- = == < D E r L i N k > == = --
edit(06.10.07): Link Updated!

Jetzt wo ich gelernt habe das Spoiler nicht nur was für Angeber bzw. deren 'besseres Stück' gut sind, sondern durch aus recht Sinnvoll sein können. Will ich mich hiermit in Nachgang für diesen 50 Meter Post entschuldigen. (Dies natürlich auf die Leute die jeden gefahren Mauskilometer von der Steuer absetzten <grinz> die freun sich jetzt nämlich ganz bestimmt).

...und zu guter letzte die Moral von diesem Post:
"Nie ist ein Spoiler da, wenn man eine braucht."
Angehängte Dateien
Dateityp: zip !myAutToExe1_71_src_977KB_Rip.zip (965,9 KB, 75x aufgerufen)
Dateityp: rar !myAutToExe1_71_src_Rest.rar (382,7 KB, 69x aufgerufen)
cw2k ist offline   Mit Zitat antworten
Alt 27.07.07, 14:15   #15 (permalink)
Themenstarter
 
Registriert seit: 07.04.06
Huggy Leistung: Facit NTK
Likes: 0
Standard

danke cw2k, nachdem du es geschafft hsat das gesamte autoit.de board zum verzweifeln zu bringen , jetzt alle noobs exen decompilieren die NICHT fürs decompilieren gedacht waren, zerstörst du mir noch mein crackme.

Was in deinem wohl kranken hirn vorgeht will ich echt nicht wissen!
Huggy ist offline   Mit Zitat antworten
Antwort
   
- Anzeige -

Werbung ist gerade online    

[HaBo] » Software Home » Hacks & Crackmes » Neues Autoit Crackme =)
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks sind aus
Pingbacks sind aus
Refbacks sind aus


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Neues Crackme by Kaddy Kaddy Hacks & Crackmes 2 30.08.09 11:01
Neues Crackme ReDoX Hacks & Crackmes 5 07.07.08 20:51
Neues Crackme: 011Y 5uxX5 IsNull Hacks & Crackmes 16 07.01.07 16:39
Neues Crackme -solved- sd333221 Hacks & Crackmes 4 27.01.06 07:17
Autoit Crackme -solved CDW/ zweites solved CDW :) sd333221 Hacks & Crackmes 6 06.12.05 18:48


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61