Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Złam Nasze Crackme!

Osama

Rekomendowane odpowiedzi

metin1998 Uczeń

metin1998

Opublikowano
Uczeń

metin1998

Opublikowano

wow mam jakieś paranormalne bugi... ta exeka jakas zbugowana, dzisiaj jeszcze raz uzylem tej samej kompilacji au3protectora i wszystko działa ( nie zdekompilujesz tak łatwo)

 

Masz teraz z innym hasłem żebyś mógł sie pobawić : http://www.multiupload.nl/S9PS9N3G9U

 

(to bedzie wymagało skilla a nie tylko przyciśnięcia "Decompile" ;p Wszystko dzieki mojemu au3protectorwoi. Mozesz go ściągnać, linki w dziale autoit)

Pisze boty do gier WWW na zlecenie.

  • Odpowiedzi 241
  • Dodano
  • Ostatniej odpowiedzi
IBBT Uczeń

IBBT

Opublikowano
Uczeń

IBBT

Opublikowano

Nikt tego nie zrobił jesteś pewny że działa?

Zdaje się że w tych wszystkich "szyfrowaniach" się coś pogubiło...

 

 

wyciagnąłem z tego kod (nie wrzucam całego, to by chyba było niegrzeczne:P):

 

Func _crypt_startup()
If __crypt_refcount() = 0
Local $hadvapi32 = DllOpen("Advapi32.dll")
If @errorReturn SetError(1, 0, False)
__crypt_dllhandleset($hadvapi32)
Local $aret
Local $iproviderid = $prov_rsa_aes
If @OSVersion = "WIN_2000"$iproviderid = $prov_rsa_full
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptAcquireContext", "handle*", 0, "ptr", 0, "ptr", 0, "dword", $iproviderid, "dword", $crypt_verifycontext)
If @errorNOT $aret[0]
DllClose(__crypt_dllhandle())
Return SetError(2, 0, False)
Else
__crypt_contextset($aret[1])
EndIf
EndIf
__crypt_refcountinc()
Return True
EndFunc

Func _crypt_shutdown()
__crypt_refcountdec()
If __crypt_refcount() = 0
DllCall(__crypt_dllhandle(), "bool", "CryptReleaseContext", "handle", __crypt_context(), "dword", 0)
DllClose(__crypt_dllhandle())
EndIf
EndFunc

Func _crypt_derivekey($vpassword, $ialg_id, $ihash_alg_id = $calg_md5)
Local $aret
Local $hcrypthash
Local $hbuff
Local $ierror
Local $vreturn
_crypt_startup()
Do
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptCreateHash", "handle", __crypt_context(), "uint", $ihash_alg_id, "ptr", 0, "dword", 0, "handle*", 0)
If @errorNOT $aret[0]
$ierror = 1
$vreturn = -1
ExitLoop
EndIf
$hcrypthash = $aret[5]
$hbuff = DllStructCreate("byte[" & BinaryLen($vpassword) & "]")
DllStructSetData($hbuff, 1, $vpassword)
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptHashData", "handle", $hcrypthash, "struct*", $hbuff, "dword", DllStructGetSize($hbuff), "dword", $crypt_userdata)
If @errorNOT $aret[0]
$ierror = 2
$vreturn = -1
ExitLoop
EndIf
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptDeriveKey", "handle", __crypt_context(), "uint", $ialg_id, "handle", $hcrypthash, "dword", $crypt_exportable, "handle*", 0)
If @errorNOT $aret[0]
$ierror = 3
$vreturn = -1
ExitLoop
EndIf
$ierror = 0
$vreturn = $aret[5]
Until True
If $hcrypthash <> 0DllCall(__crypt_dllhandle(), "bool", "CryptDestroyHash", "handle", $hcrypthash)
Return SetError($ierror, 0, $vreturn)
EndFunc

Func _crypt_destroykey($hcryptkey)
Local $aret = DllCall(__crypt_dllhandle(), "bool", "CryptDestroyKey", "handle", $hcryptkey)
Local $nerror = @error
_crypt_shutdown()
If $nerrorNOT $aret[0]
Return SetError(1, 0, False)
Else
Return SetError(0, 0, True)
EndIf
EndFunc

Func _crypt_encryptdata($vdata, $vcryptkey, $ialg_id, $ffinal = True)
Local $hbuff
Local $ierror
Local $vreturn
Local $reqbuffsize
Local $aret
_crypt_startup()
Do
If $ialg_id <> $calg_userkey
$vcryptkey = _crypt_derivekey($vcryptkey, $ialg_id)
If @error
$ierror = 1
$vreturn = -1
ExitLoop
EndIf
EndIf
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptEncrypt", "handle", $vcryptkey, "handle", 0, "bool", $ffinal, "dword", 0, "ptr", 0, "dword*", BinaryLen($vdata), "dword", 0)
If @errorNOT $aret[0]
$ierror = 2
$vreturn = -1
ExitLoop
EndIf
$reqbuffsize = $aret[6]
$hbuff = DllStructCreate("byte[" & $reqbuffsize & "]")
DllStructSetData($hbuff, 1, $vdata)
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptEncrypt", "handle", $vcryptkey, "handle", 0, "bool", $ffinal, "dword", 0, "struct*", $hbuff, "dword*", BinaryLen($vdata), "dword", DllStructGetSize($hbuff))
If @errorNOT $aret[0]
$ierror = 3
$vreturn = -1
ExitLoop
EndIf
$ierror = 0
$vreturn = DllStructGetData($hbuff, 1)
Until True
If $ialg_id <> $calg_userkey_crypt_destroykey($vcryptkey)
_crypt_shutdown()
Return SetError($ierror, 0, $vreturn)
EndFunc

Func _crypt_decryptdata($vdata, $vcryptkey, $ialg_id, $ffinal = True)
Local $hbuff
Local $ierror
Local $vreturn
Local $htempstruct
Local $iplaintextsize
Local $aret
_crypt_startup()
Do
If $ialg_id <> $calg_userkey
$vcryptkey = _crypt_derivekey($vcryptkey, $ialg_id)
If @error
$ierror = 1
$vreturn = -1
ExitLoop
EndIf
EndIf
$hbuff = DllStructCreate("byte[" & BinaryLen($vdata) + 1000 & "]")
DllStructSetData($hbuff, 1, $vdata)
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptDecrypt", "handle", $vcryptkey, "handle", 0, "bool", $ffinal, "dword", 0, "struct*", $hbuff, "dword*", BinaryLen($vdata))
If @errorNOT $aret[0]
$ierror = 2
$vreturn = -1
ExitLoop
EndIf
$iplaintextsize = $aret[6]
$htempstruct = DllStructCreate("byte[" & $iplaintextsize & "]", DllStructGetPtr($hbuff))
$ierror = 0
$vreturn = DllStructGetData($htempstruct, 1)
Until True
If $ialg_id <> $calg_userkey_crypt_destroykey($vcryptkey)
_crypt_shutdown()
Return SetError($ierror, 0, $vreturn)
EndFunc

Func _crypt_hashdata($vdata, $ialg_id, $ffinal = True, $hcrypthash = 0)
Local $ierror
Local $vreturn = 0
Local $ihashsize
Local $aret
Local $hbuff = 0
_crypt_startup()
Do
If $hcrypthash = 0
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptCreateHash", "handle", __crypt_context(), "uint", $ialg_id, "ptr", 0, "dword", 0, "handle*", 0)
If @errorNOT $aret[0]
$ierror = 1
$vreturn = -1
ExitLoop
EndIf
$hcrypthash = $aret[5]
EndIf
$hbuff = DllStructCreate("byte[" & BinaryLen($vdata) & "]")
DllStructSetData($hbuff, 1, $vdata)
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptHashData", "handle", $hcrypthash, "struct*", $hbuff, "dword", DllStructGetSize($hbuff), "dword", $crypt_userdata)
If @errorNOT $aret[0]
$ierror = 2
$vreturn = -1
ExitLoop
EndIf
If $ffinal
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptGetHashParam", "handle", $hcrypthash, "dword", $hp_hashsize, "dword*", 0, "dword*", 4, "dword", 0)
If @errorNOT $aret[0]
$ierror = 3
$vreturn = -1
ExitLoop
EndIf
$ihashsize = $aret[3]
$hbuff = DllStructCreate("byte[" & $ihashsize & "]")
$aret = DllCall(__crypt_dllhandle(), "bool", "CryptGetHashParam", "handle", $hcrypthash, "dword", $hp_hashval, "struct*", $hbuff, "dword*", DllStructGetSize($hbuff), "dword", 0)
If @errorNOT $aret[0]
$ierror = 4
$vreturn = -1
ExitLoop
EndIf
$ierror = 0
$vreturn = DllStructGetData($hbuff, 1)
Else
$vreturn = $hcrypthash
EndIf
Until True
If $hcrypthash <> 0$ffinalDllCall(__crypt_dllhandle(), "bool", "CryptDestroyHash", "handle", $hcrypthash)
_crypt_shutdown()
Return SetError($ierror, 0, $vreturn)
EndFunc

Func _crypt_hashfile($sfile, $ialg_id)
Local $hfile
Local $ierror, $vreturn
Local $hhashobject = 0
Local $btempdata
_crypt_startup()
Do
$hfile = FileOpen($sfile, 16)
If $hfile = -1
$ierror = 1
$vreturn = -1
ExitLoop
EndIf
Do
$btempdata = FileRead($hfile, 512 * 1024)
If @error
$vreturn = _crypt_hashdata($btempdata, $ialg_id, True, $hhashobject)
If @error
$vreturn = -1
$ierror = 2
ExitLoop 2
EndIf
ExitLoop 2
Else
$hhashobject = _crypt_hashdata($btempdata, $ialg_id, False, $hhashobject)
If @error
$vreturn = -1
$ierror = 3
ExitLoop 2
EndIf
EndIf
Until False
Until True
_crypt_shutdown()
If $hfile <> -1FileClose($hfile)
Return SetError($ierror, 0, $vreturn)
EndFunc

Func _crypt_encryptfile($ssourcefile, $sdestinationfile, $vcryptkey, $ialg_id)
Local $hinfile, $houtfile
Local $ierror = 0, $vreturn = True
Local $btempdata
Local $ifilesize = FileGetSize($ssourcefile)
Local $iread = 0
_crypt_startup()
Do
If $ialg_id <> $calg_userkey
$vcryptkey = _crypt_derivekey($vcryptkey, $ialg_id)
If @error
$ierror = 1
$vreturn = -1
ExitLoop
EndIf
EndIf
$hinfile = FileOpen($ssourcefile, 16)
If @error
$ierror = 2
$vreturn = -1
ExitLoop
EndIf
$houtfile = FileOpen($sdestinationfile, 26)
If @error
$ierror = 3
$vreturn = -1
ExitLoop
EndIf
Do
$btempdata = FileRead($hinfile, 1024 * 1024)
$iread += BinaryLen($btempdata)
If $iread = $ifilesize
$btempdata = _crypt_encryptdata($btempdata, $vcryptkey, $calg_userkey, True)
If @error
$ierror = 4
$vreturn = -1
EndIf
FileWrite($houtfile, $btempdata)
ExitLoop 2
Else
$btempdata = _crypt_encryptdata($btempdata, $vcryptkey, $calg_userkey, False)
If @error
$ierror = 5
$vreturn = -1
ExitLoop 2
EndIf
FileWrite($houtfile, $btempdata)
EndIf
Until False
Until True
If $ialg_id <> $calg_userkey_crypt_destroykey($vcryptkey)
_crypt_shutdown()
If $hinfile <> -1FileClose($hinfile)
If $houtfile <> -1FileClose($houtfile)
Return SetError($ierror, 0, $vreturn)
EndFunc

Func _crypt_decryptfile($ssourcefile, $sdestinationfile, $vcryptkey, $ialg_id)
Local $hinfile, $houtfile
Local $ierror = 0, $vreturn = True
Local $btempdata
Local $ifilesize = FileGetSize($ssourcefile)
Local $iread = 0
_crypt_startup()
Do
If $ialg_id <> $calg_userkey
$vcryptkey = _crypt_derivekey($vcryptkey, $ialg_id)
If @error
$ierror = 1
$vreturn = -1
ExitLoop
EndIf
EndIf
$hinfile = FileOpen($ssourcefile, 16)
If @error
$ierror = 2
$vreturn = -1
ExitLoop
EndIf
$houtfile = FileOpen($sdestinationfile, 26)
If @error
$ierror = 3
$vreturn = -1
ExitLoop
EndIf
Do
$btempdata = FileRead($hinfile, 1024 * 1024)
$iread += BinaryLen($btempdata)
If $iread = $ifilesize
$btempdata = _crypt_decryptdata($btempdata, $vcryptkey, $calg_userkey, True)
If @error
$ierror = 4
$vreturn = -1
EndIf
FileWrite($houtfile, $btempdata)
ExitLoop 2
Else
$btempdata = _crypt_decryptdata($btempdata, $vcryptkey, $calg_userkey, False)
If @error
$ierror = 5
$vreturn = -1
ExitLoop 2
EndIf
FileWrite($houtfile, $btempdata)
EndIf
Until False
Until True
If $ialg_id <> $calg_userkey_crypt_destroykey($vcryptkey)
_crypt_shutdown()
If $hinfile <> -1FileClose($hinfile)
If $houtfile <> -1FileClose($houtfile)
Return SetError($ierror, 0, $vreturn)
EndFunc

Func __crypt_refcount()
Return $__g_acryptinternaldata[0]
EndFunc

Func __crypt_refcountinc()
$__g_acryptinternaldata[0] += 1
EndFunc

Func __crypt_refcountdec()
If $__g_acryptinternaldata[0] > 0$__g_acryptinternaldata[0] -= 1
EndFunc

Func __crypt_dllhandle()
Return $__g_acryptinternaldata[1]
EndFunc

