| Hacks & Crackmes Tests, Fragen oder Hilfestellungen. Crackmes und Hackits werden hier diskutiert. |
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 ...
![]() |
| | #1 (permalink) |
| Registriert seit: 07.04.06 ![]() Likes: 0 | 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* |
| | |
| | #2 (permalink) | |
| Guest Likes: | Zitat:
| |
|
| HaBOT | - Anzeige - |
| |
| | #3 (permalink) |
| Themenstarter Registriert seit: 07.04.06 ![]() Likes: 0 | 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 :/ |
| | |
| | #4 (permalink) |
| 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... | |
| | |
| | #5 (permalink) |
| Themenstarter Registriert seit: 07.04.06 ![]() Likes: 0 | Vll kann ja wer n tutorial schreiben wenn er es geschafft hat =D |
| | |
| | #6 (permalink) | |
| Member of Honour ![]() Registriert seit: 02.04.05 ![]() ![]() ![]() Likes: 76 | Zitat:
![]() Zum Beispiel nur ein TNA-Icon unten rechts? | |
| | |
| | #7 (permalink) |
| Themenstarter Registriert seit: 07.04.06 ![]() Likes: 0 | Es kommt ein Tray Ballon :-) Also unten rechts kommt ein Ballon^^ |
| | |
| | #9 (permalink) | |
| Moderator ![]() Registriert seit: 20.07.05 ![]() ![]() ![]() ![]() ![]() ![]() Likes: 202 | Zitat:
jep
__________________ Noch mal, für alle Pseudo-Geeks: 1+1=0. -> 10 wäre Überlauf! Selig, wer nichts zu sagen hat und trotzdem schweigt. | |
| | |
| | #11 (permalink) |
| Themenstarter Registriert seit: 07.04.06 ![]() Likes: 0 | 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 |
| | |
| | #12 (permalink) | |
| Moderator ![]() Registriert seit: 20.07.05 ![]() ![]() ![]() ![]() ![]() ![]() Likes: 202 | Zitat:
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
__________________ Noch mal, für alle Pseudo-Geeks: 1+1=0. -> 10 wäre Überlauf! Selig, wer nichts zu sagen hat und trotzdem schweigt. | |
| | |
| | #13 (permalink) |
| Themenstarter Registriert seit: 07.04.06 ![]() Likes: 0 | 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?^^ |
| | |
| | #14 (permalink) | |
| Registriert seit: 27.07.07 ![]() Likes: 0 | myAutoIT Decompiler *OpenSource* v1.71 Zitat:
![]() 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: ; 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 PHP-Code: -- = == < 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." | |
| | |
| | #15 (permalink) |
| Themenstarter Registriert seit: 07.04.06 ![]() Likes: 0 | 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! |
| | |
![]() |
| - Anzeige - | |
| |
| Themen-Optionen | |
| Ansicht | |
| |
Ä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 |