Misc

#include "\masm32\include\resource.h"

#define имя_нашей_формы 1000

@echo off
cls
SET PATH=C:\Masm32\bin
SET INCLUDE=C:\Masm32\INCLUDE
SET LIB=C:\Masm32\LIB
 
Rc.exe /v %1.rc
 
ML /nologo -c -coff %1.asm
if errorlevel 1 goto terminate
 
LINK /nologo %1.obj %1.res /SUBSYSTEM:WINDOWS /STUB:64stub.exe /FILEALIGN:512 /VERSION:4.0 /RELEASE /BASE:0x400000
if errorLevel 1 goto terminate
 
echo OK
 
:terminate

.data
$$$STRINGW имя_переменной,"текст"
dw 0 ;терминирующие два нулевых байта
 
;или можно так:
$$$ZSTRINGW имя_переменной,"текст"

EDITBALLOONTIP STRUCT
    cbStruct dd ? ;размер структуры в байтах = 16
    pszTitle dd ? ;указатель на Unicode-строку с заголовком
    pszText dd ?  ;указатель на Unicode-строку с текстом
    ttiIcon dd ?  ;иконка структуры - TTI_INFO, TTI_WARNING, TTI_ERROR, TTI_NONE или TTI_INFO_LARGE, TTI_WARNING_LARGE, TTI_ERROR_LARGE
EDITBALLOONTIP ENDS

.data
  $$$STRINGW pszTitle,"Заголовок" ;эти макросы описаны в п.2
  dw 0
  $$$STRINGW pszText,"Текст подсказки"
  dw 0
.data?
  btt EDITBALLOONTIP <>
.code
    mov btt.pszTitle,offset  ;заполняем структуру
    mov btt.pszText,offset pszText
    mov btt.ttiIcon,TTI_INFO
    mov btt.cbStruct,16
 
    invoke SendDlgItemMessage,hWnd,1004,EM_SCROLLCARET,0,0 ;скроллим поле ввода, чтобы была видна каретка - подсказка отображается именно в этом месте
    invoke SendDlgItemMessage,hWnd,1004,EM_SHOWBALLOONTIP,0,offset btt ;отображаем подсказку

;здесь я определяю типы данных и константы, которых почему-то не оказалось в windows.inc
HCRYPTHASH equ dd
HCRYPTPROV equ dd
ALG_CLASS_HASH equ 32768
 
;...
 
.data? ;в секции неинициализированных данных определяю несколько переменных
        hHash HCRYPTHASH ?
        hProv HCRYPTPROV ?
        hash_size dd ?     ;сюда будет возвращаться размер хэша
        hash db 41 dup(?)  ;а сюда сам хэш
 
;...
 
.code
 
;...
 
      .if eax==9 || eax==10 ;если мы генерируем MD5 или SHA1 хэш
        push eax
        mov textlen,FUNC(lstrlen,membuf) ;записываем длину введенного текста в первое поле ввода
        invoke CryptAcquireContext,offset hProv, NULL, NULL, PROV_RSA_FULL, 0 ;создаем контекст для создания хэшей
        ;PROV_RSA_FULL как раз позволяет генерировать мд5 и sha1 (<a href="http://msdn.microsoft.com/en-us/library/aa387448(VS.85).aspx">тут - подроблее</a>).
 
        pop eax
        ;создаем хэш
        .if eax==9 ;если генерируем md5
          invoke CryptCreateHash,hProv,CALG_MD5,0,0,offset hHash ;тут мы указываем провайдер для криптования - hProv, для которого ранее создали контекст
        .else ;если sha1
          invoke CryptCreateHash,hProv,CALG_SHA1,0,0,offset hHash
        .endif
 
        invoke CryptHashData,hHash,membuf,textlen,0 ;генерируем хэш из строки в памяти membuf с длиной textlen
        invoke CryptGetHashParam,hHash,HP_HASHSIZE,offset hash_size,offset dwSize,0 ;получаем длину хэша
        invoke CryptGetHashParam,hHash,HP_HASHVAL,offset hash,offset hash_size,0 ;получаем его значение
        invoke CryptDestroyHash,hHash ;удаляем хэш
        invoke CryptReleaseContext,hProv,0 ;освобождаем контекст
 
        mov esi,membuf2
        mov edi,offset hash
 
        mov ecx,0
      hash_get: ;начинаем преобразовывать хэш в приемлемый текстовый вид
        push ecx
        movzx eax,byte ptr [edi]
        invoke wsprintf,esi,chr$("%2.2x"),eax
 
        inc edi
        add esi,2
 
        pop ecx
        inc ecx
        cmp ecx,hash_size
      jne hash_get
 
      ;теперь в памяти membuf2 содержится хэш в текстовом виде, и его можно вывести или использовать по своему усмотрению

      invoke OpenClipboard,hWnd ;откроем буфер обмена
      test eax,eax
      jz endcopy ;если не удалось открыть - выходим
 
      invoke EmptyClipboard ;очищаем буфер обмена
 
 
      invoke GetDlgItemText,hWnd,1004,membuf,buflen-1 ;получаем текст из текстового поля в память membuf
      inc eax
 
      mov clipboard,FUNC(GlobalAlloc,GMEM_MOVEABLE,eax) ;выделяем память для копирования
      test eax,eax
      jz endcopy2 ;если не удалось выделить - выходим и закрываем буфер обмена
 
      invoke GlobalLock,clipboard ;блокируем память и получаем указатель на первый байт этой памяти
 
      invoke lstrcpy,eax,membuf ;копируем туда текст
 
      invoke GlobalUnlock,clipboard ;разблокируем память
 
      invoke SetClipboardData,CF_TEXT,clipboard ;записываем данные в буфер обмена
 
 
      endcopy2:
      invoke CloseClipboard ;закрываем буфер обмена
 
      endcopy:

      invoke IsClipboardFormatAvailable,CF_TEXT ;есть ли в буфере обмена текстовые данные в ASCII?
      test eax,eax
      jz endpaste ;если нет - выходим
 
      invoke OpenClipboard,hWnd ;откроем буфер обмена
      test eax,eax
      jz endpaste ;если не удалось открыть - выходим
 
      mov clipboard,FUNC(GetClipboardData,CF_TEXT) ;получаем указатель на первый байт памяти
      test eax,eax
      jz endpaste2 ;если не удалось - выходим и закрываем буфер
 
      invoke GlobalLock,eax ;блокируем память и получаем указатель на первый байт этой памяти
      test eax,eax
      jz endpaste2 ;если не удалось - выходим и закрываем буфер
 
      invoke SetDlgItemText,hWnd,1003,eax ;устанавливаем текст в поле для ввода из этой памяти
 
      invoke GlobalUnlock,clipboard ;разблокируем память
 
      endpaste2:
      invoke CloseClipboard ;закрываем буфер обмена
 
      endpaste: