असेंबलर में काफी है? यह सिर्फ है

यह ज्ञात है कि क्वीन (quine) एक कार्यक्रम है, जिसका परिणाम कार्यक्रम के पाठ का आउटपुट है। यह माना जाता है कि प्रोग्राम वाली फाइल एक्सेस नहीं की गई है।

Quines को लगभग सभी प्रोग्रामिंग भाषाओं में संकलित किया जा सकता है, कुछ विदेशी लोगों के संभावित अपवाद के साथ। कोडांतरक में एक क्वीन को संकलित करने के कार्य पर विचार करें, यह मानते हुए कि कार्यक्रम एक Win32 अनुप्रयोग होना चाहिए और एक विंडो में अपना पाठ प्रदर्शित करना चाहिए।

एक ही मशीन कोड को असेंबलर में अलग तरीके से दर्शाया जा सकता है। मान लें कि आप संख्या 48 को स्टैक पर धकेलना चाहते हैं। इसी दो-बाइट अनुदेश को mnemonically के रूप में लिखा जा सकता है

धक्का 48 (या धक्का 30h),

और डीबी डेटा निर्देश का उपयोग करना

db 06Ah, 030h (या db 106.48)।

विकल्प db 'j0' भी संभव है। इन सभी मामलों में, संकलन का परिणाम एक ही मशीन कोड में होता है। निर्देश के एक मात्रिक प्रतिनिधित्व युक्त एक असेंबलर क्वीन लिखना मुश्किल है - जाहिर है, कार्यक्रम की हजारों लाइनें आवश्यक होंगी। इसलिए, मुख्य विचार जिसे हम निर्देशित करेंगे, प्रपत्र में DB निर्देशों के साथ एक क्वीन प्राप्त कर रहा है

स्रोत 1

.386 .model flat,stdcall .code q: db 16-     .... db 16-     end q 

(MASM कोडांतरक का उपयोग किया जाता है)। मुश्किल यह है कि इस तरह की क्वीन को लिखना लगभग असंभव है - यह वास्तव में मशीन कोड में प्रोग्रामिंग है। हालांकि, आप साधारण असेंबलर mnemonics का उपयोग करके एक प्रोग्राम लिखकर शुरू कर सकते हैं - नीचे स्रोत 2 देखें। यह ध्यान रखना महत्वपूर्ण है कि सूत्रों 1 और 2 को संकलित करना एक ही मशीन कोड का उत्पादन करता है।

स्रोत 2

 ; @echo off ; ml /c /coff quine.cmd ; pause ; if errorlevel 1 goto exit ; link /subsystem:windows /section:.text,RW quine.obj ; pause ; del quine.obj ; goto exit .386 .model flat,stdcall option casemap:none include \masm32\include\windows.inc bStr = 25 ; - ,      qLen = len * 5 + (len / bStr + 1) * 4 + len1 + 10 ;    stLen = (qLen / 1000h + 1) * 1000h ;       .code ; ***  1 -      *** start: cld mov edx,[esp] ;   kernel32.dll -   2 sub esp,stLen ;     mov edi,esp mov stAddr,edi lea esi,text xor ecx,ecx mov cl,len1 rep movsb ;   '.386 .model flat ...' lea esi,start mov bl,bStr cycl: mov eax,ecx ;  .  ? div bl or ah,ah jnz comma mov ax,0A0Dh ;  -      db stosw mov eax,' bd' stosd dec edi jmp j1 comma: mov al,',' ;  -  ,   stosb j1: mov al,'h' ;  16-   -  h shl eax,16 lodsb mov ah,al and al,0Fh cmp al,10 sbb al,69h das ;    xchg al,ah shr al,4 cmp al,10 sbb al,69h das ;   shl eax,8 mov al,'0' ;  0 stosd inc ecx cmp ecx,len jb cycl mov ax,0A0Dh ;   'end q' stosw mov eax,' dne' stosd mov eax,'q' stosd ; ***  2 -   API  *** xor dx,dx c2: cmp word ptr [edx],'ZM' ; MZ-  kernel32? je c1 c3: sub edx,10000h jmp c2 c1: mov ecx,[edx+3Ch] cmp dword ptr [edx+ecx],'EP' ; PE-? jne c3 mov ecx,[edx+ecx+78h] add ecx,edx ;    kernel32 push ecx mov eax,[ecx+20h] add eax,edx ;      xor ebx,ebx xor ecx,ecx cycl2: mov esi,[eax+4*ebx] add esi,edx lea edi,GPAname mov cl,len2 repe cmpsb ;   GetProcAddress je found inc ebx jmp cycl2 found: pop ecx mov eax,[ecx+24h] add eax,edx mov bx,[eax+2*ebx] ;   GetProcAddress mov eax,[ecx+1ch] add eax,edx mov ebx,[eax+4*ebx] add ebx,edx mov edi,edx ; EBX -  GetProcAddress ; EDI -   kernel32 (  - user32) xor ecx,ecx ;     mov cl,tlen lea esi,tbl cycl3: cmp cl,tlen-tlen2 jne j2 push ecx push offset DLLname call eax ;  user32.dll    LoadLibrary pop ecx mov edi,eax j2: dec cl push ecx push [esi+4*ecx] push edi call ebx ;      GetProcAddress pop ecx mov [esi+4*ecx],eax or cl,cl jnz cycl3 ; ***  3 -     MessageBox *** push NULL call dword ptr _GetModuleHandle mov hInst,eax call dword ptr _GetCurrentThreadId push eax push NULL push offset hProc push WH_CBT ;      call dword ptr _SetWindowsHookEx mov hook,eax push MB_OK push offset capt push stAddr push 0 call dword ptr _MessageBox ;     push 0 call dword ptr _ExitProcess ; *** hProc proc code:dword,wParam:dword,lParam:dword ;   local coord:RECT pusha cmp code,HCBT_ACTIVATE ;  ? jne exit push 0FFFFh push wParam call dword ptr _GetDlgItem mov ebx,eax ;    lea eax,coord push eax push ebx call dword ptr _GetClientRect ;    add coord.right,20 push NULL push NULL push WM_GETFONT push ebx mov edi,_SendMessage call edi ;    mov esi,eax push SW_HIDE push ebx call dword ptr _ShowWindow ;   push NULL push hInst push 0FFFFh push wParam push coord.bottom push coord.right push coord.top push coord.left push WS_CHILD+WS_VISIBLE+ES_MULTILINE+ES_READONLY push stAddr push offset cname push WS_EX_WINDOWEDGE call dword ptr _CreateWindowEx ;  EDIT  STATIC ;  ,       push NULL push esi push WM_SETFONT push eax call edi ;   push hook call dword ptr _UnhookWindowsHookEx ;   popa xor eax,eax ret exit: popa push lParam push wParam push code push hook call dword ptr _CallNextHookEx ;    ret hProc endp ; ***   capt db 'Quine',0 ;   GPAname db 'GetProcAddress',0 len2 equ $ - GPAname GDIname db 'GetDlgItem',0 ;    GCRname db 'GetClientRect',0 SMname db 'SendMessageA',0 SWname db 'ShowWindow',0 CWEname db 'CreateWindowExA',0 UWHEname db 'UnhookWindowsHookEx',0 CNHEname db 'CallNextHookEx',0 SWHEname db 'SetWindowsHookExA',0 MBname db 'MessageBoxA',0 LLname db 'LoadLibraryA',0 GMHname db 'GetModuleHandleA',0 GCTIname db 'GetCurrentThreadId',0 EPname db 'ExitProcess',0 DLLname db 'user32.dll',0 cname db 'EDIT',0 ;   text db '.386',13,10,'.model flat,stdcall',13,10,'.code',13,10,'q:' ;   len1 equ $ - text tbl label dword ;    ,     _GetDlgItem dd offset GDIname ;   user32.dll _GetClientRect dd offset GCRname _SendMessage dd offset SMname _ShowWindow dd offset SWname _CreateWindowEx dd offset CWEname _UnhookWindowsHookEx dd offset UWHEname _CallNextHookEx dd offset CNHEname _SetWindowsHookEx dd offset SWHEname _MessageBox dd offset MBname tbl2 label dword _LoadLibrary dd offset LLname ;   kernel32.dll _GetModuleHandle dd offset GMHname _GetCurrentThreadId dd offset GCTIname _ExitProcess dd offset EPname tlen2 equ ($-tbl2) / 4 tlen equ ($-tbl) / 4 ;   len equ $ - start ;   ; ***  ,     hInst dd ? ;   hook dd ? ;   stAddr dd ? ;      end start :exit 