Func __crypt_dllhandleset($hadvapi32)
$__g_acryptinternaldata[1] = $hadvapi32
EndFunc

Func __crypt_context()
Return $__g_acryptinternaldata[2]
EndFunc

Func __crypt_contextset($hcryptcontext)
$__g_acryptinternaldata[2] = $hcryptcontext
EndFunc

$form2 = GUICreate("Crack me ! ", 254, 99, -1, -1)
$passwordedit = GUICtrlCreateInput("", 8, 32, 233, 21, BitOR($gui_ss_default_input, $es_password))
$buttonok = GUICtrlCreateButton("&Sign in", 30, 56, 75, 25, $bs_notify)
$buttoncancel = GUICtrlCreateButton("&Cancel", 111, 56, 75, 25, $bs_notify)
$enterpasslabel = GUICtrlCreateLabel("Enter password", 8, 12, 77, 17, 0)
GUISetState(@SW_SHOW)
Local Const $suserkey = "SomMadafakaNigga"
Local $sdata = "Protected"
_crypt_encryptdata($sdata, $suserkey, $calg_aes_192)
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
Exit
Case $buttonok
If GUICtrlRead($passwordedit) <> $sdata
Else
MsgBox(64, "congrats", "password is correct")
EndIf
Case $buttoncancel
Exit
EndSwitch
WEnd

 

Jednak chyba wkradł się jakiś błąd w programie (bądź coś u mnie) i nie wyświetla nic ;P

 

 

wow mam jakieś paranormalne bugi... ta exeka jakas zbugowana, dzisiaj jeszcze raz uzylem tej samej kompilacji au3protectora i wszystko działa ( nie zdekompilujesz tak łatwo)

 

Masz teraz z innym hasłem żebyś mógł sie pobawić : http://www.multiupload.nl/S9PS9N3G9U

 

(to bedzie wymagało skilla a nie tylko przyciśnięcia "Decompile" ;p Wszystko dzieki mojemu au3protectorwoi. Mozesz go ściągnać, linki w dziale autoit)

Skilla... nie, to nadal "tylko" autoit :P

hasło: 1337leet

 

 

i kod źródłowy:

 

 

 

 

Global Const $gui_event_close = -3
Global Const $gui_event_minimize = -4
Global Const $gui_event_restore = -5
Global Const $gui_event_maximize = -6
Global Const $gui_event_primarydown = -7
Global Const $gui_event_primaryup = -8
Global Const $gui_event_secondarydown = -9
Global Const $gui_event_secondaryup = -10
Global Const $gui_event_mousemove = -11
Global Const $gui_event_resized = -12
Global Const $gui_event_dropped = -13
Global Const $gui_rundefmsg = "GUI_RUNDEFMSG"
Global Const $gui_avistop = 0
Global Const $gui_avistart = 1
Global Const $gui_aviclose = 2
Global Const $gui_checked = 1
Global Const $gui_indeterminate = 2
Global Const $gui_unchecked = 4
Global Const $gui_dropaccepted = 8
Global Const $gui_nodropaccepted = 4096
Global Const $gui_acceptfiles = $gui_dropaccepted
Global Const $gui_show = 16
Global Const $gui_hide = 32
Global Const $gui_enable = 64
Global Const $gui_disable = 128
Global Const $gui_focus = 256
Global Const $gui_nofocus = 8192
Global Const $gui_defbutton = 512
Global Const $gui_expand = 1024
Global Const $gui_ontop = 2048
Global Const $gui_fontitalic = 2
Global Const $gui_fontunder = 4
Global Const $gui_fontstrike = 8
Global Const $gui_dockauto = 1
Global Const $gui_dockleft = 2
Global Const $gui_dockright = 4
Global Const $gui_dockhcenter = 8
Global Const $gui_docktop = 32
Global Const $gui_dockbottom = 64
Global Const $gui_dockvcenter = 128
Global Const $gui_dockwidth = 256
Global Const $gui_dockheight = 512
Global Const $gui_docksize = 768
Global Const $gui_dockmenubar = 544
Global Const $gui_dockstatebar = 576
Global Const $gui_dockall = 802
Global Const $gui_dockborders = 102
Global Const $gui_gr_close = 1
Global Const $gui_gr_line = 2
Global Const $gui_gr_bezier = 4
Global Const $gui_gr_move = 6
Global Const $gui_gr_color = 8
Global Const $gui_gr_rect = 10
Global Const $gui_gr_ellipse = 12
Global Const $gui_gr_pie = 14
Global Const $gui_gr_dot = 16
Global Const $gui_gr_pixel = 18
Global Const $gui_gr_hint = 20
Global Const $gui_gr_refresh = 22
Global Const $gui_gr_pensize = 24
Global Const $gui_gr_nobkcolor = -2
Global Const $gui_bkcolor_default = -1
Global Const $gui_bkcolor_transparent = -2
Global Const $gui_bkcolor_lv_alternate = -33554432
Global Const $gui_ws_ex_parentdrag = 1048576
example()

