section
'.inc'
data readable writeable
procTable     dd  @mess
,
keyMess
              dd  @pass
,
keyPass
              dd  @info
,
keyInfo

keyMess       dd  Mess
,
(
Pass
-
Mess
-
1
)
/
4
,
0xC9125877
keyPass       dd  Pass
,
(
Info
-
Pass
-
1
)
/
4
,
0x65210833
keyInfo       dd  Info
,
(
mySeh
-
Info
-
1
)
/
4
,
0xAA27E395

format  pe console
include
'win32ax.inc'
entry   @hideCrypt
;
//
,
buff
         ret
endp
;
//-------
;
//-------- Запрашивает и проверяет пароль ------------------
proc  Pass
local    pKey    dd
'e'
+
'n'
+
'c'
+
'r'
+
'y'
+
'p'
+
't'
;
//
xor     eax
,
eax
         xor     ebx
,
ebx
@@
:
cinvoke  _getch
;
// символ в AL
cmp     al
,
13
;
// это Enter???
je      @stop
;
// да - на выход
add     ebx
,
eax
;
// иначе: считаем сумму в EBX
push    eax ebx
;
//
cinvoke  printf
,

;
//[*] вместо введённого символа
pop     ebx eax
;
//
jmp     @b
;
// уйти на повтор..
@stop
:
cmp     ebx
,
[
pKey
]
;
// сравнить хеши паролей!
je      @ok
        cinvoke  printf
,

jmp     @retn
@ok
:
cinvoke  printf
,

@retn
:
ret
endp
;
//-------
;
//-------- Выводит системную инфу (см.PERF_INFORMATION) -----------//
proc  Info
        cinvoke  printf
,

invoke  K32GetPerformanceInfo
,
perfInfo
,
14
*
4
cinvoke  printf
,

,
\
[
perfInfo
.
PageSize
]
,
[
perfInfo
.
HandleCount
]
,
\
[
perfInfo
.
ProcessCount
]
,
[
perfInfo
.
ThreadCount
]
ret
endp
;
//-------
;
//------------------------------------------------------------//
;
//-------------- Обработчик исключений SEH -------------------//
;
//------------------------------------------------------------//
proc  mySeh  pRecord
,
pFrame
,
pContext
,
pParam
local    pRet    dd
0
mov     ebx
,
[
pContext
]
mov     ebx
,
[
ebx
+
184
]
;
// Context.EIP
add     ebx
,
2
;
// EBX = адрес процедуры для вызова
mov
[
pRet
]
,
ebx
;
// адрес возврата
mov     esi
,
procTable
;
// ESI = таблица указателей
mov     ecx
,
3
;
// ECX = число записей в ней
@@
:
lodsd
;
// EAX = очередное значение из таблицы
cmp     eax
,
ebx
;
// ищем массив записей процедуры
je      @procFound
;
// если нашли!
add     esi
,
4
;
// иначе: переход к сл.записи
loop    @b
;
// пройтись по всей таблице
@procFound
:
mov     ebx
,
[
esi
]
;
// EBX = указатель на массив данных
mov     esi
,
[
ebx
]
;
// ESI = адрес процедуры (первый DWORD из массива)
mov     ecx
,
[
ebx
+
04
]
;
// ECX = длина процедуры (второй DWORD)
mov     eax
,
[
ebx
+
08
]
;
// EAX = ключ шифрования (третий DWORD)
push    esi ecx eax esi
;
// запомнить все данные для обратного шифрования
;
//--- расшифровка
@@
:
xor
[
esi
]
,
eax
         add     esi
,
4
loop    @b

         pop     esi
         call    esi
;
//
push    mySeh
;
//
@exit
:
cinvoke  _getch
        cinvoke  exit
,
0
;
//----- Временная секция для сбора инфы о процедурах -----------------//
;
//----- Сейчас это точка-входа в программу, поэтому нужно будет вставить сюда
;
//----- инструкцию перехода на фактический EntryPoint в секцию-кода.
section
''
code readable executable writeable
@hideCrypt
:
mov     esi
,
Mess
;
// адрес процедуры для шифрования
mov     ecx
,
[
keyMess
+
4
]
;
// её длина из массива данных
mov     ebx
,
[
keyMess
+
8
]
;
// ключ шифрования из массива
cinvoke  printf
,

,
esi
,
ecx
,
ebx

         mov     esi
,
Pass
         mov     ecx
,
[
keyPass
+
4
]
mov     ebx
,
[
keyPass
+
8
]
cinvoke  printf
,

,
esi
,
ecx
,
ebx

         mov     esi
,
Info
         mov     ecx
,
[
keyInfo
+
4
]
mov     ebx
,
[
keyInfo
+
8
]
cinvoke  printf
,

,
esi
,
ecx
,
ebx
         jmp     @exit
         push    start
;
//<---- опкоды перехода на ОЕР
ret
;
//<---- ^^^^^^ вставить в начало данной секции!
;
//-------------------
section
'.idata'
import data readable
library  msvcrt
,
'msvcrt.dll'
,
kernel32
,
'kernel32.dll'
,
user32
,
'user32.dll'
include
'api\msvcrt.inc'
include
'api\kernel32.inc'
include
'api\user32.inc'