'===========================================================================
' Subject: FAKE VIRUS                         Date: 02-17-00 (21:25)       
'  Author: Asheesh Bajracharya                Code: QB, QBasic, PDS        
'  Origin: horizon@mos.com.np               Packet: MISC.ABC
'===========================================================================
'  This program was create by ASHEESH BAJRACHARYA
'     (  USE at YOUR OWN RISK  )
'        --------------------
'  This is a simple program that may be freely distributed.
'       You may use it or edit it for a better purpose.
' If anyone can edit it to make it better .E-mail me the program
' at asheesh@spacemail.com
'       I AM NOT RESPONSIBLE IF SOMEONE EDITS THIS PROGRAM
' TO ACTUALL CAUSE DESTRUCTION TO COMPUTER,THAT IS NOT MY INTENTION
'
'Note : The Hard Disk access light which will glow when fake formating
'       takes place is create by opening a file and closing. DO NOT PANIC.
'
'
'
DECLARE SUB DELAY (SEC%)
DECLARE SUB main ()
DECLARE FUNCTION MouseInit% ()
DECLARE SUB MouseStatus (lb%, RB%, xMouse%, yMouse%)
DECLARE SUB MousePut (x%, y%)
DECLARE SUB Mousehide ()
DECLARE SUB MouseDriver (ax%, bx%, cx%, dx%)
DECLARE SUB mouseshow ()
DEFINT A-Z: DEF SEG = &HA000:
DIM SHARED mouse$: mouse$ = SPACE$(57)
DIM SHARED s%(9000)
DIM SHARED s2%(900)
DIM SHARED asd%(10500)
DIM SHARED s3%(1300)
main

