;‚áïª ï ¢áï稭  á ­ å७ ç¥­  ;(c) RedArc ;PrintString - ¯¥ç âì áâப¨ ­  íªà ­ ;NewString - ¯¥à¥¢®¤ ªãàá®à  ­  ­®¢ãî áâபã ;About - ¢ë¢®¤ ¨­ä®à¬ æ¨¨ ® ⥪ã饩 ¢¥àᨨ  ­â¨¢¨àãá  ;Protocol - ä®à¬¨à®¢ ­¨¥ ¨ ¢ë¢®¤ ¯à®â®ª®«  ;PrintFileName - ¯¥ç âì ¨¬¥­¨ â¥áâ¨à㥬®£® ä ©«  ;PrintVirusName - ¯¥ç âì ¨¬¥­¨ ¢¨àãá  ;ClearVirusName - ®ç¨á⪠ ¨¬¥­¨ ¢¨àãá  ;ClearFileName - ®ç¨á⪠ ¨¬¥­¨ ä ©«  ;Clear12bytes - ®¡­ã«¥­¨¥ 12 ¡ ©â ;PrintOk - ¯¥ç âì á«®¢  Ok ;PrintAlert - ¯¥ç âì á«®¢  ˆ”…–ˆŽ‚€ ;CuredInfo - á®®¡é¥­¨¥ ® ⮬, çâ® ¢¨àãá ¢ë«¥ç¥­ ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PrintString proc near push ax mov ah,09h int 21h pop ax ret PrintString endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ NewString proc near push dx lea dx,CtrlEOF call PrintString pop dx ret NewString endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ About proc near push dx lea dx,AboutMsg call PrintString pop dx ret About endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Protocol proc near ; mov bx,ProtokolFHandle ; mov ah,3eh ; int 21h call NewString ret Protocol endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PrintFileName proc near push si di dx cx lea si,FileName call ClearFileName mov si,dx lea di,FileName push di mov cx,12 rep movsb pop dx call PrintString pop cx dx di si ret PrintFileName endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ClearVirusName proc near push ax cx di si lea si,VirusName call Clear12bytes pop si di cx ax ClearVirusName endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ClearFileName proc near push ax cx di si lea si,FileName call Clear12bytes pop si di cx ax ClearFileName endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Clear12bytes proc near mov di,si mov cx,6 xor ax,ax rep stosw ret Clear12bytes endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PrintVirusName proc near push si di dx cx lea si,VirusName call ClearVirusName mov si,dx lea di,VirusName push di mov cx,12 @PVN1: lodsb stosb cmp al,0 jne @PVN1 pop dx call PrintString pop cx dx di si ret PrintVirusName endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PrintOk proc near push dx lea dx,ClearMsg call PrintString call NewString pop dx ret PrintOk endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PrintAlert proc near push dx lea dx,AlertMsg call PrintString pop dx ret PrintAlert endp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ CuredInfo proc near push dx lea dx,CuredMsg call PrintString pop dx ret CuredInfo endp