API tools faq
paste
Advertisement
ksamk_99491

3h5

ksamk_99491
Dec 19th, 2019
787
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 22.89 KB | None | 0 0
raw download clone embed print report
  1. Link Beds Protector v1.4.1 :
  2. https://github.com/BedTheGod/ConfuserEx-Mod-By-Bed/releases/download/V1.4.1/bin.rar
  3.  
  4. _____________________________________________________________Code______________________________________________________________________
  5.  
  6. Private b As Process
  7. Private c As ProcessStartInfo
  8. Private d As String
  9. Private e As String
  10. Private f As String
  11. Private g As String
  12. Private h As String
  13. Private i As String
  14.  
  15.  
  16.  
  17. Private Sub Form1_Load(sender As Object, e As EventArgs)
  18. Me.Timer1.Start()
  19. End Sub
  20.  
  21.  
  22.  
  23. Public Sub New()
  24. AddHandler MyBase.Load, AddressOf Me.Form1_Load
  25. Me.b = New Process()
  26. Me.c = New ProcessStartInfo()
  27. Me.d = " ███████╗██╗ ██╗ ███████╗███████╗ ██████╗██╗ ██╗██████╗ ██╗████████╗██╗ ██╗"
  28. Me.e = " ╚══███╔╝╚██╗██╔╝ ██╔════╝██╔════╝██╔════╝██║ ██║██╔══██╗██║╚══██╔══╝╚██╗ ██╔╝"
  29. Me.f = " ███╔╝ ╚███╔╝ ███████╗█████╗ ██║ ██║ ██║██████╔╝██║ ██║ ╚████╔╝"
  30. Me.g = " ███╔╝ ██╔██╗ ╚════██║██╔══╝ ██║ ██║ ██║██╔══██╗██║ ██║ ╚██╔╝"
  31. Me.h = " ███████╗██╔╝ ██╗ ███████║███████╗╚██████╗╚██████╔╝██║ ██║██║ ██║ ██║"
  32. Me.i = " ╚══════╝╚═╝ ╚═╝ ╚══════╝╚══════╝ ╚═════╝ ╚═════╝ ╚═╝ ╚═╝╚═╝ ╚═╝ ╚═╝"
  33. Me.InitializeComponent()
  34. End Sub
  35. Private Sub Timer1_Tick(sender As Object, e As EventArgs)
  36. While True
  37. For Each process As Process In Process.GetProcesses()
  38. Dim flag As Boolean = Operators.CompareString(process.ProcessName, "Fiddler", False) = 0
  39. If flag Then
  40. process.Kill()
  41. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ Fiddler ] , TheEpicZx @3h5" })
  42. Me.c.FileName = "cmd.exe"
  43. Me.b.StartInfo = Me.c
  44. Me.b.Start()
  45. ProjectData.EndApp()
  46. End If
  47. Dim flag2 As Boolean = Operators.CompareString(process.ProcessName, "ProcessHacker", False) = 0
  48. If flag2 Then
  49. process.Kill()
  50. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ Process Hacker ] , TheEpicZx @3h5" })
  51. Me.c.FileName = "cmd.exe"
  52. Me.b.StartInfo = Me.c
  53. Me.b.Start()
  54. ProjectData.EndApp()
  55. End If
  56. Dim flag3 As Boolean = Operators.CompareString(process.ProcessName, "Wireshark", False) = 0
  57. If flag3 Then
  58. process.Kill()
  59. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ Wireshark ] , TheEpicZx @3h5" })
  60. Me.c.FileName = "cmd.exe"
  61. Me.b.StartInfo = Me.c
  62. Me.b.Start()
  63. ProjectData.EndApp()
  64. End If
  65. Dim flag4 As Boolean = Operators.CompareString(process.ProcessName, "MegaDumper", False) = 0
  66. If flag4 Then
  67. process.Kill()
  68. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ MegaDumper ] , TheEpicZx @3h5" })
  69. Me.c.FileName = "cmd.exe"
  70. Me.b.StartInfo = Me.c
  71. Me.b.Start()
  72. ProjectData.EndApp()
  73. End If
  74. Dim flag5 As Boolean = Operators.CompareString(process.ProcessName, "OLLYDBG", False) = 0
  75. If flag5 Then
  76. process.Kill()
  77. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ OLLYDBG ] , TheEpicZx @3h5" })
  78. Me.c.FileName = "cmd.exe"
  79. Me.b.StartInfo = Me.c
  80. Me.b.Start()
  81. ProjectData.EndApp()
  82. End If
  83. Dim flag6 As Boolean = Operators.CompareString(process.ProcessName, "OLLY", False) = 0
  84. If flag6 Then
  85. process.Kill()
  86. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ OLLY ] , TheEpicZx @3h5" })
  87. Me.c.FileName = "cmd.exe"
  88. Me.b.StartInfo = Me.c
  89. Me.b.Start()
  90. ProjectData.EndApp()
  91. End If
  92. Dim flag7 As Boolean = Operators.CompareString(process.ProcessName, "Reflector", False) = 0
  93. If flag7 Then
  94. process.Kill()
  95. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ Reflector ] , TheEpicZx @3h5" })
  96. Me.c.FileName = "cmd.exe"
  97. Me.b.StartInfo = Me.c
  98. Me.b.Start()
  99. ProjectData.EndApp()
  100. End If
  101. Dim flag8 As Boolean = Operators.CompareString(process.ProcessName, "HTTPDebuggerSvc", False) = 0
  102. If flag8 Then
  103. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ HTTPDebuggerSvc ] , TheEpicZx @3h5" })
  104. Me.c.FileName = "cmd.exe"
  105. Me.b.StartInfo = Me.c
  106. Me.b.Start()
  107. ProjectData.EndApp()
  108. End If
  109. Dim flag9 As Boolean = Operators.CompareString(process.ProcessName, "dnSpy", False) = 0
  110. If flag9 Then
  111. process.Kill()
  112. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ dnSpy ] , TheEpicZx @3h5" })
  113. Me.c.FileName = "cmd.exe"
  114. Me.b.StartInfo = Me.c
  115. Me.b.Start()
  116. ProjectData.EndApp()
  117. End If
  118. Dim flag10 As Boolean = Operators.CompareString(process.ProcessName, "dnSpy-x86", False) = 0
  119. If flag10 Then
  120. process.Kill()
  121. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ dnSpy-x86 ] , TheEpicZx @3h5" })
  122. Me.c.FileName = "cmd.exe"
  123. Me.b.StartInfo = Me.c
  124. Me.b.Start()
  125. ProjectData.EndApp()
  126. End If
  127. Dim flag11 As Boolean = Operators.CompareString(process.ProcessName, "Cheat Engine", False) = 0
  128. If flag11 Then
  129. process.Kill()
  130. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ Cheat Engine ] , TheEpicZx @3h5" })
  131. Me.c.FileName = "cmd.exe"
  132. Me.b.StartInfo = Me.c
  133. Me.b.Start()
  134. ProjectData.EndApp()
  135. End If
  136. Dim flag12 As Boolean = Operators.CompareString(process.ProcessName, "cheatengine-i386", False) = 0
  137. If flag12 Then
  138. process.Kill()
  139. Dim processStartInfo As ProcessStartInfo = Me.c
  140. Dim array As String() = New String(12) {}
  141. array(0) = " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO "
  142. array(1) = Me.d
  143. array(2) = " & ECHO "
  144. array(3) = Me.e
  145. array(4) = " & ECHO "
  146. array(5) = Me.f
  147. array(6) = " & ECHO "
  148. Dim num As Integer = 7
  149. Dim text As String = Me.g
  150. array(num) = text
  151. array(8) = " & ECHO "
  152. array(9) = Me.h
  153. array(10) = " & ECHO "
  154. array(11) = Me.i
  155. array(12) = " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ cheatengine-i386 ] , TheEpicZx @3h5"
  156. processStartInfo.Arguments = String.Concat(array)
  157. Me.c.FileName = "cmd.exe"
  158. Me.b.StartInfo = Me.c
  159. Me.b.Start()
  160. ProjectData.EndApp()
  161. End If
  162. Dim flag13 As Boolean = Operators.CompareString(process.ProcessName, "cheatengine-x86_64", False) = 0
  163. If flag13 Then
  164. process.Kill()
  165. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ cheatengine-x86_64 ] , TheEpicZx @3h5" })
  166. Me.c.FileName = "cmd.exe"
  167. Me.b.StartInfo = Me.c
  168. Me.b.Start()
  169. ProjectData.EndApp()
  170. End If
  171. Dim flag14 As Boolean = Operators.CompareString(process.ProcessName, "cheatengine", False) = 0
  172. If flag14 Then
  173. process.Kill()
  174. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ cheatengine ] , TheEpicZx @3h5" })
  175. Me.c.FileName = "cmd.exe"
  176. Me.b.StartInfo = Me.c
  177. Me.b.Start()
  178. ProjectData.EndApp()
  179. End If
  180. Dim flag15 As Boolean = Operators.CompareString(process.ProcessName, "Task Manager", False) = 0
  181. If flag15 Then
  182. process.Kill()
  183. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ Task Manager ] , TheEpicZx @3h5" })
  184. Me.c.FileName = "cmd.exe"
  185. Me.b.StartInfo = Me.c
  186. Me.b.Start()
  187. ProjectData.EndApp()
  188. End If
  189. Dim flag16 As Boolean = Operators.CompareString(process.ProcessName, "Sysinternals Process Explorer", False) = 0
  190. If flag16 Then
  191. process.Kill()
  192. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ Sysinternals Process Explorer ] , TheEpicZx @3h5" })
  193. Me.c.FileName = "cmd.exe"
  194. Me.b.StartInfo = Me.c
  195. Me.b.Start()
  196. ProjectData.EndApp()
  197. End If
  198. Dim flag17 As Boolean = Operators.CompareString(process.ProcessName, "cheatengine-x86", False) = 0
  199. If flag17 Then
  200. process.Kill()
  201. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ cheatengine-x86 ] , TheEpicZx @3h5" })
  202. Me.c.FileName = "cmd.exe"
  203. Me.b.StartInfo = Me.c
  204. Me.b.Start()
  205. ProjectData.EndApp()
  206. End If
  207. Dim flag18 As Boolean = Operators.CompareString(process.ProcessName, "cheatengine-x64", False) = 0
  208. If flag18 Then
  209. process.Kill()
  210. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ cheatengine-x64 ] , TheEpicZx @3h5" })
  211. Me.c.FileName = "cmd.exe"
  212. Me.b.StartInfo = Me.c
  213. Me.b.Start()
  214. ProjectData.EndApp()
  215. End If
  216. Dim flag19 As Boolean = Operators.CompareString(process.ProcessName, "Fiddler", False) = 0
  217. If flag19 Then
  218. process.Kill()
  219. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ Fiddler ] , TheEpicZx @3h5" })
  220. Me.c.FileName = "cmd.exe"
  221. Me.b.StartInfo = Me.c
  222. Me.b.Start()
  223. ProjectData.EndApp()
  224. End If
  225. Dim flag20 As Boolean = Operators.CompareString(process.ProcessName, "Window Title Changer", False) = 0
  226. If flag20 Then
  227. process.Kill()
  228. Me.c.Arguments = String.Concat(New String() { " /K color a & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO . & ECHO ", Me.d, " & ECHO ", Me.e, " & ECHO ", Me.f, " & ECHO ", Me.g, " & ECHO ", Me.h, " & ECHO ", Me.i, " & ECHO . & ECHO ═══════════════════════════════════════════════════════════════════════════════════════ & ECHO Debugger Detected [ Window Title Changer ] , TheEpicZx @3h5" })
  229. Me.c.FileName = "cmd.exe"
  230. Me.b.StartInfo = Me.c
  231. Me.b.Start()
  232. ProjectData.EndApp()
  233. End If
  234. Next
  235. Thread.Sleep(1500)
  236. End While
  237. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!