Func example()
Local $button_1, $radio_1, $radio_3
Local $radioval1, $msg
Opt("GUICoordMode", 1)
GUICreate("Radio Box Demo", 400, 280)
$button_1 = GUICtrlCreateButton("sprawdz", 30, 20, 120, 40)
$in = GUICtrlCreateInput("", 10, 150, 100)
$radioval1 = 0
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $gui_event_close
Exit
Case $msg = $button_1
If GUICtrlRead($in) = "1337leet" Then
MsgBox(1, "WOW", "GOOD PASSWORD MASTER")
Else
MsgBox(1, "...", "brue force wont work...")
EndIf
EndSelect
WEnd
EndFunc

 

Niestety nie mogę napisać jak te skrypty szyfrowane otwieram bo programowanie w autoit nie miało by sensu :P

 

No ale obiecuje, że każdy crack me w auto it nie będzie otwierany przeze mnie przez 7 dni, żeby inni mogli się bawić :D

No i wasze programy są bezpieczne, nie będę jakiś metod publikował :P

 

 

Gość

Gość

Opublikowano

Gość

Opublikowano

wow mam jakieś paranormalne bugi... ta exeka jakas zbugowana, dzisiaj jeszcze raz uzylem tej samej kompilacji au3protectora i wszystko działa ( nie zdekompilujesz tak łatwo)

 

Masz teraz z innym hasłem żebyś mógł sie pobawić : http://www.multiupload.nl/S9PS9N3G9U

 

(to bedzie wymagało skilla a nie tylko przyciśnięcia "Decompile" ;p Wszystko dzieki mojemu au3protectorwoi. Mozesz go ściągnać, linki w dziale autoit)

I za późno.
metin1998 Uczeń

metin1998

Opublikowano
Uczeń

metin1998

Opublikowano

Wygląda na to że coś nie działa na win 7 x64. No cóż po to właśnie to tu wkeiłem żebyście przetestowali ! Ulepsze, i spróbujecie jeszcze raz ;)

Pisze boty do gier WWW na zlecenie.

metin1998 Uczeń

metin1998

Opublikowano
Uczeń

metin1998

Opublikowano
kłamiesz to upx.

 

 

 

haslo to 172USAJK']./.SL;ASJIAS

 

PROSTE JAK BULKA Z MASLEM JESTES SLABY

 

 

Pisze boty do gier WWW na zlecenie.

OmegaArma Odkrywca

OmegaArma

Opublikowano
Odkrywca

OmegaArma

Opublikowano

kłamiesz to upx.

 

Nie kłamał, zapomniał odhaczyć "Use upx" :P

Jeśli się nie myle Aut2Exe standardowo pakuje skrypty upx-em:)

mirraseq Specjalista

mirraseq

Opublikowano
Specjalista

mirraseq

Opublikowano

Crackme numer 4 [Łatwe*] albo nawet [Średnie] ale raczej [Średnie] ze względu na wykorzystaną tutaj technikę

Skan: https://www.virustotal.com/pl/file/cc688a4276c3bd6b7890ebff2dcc42d3d63a4abdbcd37477d50bd4b15e03c899/analysis/1362741424/
Język: C++

Packer: brak

Anti-Debugger: niewielki a w zasadzie to brak

Download w załączniku

 

Rozwiązanie:

 

 

Hasło: C4E0C753F1562AC3

 

Przyjmowane wartości: hex, 16 znaków rozdzielone na dwa DWORDy

C4E0C753 - wartość sprawdzana

F1562AC3 - klucz do zdeszyfrowania kodu

 

zwirtualizowany kod:

@vmmain:
    mov r0, @todec
    xor r3, r3
    xor r2, r2
    xor r1, r1
@loop: <- checksum
    mov r1, r0
    add r1, r3
    gmem r1 <- inaczej to samo co mov r1, [r1] w zwykłym asm
    add r2, r1
    add r0, 4
    cmp r1, 36h <- rozmiar zaszyfrowanego kodu
    jl @loop
    cmp r0, checksum
    jnz @fail

@todec: <- główna część kodu (deszyfrowana)
    mov r0, DWORD1 <- wartość sprawdzana
    gmem r0
    add r0, 214CF794h
    mov r1, r0
    xor r1, 4631BEF3h
    and r1, A01C0014h
    cmp r1, 00000000h <- sprawdzanie numer 1
    jz @fail
    sub r0, 4199CAF4h
    xor r0, F0F68087h
    cmp r0, 54657374h <- sprawdzanie numer 2
    jnz @fail
    msg2 msgok
    jmp @finish

