Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2017
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 2.30 KB | None | 0 0
  1. COLOR 12
  2. PRINT "                   ++++++++++++++++++++++++++++++++++++++++++                         "
  3. PRINT "                    Welcome to Ayoub Mini Antivirus V 1.0!                           "
  4. PRINT "                   ++++++++++++++++++++++++++++++++++++++++++                         "
  5. antv:
  6. PRINT "---options--- "
  7. color 7
  8. PRINT "+++++++++++++++++++++++++++++++++"
  9. PRINT " 1->anti anti-mypictur virus "
  10. PRINT "------------------------------"
  11. PRINT " 2->anti-autorun "
  12. PRINT "------------------------------"
  13. PRINT " 3->anti-msn virus "
  14. PRINT "-------------------------------"
  15. PRINT " 4->anti-net worm "
  16. PRINT "--------------------------------"
  17. PRINT " 5->ATF cleaner "
  18. PRINT "--------------------------------"
  19. PRINT " 6->hide your ip with msdos"
  20. PRINT "--------------------------------"
  21. PRINT " 7->un hide your ip "
  22. PRINT "++++++++++++++++++++++++++++++++++"
  23. INPUT "--- what would you like to do ---"; c
  24. IF c = 1 THEN
  25.     SHELL"attrib -s -r -h c:\systems.com"
  26.     SHELL"del c:\systems.com"
  27.     SHELL"attrib -s -r -h c:\MyPictures.exe"
  28.     SHELL"attrib -s -r -h c:\RECYCLER\systems.com"
  29.     SHELL"del c:\RECYCLER\systems.com"
  30.     SHELL"attrib -s -r -h c:\WINDOWS\system32\taskmger.com"
  31.     SHELL"del c:\WINDOWS\system32\taskmger.com"
  32.     SHELL"rd c:\recycler"
  33.     SHELL"cregedit.exe  enable.reg"
  34.     color 10
  35.     PRINT "cleaninig finish successfully"
  36.     GOTO antv
  37.     color 7
  38.     ELSEIF c = 2 THEN
  39.     SHELL " attrib -s -h -r c:\autorun.inf "
  40.     SHELL "attrib -s -h -r c:\ntdelect.com"
  41.     SHELL"del c:\autorun.inf"
  42.     SHELL"del c:\ntdelect.com "
  43.     SHELL"attrib -s -h -r c:\windows\system32\kavo.exe"
  44.     SHELL"del c:\windows\system32\kavo.exe"
  45.     ELSEIF c = 3 THEN
  46.     SHELL "start mvk"
  47.     color 10
  48.     PRINT" cleaninig finish successfully "
  49.     GOTO antv
  50.     color 7
  51.     ELSEIF c = 4  THEN
  52.     SHELL "start nwk"
  53.     ELSEIF c = 5 THEN
  54.     SHELL "start ATF
  55.    color 10
  56.    print "cleaninig finish successfully"
  57.    goto antv
  58.    color 7
  59.    elseif c = 6 then
  60.    shell " NET CONFIG SERVER /hidden:yes "
  61.    goto antv
  62.    color 7
  63.    print " ip hidded "
  64.    color 10
  65.    elseif c = 7 then
  66.    shell " NET CONFIG SERVER /hidden:no "
  67.    goto antv
  68.    color 7
  69.    print "ip unhidded"
  70.    color 10
  71.    else
  72.    print "please enter a nember from 1-->7"
  73.    goto antv
  74. end if
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement