Creare Keygen Originali

Data

by "Death_Reaver"

28/06/2005

UIC's Home Page

Published by Quequero

Ma qua sotto che ci va?

Mitico! :)

Ci stanno sempre i soliti 4 puntini….

....

Home page (se presente):NADA

E-mail: [email protected]

Nick, UIN, canale IRC/EFnet frequentato

....

Difficoltà

( )NewBies (*)Intermedio (*)Avanzato ( )Master

include Death_Reaver.inc                   ;il mio include file,contiene le direttive (.486, model etc.), gli ;include e le librerie

.data

   ClassName db "MainWinClass",0

   AppName  db "UIC",0

   tipo db "RGN",0        ;nome classe region

   nomeres db "regione",0      ;nome associato alla region

   btnclass db "BUTTON",0

   ics db "X",0             ;testo per il pulsante di chiusura

.const

sfondo equ 401           ;ID della bitmap

.data?

   hInstance dd ?

   CommandLine dd ?

   hbmp dd ?        ;handle della bitmap

   hrgn dd ?        ;handle della region

   hrr dd ?         ;ID della region

   siz dd ?         ;variabile per conservare la grandezza dell’immagine

   hbutton dd ?     ;handle del pulsante

.code

start:

      invoke GetModuleHandle, NULL

      mov    hInstance,eax

      invoke GetCommandLine

      mov    CommandLine,eax

      invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT

      invoke ExitProcess,eax

WinMain proc hInst:DWORD,hPrevInst:DWORD,CmdLine:DWORD,CmdShow:DWORD

      LOCAL wc:WNDCLASSEX

      LOCAL msg:MSG

      LOCAL hwnd:HWND

      mov   wc.cbSize,SIZEOF WNDCLASSEX

      mov   wc.style, CS_HREDRAW or CS_VREDRAW or CS_BYTEALIGNWINDOW

      mov   wc.lpfnWndProc, OFFSET WndProc

      mov   wc.cbClsExtra,NULL

      mov   wc.cbWndExtra,NULL

      push  hInstance

      pop   wc.hInstance

      invoke LoadBitmap,hInst,401                  ;Carichiamo la bitmap

      invoke CreatePatternBrush,eax                

      mov   wc.hbrBackground,eax                     ;e  mettiamo come sfondo

      mov   wc.lpszMenuName,NULL

      mov   wc.lpszClassName,OFFSET ClassName

      invoke LoadIcon,NULL,IDI_APPLICATION

      mov   wc.hIcon,eax

      mov   wc.hIconSm,eax

      invoke LoadCursor,NULL,IDC_ARROW

      mov   wc.hCursor,eax

      invoke RegisterClassEx, addr wc

      INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,\       ;creiamo una finestra col solo stile WS_POPUP

           WS_POPUP,CW_USEDEFAULT,\

           CW_USEDEFAULT,250,250,NULL,NULL,\

           hInst,NULL

      mov   hwnd,eax

     INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR ics,\       ;creiamo una il pulsante di chiusura

           WS_CHILD or WS_VISIBLE or BS_FLAT,197,\

           45,18,18,hwnd,NULL,\

           hInst,NULL

      mov   hbutton,eax

      invoke ShowWindow, hwnd,SW_SHOWNORMAL

      invoke UpdateWindow, hwnd

      .WHILE TRUE

            invoke GetMessage, ADDR msg,NULL,0,0

            .BREAK .IF (!eax)

            invoke TranslateMessage, ADDR msg

            invoke DispatchMessage, ADDR msg

      .ENDW

      mov     eax,msg.wParam

      ret

WinMain endp

WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM

      .if uMsg==WM_DESTROY

            invoke PostQuitMessage,NULL

      .elseif uMsg==WM_CREATE

            invoke FindResource,hInstance,ADDR nomeres,ADDR tipo       ;Cerchiamo la region

            mov hrr,eax       ;ne depositiamo la posizione per uso futuro

            invoke LoadResource,hInstance,eax        ;la carichiamo nel programma

            mov hrgn,eax                  ;salviamo l’handle

            invoke SizeofResource,hInstance,hrr     ;prendiamo la grandezza della region

            mov siz,eax                ;e la salviamo

            invoke LockResource,hrgn       ;blocchiamo la region in memoria

            invoke ExtCreateRegion,NULL,siz,eax    ;creiamo la regione da quella salvata in memoria

            invoke SetWindowRgn,hWnd,eax,TRUE     ;la applichiamo alla finestra

           INVOKE CreateWindowEx,NULL,ADDR btnclass,ADDR ics,\      

                   WS_VISIBLE or WS_PUSHBUTTON or WS_CHILD,125,\

                   125,18,18,hwnd,NULL,hInst,NULL

           mov   hbutton,eax

          ;########################################################

          ;qui inserite il codice per creare le varie edit e button

          ;########################################################

      .elseif uMsg==WM_COMMAND

           Mov eax,wParam

           Mov edx,lParam

           Cmp edx,hbutton

           Jnz Fine

           Shr eax,10h

           Cmp ax,BN_CLICKED

           Jnz Fine

           Invoke SendMessage,hwnd,WM_DESTROY,0,0

           Fine:

      .elseif uMsg==WM_LBUTTONDOWN

            invoke SendMessage,hWnd,WM_NCLBUTTONDOWN,HTCAPTION,lParam    ;IMPORTANTE: facciamo si che quando si

      .else                                                              ;trascina, la finestra pensi che il ;puntatore

            invoke DefWindowProc,hWnd,uMsg,wParam,lParam                ;del mouse sia sulla caption, in modo da

            ret                                                          ;muovere la finestra

      .endif

      xor eax,eax

      ret

WndProc endp

end start