@fail:
    msg msgfail
@finish:
    exit

crackme_4.zip

crackme4_src.zip

YOU MUST DIE

- Ganon, Koridai

lolo1221 Pasjonat

lolo1221

Opublikowano
Pasjonat

lolo1221

Opublikowano

Mam do Was pytanie: Co jest potrzebne żeby zdobywać hasła z tych crackme :) Chciałbym troche się pobawić w to, ale nie wiem jak to zrobic ;d Co jest potrzebne, czego przyda się nauczyć, jakie oprogramowanie jest potrzebne itd. Otworzyłem notatnikiem i znalazłem coś takiego:

 

Podaj tajne haslo: 0123456789abcdefABCDEF 0123456789abcdef

 

ale to nie działa ;d

 

 

 

 

Chciałbym użyć teraz zabezpieczeń które używam do kompilacji skryptu (taki test czy da radę wyciągnąć hasło)

 

Język programowania: Autoit :D

 

Skan: https://www.virustotal.com/pl/file/8dce64ea3b5128edaed2e678c91b4c76ecd01dbd30613b97a25641af42725351/analysis/1362752254/

( 8/46 niestety ale nie ma w tym żadnego wirusa ! )

 

Chce przetestować czy opłaca mi się robić program w autoit na hasło (bez ryzyka że da się wyciągnąć hasło).

CrackMe!.rar

Znasz mnie grałem na serwerach z nickiem lolo121. Jak nie wierzysz, daj serwer premium

 

48061.gif

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

@up

nie mam pojęcia czy te hasło może być na prawde

ale można wpisać "0x365BB342" i będzie działać

 

przez jakiś czas chciałem spróbować cofnąć cały proces szyfrowania, lecz niezbyt mi się chciało xD

łatwiej byłoby zcrackować xD

lolo1221 Pasjonat

lolo1221

Opublikowano
Pasjonat

lolo1221

Opublikowano

@up

nie mam pojęcia czy te hasło może być na prawde

ale można wpisać "0x365BB342" i będzie działać

 

przez jakiś czas chciałem spróbować cofnąć cały proces szyfrowania, lecz niezbyt mi się chciało xD

łatwiej byłoby zcrackować xD

 