''''''''''ASSEMBLY ROUTINE

DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B
DATA 5E,08,8B,0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53
DATA 8B,5E,0C,89,07,58,8B,5E,0A,89,07,8B,5E,08,89,0F
DATA 8B,5E,06,89,17,5D,CA,08,00

SUB DELAY (SEC)
SOUND 0, SEC

END SUB

SUB main
LOCATE , , 0
xa = 170: ya = 170
RANDOMIZE TIMER
CLS
SCREEN 12
COLOR 14
PRINT " QWERTY.2000 Virus Activated    "
PRINT
COLOR 7
PRINT "  This Program Has Been Infected"
PRINT "and will DESTROY YOUR PC. Click"
PRINT "[OK] to Continue OR [CANCEL] to"
PRINT "Terminate                    ."
LOCATE 6, 11: COLOR 15: PRINT "(*only if you can*)"
PRINT
COLOR 8
PRINT "OK       CANCEL"
COLOR 11
PRINT "Ha! Ha..! YOU Cannot CANCEL Me"
GET (0, 0)-(257, 95), s%
GET (0, 112)-(120, 125), s2%
GET (0, 127)-(255, 142), s3%

CLS
LINE (xa - 2, ya - 2)-(xa + 262, ya + 142), 8, B'''main
LINE (xa, ya)-(xa + 260, ya + 140), 7, BF       '''main
LINE (xa - 3, ya - 3)-(xa + 263, ya + 143), 15, B
LINE (xa - 4, ya - 4)-(xa + 264, ya + 144), 15, B

LINE (xa, ya)-(xa + 260, ya + 16), 9, BF
LINE (xa + 1, ya + 1)-(xa + 260 - 1, ya + 16 - 1), 1, BF
''''''''''''''
LINE (xa + 178, ya + 118)-(xa + 260 - 5, ya + 136), 15, B
LINE (xa + 179, ya + 119)-(xa + 260 - 5, ya + 136), 0, B

LINE (xa + 92, ya + 118)-(xa + 170, ya + 136), 15, B
LINE (xa + 93, ya + 119)-(xa + 170, ya + 136), 0, B
PUT (xa + 2, ya + 1), s%
PUT (xa + 123, ya + 120), s2%

GET (xa - 5, ya - 5)-(xa + 265, ya + 145), asd%
CLS
PUT (xa, ya), asd%

FOR I% = 1 TO 57:  READ A$:  H$ = CHR$(VAL("&H" + A$))
MID$(mouse$, I%, 1) = H$: NEXT I%
RESTORE
ms% = MouseInit%
IF NOT ms% THEN
  PRINT "Mouse not found"
  END
END IF
mouseshow
CLS

PUT (xa, ya), asd%, PSET
DO
MouseStatus lb, RB, x, y
''''''''
LOCATE 30, 1
COLOR 4
PRINT "  Clicking [OK] button will plant a virus that will erase you Hard Drive";
MouseDriver 3, bx%, cx%, dx%
COLOR 15

x22% = x: y22% = y

IF lb = -1 THEN
IF cx% > xa + 97 AND cx% < xa + 175 THEN
IF dx% > ya + 125 AND dx% < ya + 140 THEN
LINE (xa + 97, ya + 123)-(xa + 174, ya + 140), 0, B
LINE (xa + 98, ya + 124)-(xa + 175, ya + 140), 15, B
SLEEP 1
10 CLS
SCREEN 0
LOCATE , , 1, 5
LOCATE 1, 2: COLOR 14: PRINT "YOU ARE  A  BRAVE/RISKY   G U Y to have choosen that and NOW SUFFER IT."
LOCATE 2, 2: COLOR 13: PRINT "I AM PLANTING A VIRUS NOW! YOUR PC is DOOMED"
COLOR 7 + 16, 0
PRINT "DO NOT TERMINATING UNTIL HARD DISK ACCESS LIGHT GOES OFF"
PRINT "OTHERWISE THE PROCESS MAY DESTROY HARD DISK PERMANENTALY."
PRINT
SLEEP 2
COLOR 7
PRINT "QUICK FORMATTING HARD DISK SECTORS:";

CLOSE
'''''''''CAUSE  THE  HARD DISK ACCESS  LIGHT TO GLOW
'''''''''TO CREATE THE EFFECT OF HARD DISK FORMAT

FOR I2 = 1 TO 100
RESET
OPEN "C:\DELETEME.TMP" FOR OUTPUT AS #1
PRINT #1, "IF YOU SEE THIS FIL DELETE IT CAUSE THIS IS JUST A TEMPORARY FILE."
CLOSE #1
DELAY 1.5
LOCATE 6, 37: PRINT I2; "%";
A2$ = INKEY$
NEXT
CLOSE
KILL "C:\DELETEME.TMP"

COLOR 9
PRINT "  Done"
COLOR 7, 0
SLEEP 1
CLS
PRINT "C:\COMMAND.COM"
PRINT "Bad command or filename"
PRINT
PRINT "C:\";
LOCATE , , 1
ap$ = INPUT$(1)
LOCATE 7, 9: COLOR 14: PRINT "DO NOT PANIC "
LOCATE 8, 9: COLOR 14: PRINT "I WAS JUST  KIDDING  ABOUT A VIRUS "
LOCATE 9, 9: COLOR 14: PRINT "Your Hard disk is SAFE (maybe)"
LOCATE 15, 9: COLOR 15: PRINT "Created By :ASHEESH BAJRACHARYA"
A$ = INPUT$(1)
END
END IF
END IF
END IF

IF cx% > xa + 85 + 90 AND cx% < xa + 265 THEN
IF dx% > ya + 105 AND dx% < ya + 148 THEN
Mousehide
LINE (xa - 10, ya - 10)-(xa + 290, ya + 150), 0, BF
xa = INT(RND * 300)
ya = INT(RND * 300)
PUT (xa, ya), asd%, PSET
PUT (xa + 10, ya + 20), s3%
mouseshow
MousePut x22%, y22%
END IF
END IF
ASDFG$ = INKEY$
LOOP UNTIL UCASE$(ASDFG$) = "A"
CLS
SCREEN 0
LOCATE 7, 9: COLOR 14: PRINT "DO NOT PANIC "
LOCATE 8, 9: COLOR 14: PRINT "I WAS JUST  KIDDING  ABOUT A VIRUS "
LOCATE 9, 9: COLOR 14: PRINT "Your Hard disk is SAFE (maybe)"
LOCATE 15, 9: COLOR 15: PRINT "Created By :ASHEESH BAJRACHARYA"
A$ = INPUT$(1)


END SUB

DEFLNG A-Z
SUB MouseDriver (ax%, bx%, cx%, dx%)
  DEF SEG = VARSEG(mouse$)
  mouse% = SADD(mouse$)
  CALL Absolute(ax%, bx%, cx%, dx%, mouse%)
END SUB

SUB Mousehide
 ax% = 2
 MouseDriver ax%, 0, 0, 0
END SUB

FUNCTION MouseInit%
  ax% = 0
  MouseDriver ax%, 0, 0, 0
  MouseInit% = ax%
END FUNCTION

SUB MousePut (x%, y%)
  ax% = 4
  cx% = x%
  dx% = y%
  MouseDriver ax%, 0, cx%, dx%
END SUB

SUB mouseshow
  ax% = 1
  MouseDriver ax%, 0, 0, 0
END SUB

SUB MouseStatus (lb%, RB%, xMouse%, yMouse%)
  ax% = 3
  MouseDriver ax%, bx%, cx%, dx%
  lb% = ((bx% AND 1) <> 0)
  RB% = ((bx% AND 2) <> 0)
  xMouse% = cx%
  yMouse% = dx%
END SUB