पाठ में टिप्पणियों से ऑपरेशन का सिद्धांत स्पष्ट है। हम केवल इस बात पर ध्यान देते हैं कि कार्यक्रम में तीन भाग हैं। पहले भाग में, स्टैक पर एक क्वीन टेक्स्ट बनता है (यानी स्रोत 1)। एकल db निर्देश (इसलिए रानी स्ट्रिंग चौड़ाई) द्वारा परिभाषित बाइट्स की संख्या bStr स्थिरांक द्वारा निर्धारित की जाती है - यह 25 पर सेट है। चूंकि संकलन के दौरान कोई एपीआई फ़ंक्शन आयात नहीं किया जाता है, इसलिए कई कार्यों के पते दूसरे भाग में गतिशील रूप से निर्धारित किए जाते हैं। सबसे पहले, यह GetProcAddress फ़ंक्शन का पता है, जो कर्नेल 32.dll मॉड्यूल निर्यात तालिका को ट्रेस करके प्राप्त किया गया है। फिर, GetProcAddress का उपयोग करके प्राप्त किए गए बाकी कार्यों के पते। अंत में, तीसरे भाग में, क्वान संदेशबॉक्स विंडो में आउटपुट है। चूंकि डिफ़ॉल्ट पाठ स्थिर है और इसे कहीं भी कॉपी नहीं किया जा सकता है, एक अतिरिक्त हुक स्थापित किया गया है जो आपको विंडो से पाठ को कॉपी करने की अनुमति देता है। क्वीन के तीसरे भाग के लिए अन्य विकल्प हैं, उदाहरण के लिए, एक संदेश कतार बनाकर और एक विंडो फ़ंक्शन लिखकर।

तो, स्रोत 2 (जो कि क्वीन नहीं है) को बैच फ़ाइल quine.cmd में सहेजा जाना चाहिए और इसे चलाना चाहिए - यह निष्पादन योग्य फ़ाइल quine.exe को चालू करता है। अगला, quine.exe लॉन्च किया गया है, और दिखाई देने वाली विंडो से, माउस चयनित होने के साथ, टेक्स्ट को quine.asm फ़ाइल पर कॉपी करें। निष्पादन योग्य फ़ाइल को हटाया जा सकता है। इस प्रकार, quine.asm में - एक पूर्ण क्वीन (स्रोत 1 देखें)। इसका उपयोग करके प्रसारण किया जाता है

ml / c / coff quine.asm

लेकिन के साथ जुड़ा हुआ है

लिंक / सबसिस्टम: विंडोज़ / सेनेटर:। टेक्स्ट / आरडब्ल्यू क्वीन.बॉज

(राइट को कोड सेक्शन में अनुमति दी जानी चाहिए)। कोड का लेन अनुभाग 820 बाइट्स था।

मैंने एक टर्बो डिबगर के साथ कार्यक्रम को डिबग किया, लेकिन एक ही समय में लाइन को शामिल किया

ExitProcess, 0 को आमंत्रित करें

प्रवेश बिंदु शुरू होने से पहले (आप कोई अन्य फ़ंक्शन ले सकते हैं), और लाइन

\ masm32 \ शामिल \ \ कर्नेल 32.inc
इनकेलीब \ masm32 \ lib \ k गिर्ल 32.लिब

अन्यथा, डिबगर फ्रीज़ करता है - जाहिरा तौर पर, निष्पादन योग्य फ़ाइल में आयात तालिका की कमी के कारण।