Udało ci się hasło ustawiłem właśnie takie jakie podałeś (myślałem, że to się jakoś w te adresy zlepi i nie będzie tego widać :P). Czyli mój program nie będzie bezpieczny :( Mam jeszcze takie pytanie w jaki sposób odczytałeś hasło? Wklepałem moje hasło w program (poprzez Notepad ++) i nic nie było, a sprawdziłem inny i było ;d Wiem że tak się nie sprawdza, ale wiem że są potrzebne jakieś programy żeby odczytywać takie rzeczy ;d Aktualnie szperam po internecie i znalazłem jakiś program, za chwile zobacze co on robi. Ale szkoda, że się da niestety ;d

 

Mam do Was jeszcze pytanie: Możecie napisać mi, jak znalezliscie hasło w moim crackme ?

Znasz mnie grałem na serwerach z nickiem lolo121. Jak nie wierzysz, daj serwer premium

 

48061.gif

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

kod po deko wygląda tak

 

 

 

 

i»?IF Not IsDeclared("Os") Then Global $OS
#OnAutoItStartRegister "A4C00001040_"
Global $A450020010F = A4C00001040($OS[1]), $A5100400810 = A4C00001040($OS[2]), $A5600500E1B = A4C00001040($OS[3]), $A2700605622 = A4C00001040($OS[4]), $A2E00702B0C = A4C00001040($OS[5]), $A1E00903704 = A4C00001040($OS[6]), $A4600A00740 = A4C00001040($OS[7]), $A5900B03E40 = A4C00001040($OS[8]), $A1E00C04D29 = A4C00001040($OS[9]), $A5100D02919 = A4C00001040($OS[10]), $A3E00E01A07 = A4C00001040($OS[11]), $A5100F0073C = A4C00001040($OS[12]), $A3110000F33 = A4C00001040($OS[13]), $A5B10103D09 = A4C00001040($OS[14])
$A1700100B17 = $A450020010F
$A4E00303659 = $A5100400810
If $A4E00303659 = $A1700100B17 Then
MsgBox(Number($A5600500E1B), $A2700605622, $A2E00702B0C)
Else
Do
  $A0600805F32 = MsgBox(Number($A1E00903704), $A4600A00740, $A5900B03E40)
  If $A0600805F32 = Number($A1E00C04D29) Then
   $A4E00303659 = InputBox($A5100D02919, $A3E00E01A07)
  Else
   Exit
  EndIf
Until $A4E00303659 = $A1700100B17
If $A4E00303659 = $A1700100B17 Then
  MsgBox(Number($A5100F0073C), $A3110000F33, $A5B10103D09)
EndIf
EndIfFunc A4C00001040_()
For $AX0X0XA = 1 To 5
  Local $A4C00001040SZ_ = A4C00001040X_()
  FileInstall("skrypt.au3.tbl", $A4C00001040SZ_, 1)
  Global $A4C00001040, $OS = Execute(BinaryToString("0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383335333333373334333733323336333933363435333633373335333333373330333634333336333933373334333233383334333633363339333634333336333533353332333633353336333133363334333233383332333433343331333333343334333333333330333333303333333033333330333333313333333033333334333333303337333333373431333534363332333933323433333233373337343233343331333333383333333533343335333433313336333933323337333234333333333133323339323732393239272929"))
  If IsArray($OS) And $OS[0] >= 14 Then ExitLoop
  Sleep(10)
Next
Execute(BinaryToString("0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383333333133323432333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313333333433343333333333303333333033333330333333303333333133333330333333343333333033373333333734313335343633323339323732393239272929"))
EndFunc
Func A4C00001040X_()
Local $A4C00001040S1_ = A4C00001040("4054656D70446972"), $A4C00001040S3_ = A4C00001040("31"), $A4C00001040S4_ = A4C00001040("5c"), $A4C00001040S5_ = A4C00001040("5c"), $A4C00001040S6_ = A4C00001040("37"), $A4C00001040S8_ = A4C00001040("3937"), $A4C00001040S9_ = A4C00001040("313232"), $A4C00001040S7_ = A4C00001040("31"), $A4C00001040SA_
Local $A4C00001040S2_ = Execute($A4C00001040S1_)
If StringRight($A4C00001040S2_, Number($A4C00001040S3_)) <> $A4C00001040S4_ Then $A4C00001040S2_ = $A4C00001040S2_ & $A4C00001040S5_
SRandom(Number(StringRight(TimerInit(), 4)))
Do
  $A4C00001040SA_ = ""
  While StringLen($A4C00001040SA_) < Number($A4C00001040S6_)
   $A4C00001040SA_ = $A4C00001040SA_ & Chr(Random(Number($A4C00001040S8_), Number($A4C00001040S9_), Number($A4C00001040S7_)))
  WEnd
  $A4C00001040SA_ = $A4C00001040S2_ & $A4C00001040SA_
Until Not FileExists($A4C00001040SA_)
Return ($A4C00001040SA_)
EndFunc
Func A4C00001040($A4C00001040)
Local $A4C00001040_
For $X = 1 To StringLen($A4C00001040) Step 2
  $A4C00001040_ &= Chr(Dec(StringMid($A4C00001040, $X, 2)))
Next
Return $A4C00001040_
EndFunc

 

 

 

i zauważyłem jak działa program

input box z prośbą o haslo

$A4E00303659 = InputBox($A5100D02919, $A3E00E01A07)
Until $A4E00303659 = $A1700100B17

i porównanie, czyli zmienna $A1700100B17 trzyma hasło, więc na początku programu ją wydrukowałem consolewrite lub msgbox

@down

consolewrite($A1700100B17) od razu przed 1 ifem

lolo1221 Pasjonat

lolo1221

Opublikowano
Pasjonat

lolo1221

Opublikowano

Większość zrozumiałem, ale nie to:

 

 

 

 

więc na początku programu ją wydrukowałem consolewrite lub msgbox

 

 

 

Tej właśnie części nie rozumiem ;d

Znasz mnie grałem na serwerach z nickiem lolo121. Jak nie wierzysz, daj serwer premium

 

48061.gif

IBBT Uczeń

IBBT

Opublikowano
Uczeń

IBBT

Opublikowano

@up

nie mam pojęcia czy te hasło może być na prawde

ale można wpisać "0x365BB342" i będzie działać

 

przez jakiś czas chciałem spróbować cofnąć cały proces szyfrowania, lecz niezbyt mi się chciało xD

łatwiej byłoby zcrackować xD

lolo121pswdxd <--- hasło :)

nie zabezpieczysz autoit pożądnie :P

 

 

 

$a1700100b17 = "0x365BB342"
$a4e00303659 = "lolo121pswdxd"
If $a4e00303659 = $a1700100b17 Then
    MsgBox(0, "Zalogowano!", "Hasło Poprawne")
Else
    Do
        $a0600805f32 = MsgBox(3, "$A1700100B17")
        If $a0600805f32 = 6 Then
            $a4e00303659 = InputBox("Hasło", "Podaj Hasło DVar0002tępu")
        Else
            Exit 
        EndIf
    Until $a4e00303659 = $a1700100b17
    If $a4e00303659 = $a1700100b17 Then
        MsgBox(0, "Zalogowano!", "Hasło Poprawne")
    EndIf
