Сейчас на форуме: YDS, _MBK_, user99, ManHunter (+7 невидимых)

 eXeL@B —› Основной форум —› Ercom 2000 как сделать лоадер?
Посл.ответ Сообщение

Ранг: 53.0 (постоянный)
Активность: 0.050
Статус: Участник

Создано: 31 октября 2005 05:54 · Поправил: alex111
· Личное сообщение · #1

Такая вот редкая тулза, написана на Delphi 5, упакована аспаком.
Ограничение на кол. запусков, серийник генерируется от железа.
на кейген мозгов не хватает.
Вопрос: как дописать в проге свой код чтоб при запуске удалять определённый ключ в реестре?

P.S С асмом у меня совсем туго.

P.P.S желательно простенький пример.



Ранг: 450.1 (мудрец)
Активность: 0.260
Статус: Участник

Создано: 31 октября 2005 06:24
· Личное сообщение · #2

что-то типа этого(на fasm), но под NT виндами не тестил
format PE GUI 4.0
entry start

include '%fasminc%\win32a.inc'


section '.data' data readable writeable

szRegSubKey db "SOFTWARE\blabla\bla",0
szFileName db "Proga.exe",0
align 4
StartupInfo STARTUPINFO
align 4
ProcessInfo PROCESSINFO


section '.code' code readable executable

align 4
start:
invoke RegDeleteKey, HKEY_CURRENT_USER, szRegSubKey
mov [StartupInfo.cb], sizeof.STARTUPINFO
invoke CreateProcess, szFileName, NULL, NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS,\
NULL, NULL, StartupInfo, ProcessInfo
test eax, eax
jz @exit
invoke CloseHandle, [ProcessInfo.hThread]
invoke CloseHandle, [ProcessInfo.hProcess]
@exit:
invoke ExitProcess, 0


section '.idata' import data readable writeable

library kernel32,'KERNEL32.DLL',\
advapi32,'ADVAPI32.DLL'

include '%fasminc%\APIA\KERNEL32.INC'
include '%fasminc%\APIA\ADVAPI32.INC'




Ранг: 53.0 (постоянный)
Активность: 0.050
Статус: Участник

Создано: 31 октября 2005 06:31
· Личное сообщение · #3

Asterixспасибо!



Ранг: 384.1 (мудрец)
Активность: 0.250
Статус: Участник
www.int3.net

Создано: 31 октября 2005 07:05
· Личное сообщение · #4

alex111
Читай статьи!!!!
Для кого их вообще пишут! Тема закрыта

-----
Подписи - ЗЛО! Нужно убирать!



 eXeL@B —› Основной форум —› Ercom 2000 как сделать лоадер?
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати