Evo kako sam ja, kad sam bio mali, to uradio u VB6, ali logika je bitna:
Code:
Open App.Path & "\" & App.EXEName & ".exe" For Binary As 1
Open "Test.exe" For Binary As 2
Dim DataArray(FileLen(App.Path & "\" & App.EXEName & ".exe") - 82945)
Seek #1, 82945
Get #1, , DataArray()
Put #2, , DataArray()
Close #1
Close #2
Znači, imaš jedan EXE i u njemu se nalazi ovakav kôd. Taj EXE se zove Stub ili Extractor, kako ga je Goran nazvao. Ovaj EXE je veličine 82945 bajta. Ja sam sakriveni EXE samo zalijepio za taj Stub EXE. Stoga, otvoriš taj svoj EXE (kompletni, koji sadrži u sebi i stub i exe koji hoćeš extraktovati), pozicioniraš se na lokaciju gdje počinje novi exe i to samo snimiš u novu datoteku, u mom slučaju to je Test.exe. Na kraju samo pokreneš taj novi EXE.
I ♥ ♀
Ovaj post je zlata vrijedan!