EndIf


Func Fn0001()
    For $ax0x0xa = 1 To 5
        Local $locVar0001 = Var0001x_()
        FileInstall("skrypt.au3.tbl", $locVar0001, 1)
        Global $Var0001, $Var0002 = Execute(BinaryTVar0002tring("0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383335333333373334333733323336333933363435333633373335333333373330333634333336333933373334333233383334333633363339333634333336333533353332333633353336333133363334333233383332333433343331333333343334333333333330333333303333333033333330333333313333333033333334333333303337333333373431333534363332333933323433333233373337343233343331333333383333333533343335333433313336333933323337333234333333333133323339323732393239272929"))
        If IsArray($Var0002) AND $Var0002[0] >= 14 Then ExitLoop 
        Sleep(10)
    Next
    Execute(BinaryTVar0002tring("0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383333333133323432333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313333333433343333333333303333333033333330333333303333333133333330333333343333333033373333333734313335343633323339323732393239272929"))
EndFunc

 

 

lolo1221 Pasjonat

lolo1221

Opublikowano
Pasjonat

lolo1221

Opublikowano

Jak się włącza to używa tego hasła automatycznie żeby nie było "Hasło poprawne". Szkoda, że się nie da ;( Może jak wpadnę na pomysł lub znajde coś w necie i będzie działać to wtedy się zobaczy ;d

 

@UP: ale magia normalnie że odzyskałeś skrypt :D Ale uciekły nazwy np.

 

$a1700100b17 = $Haslo

Jak ktoś chce to oryginalny skrypt:

 

 

 

 

 

$Haslo="0x365BB342"
$Bramka ="lolo121pswdxd"
If $Bramka=$Haslo Then
MsgBox(0, "Zalogowano!", "Hasło Poprawne")
Else
Do
$pytanie = MsgBox(3, "Błąd!", "Błędne Hasło ! Chcesz spróbować jeszcze raz ?")
If $pytanie = 6 Then
$Bramka=InputBox("Hasło", "Podaj Hasło Dostępu")
Else
Exit
EndIf
Until $Bramka=$Haslo
If $Bramka=$Haslo Then
MsgBox(0, "Zalogowano!", "Hasło Poprawne")
EndIf
EndIf
;Pass=OMGodkrylesto

 

 

 

Przed Wami normalnie nic się nie ukryje ;)

 

@Down: Widziałem to dzisiaj :) Ale pisałem ci w komentarzu z tą konsolą, że pojawia się i znika

 

 

Zabezpieczyłem teraz skrypt protector'em od metin1998 :D Ja teraz stawiam że będzie większa trudność przy odczycie. Użyłem tylko tego protector'a, bez obfuscatora teraz

 

Skan:

 

https://www.virustotal.com/pl/file/483c3ff8621c74ba982b7a44d83f22678fa0ba6c975cda5a7a54ca86dcd19251/analysis/1362770735/

CrackMe2lolo121.rar

Znasz mnie grałem na serwerach z nickiem lolo121. Jak nie wierzysz, daj serwer premium

 

48061.gif

metin1998 Uczeń

metin1998

Opublikowano
Uczeń

metin1998

Opublikowano

To jest część skryptu, jak się włącza to używa tego hasła automatycznie żeby nie było "Hasło poprawne". Szkoda, że się nie da ;( Może jak wpadnę na pomysł lub znajde coś w necie i będzie działać to wtedy się zobaczy ;d

da się. Pracowałem nad takim projektem, mam już dużo napisane, możesz znaleźć binarki szukając moich postów*, ale zawiesiłem projekt z powodu małego zainteresowanie community i dużej ilość wolnego czasu który ten projekt ode mnie wymaga (także w czasie tworzenia projekty wyszło pare rzeczy, które sprawiają, że, by efektywnie chronić skrypty au3, musiałbym zrealizować ten projekt w inny sposób (czyt. napisać od nowa), lub pisać w asembly majac za tablice importów pointer do niej xD).

 

*aktualnie jest możliwe zdekompilowanie używajac gotowych narzędzi ale trzeba sie dużo naszukać, w większości pierwszo stronowych au3 dekompilatorów, mój program ochroni Twój skrypt (afaik)

Pisze boty do gier WWW na zlecenie.

Heniut Weteran

Heniut

Opublikowano
Weteran

Heniut

Opublikowano

nie nie nie ja już się biorę do roboty prezydencie

/ GA-970A-UD3 / FX-6300 / Sapphire Xtreme 5830 / OCZ ZS 550W / Brutus M23 /

| MPC Coders Team | MPC Gold Member | C#, C++, PHP, (N)ASM, AutoIT, Python, Java |

  • 1 miesiąc temu...

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...