German-IRC & World Of IRC Forum

Quellcode

;begin-------------Proxy-Script elimS------------------------------alias proxy_on_of { if (%proxy_connect == on) { %proxy_connect = off timer_proxy_conect off firewall off } else { %proxy_connect = on | %proxy_n_file = 1 | %proxy_poputka = sock4 | %proxy_n = 1 | firewall on }}alias proxy_connect { if (%proxy_n_file = 1) $iif(%proxy_socks4_5 == on,%filename_proxylist = %filename_proxylist_4_5,inc %proxy_n_file 1) if (%proxy_n_file = 2) $iif(%proxy_socks4 == on,%filename_proxylist = %filename_proxylist_4,inc %proxy_n_file 1) if (%proxy_n_file = 3) $iif(%proxy_socks5 == on,%filename_proxylist = %filename_proxylist_5,inc %proxy_n_file 1) if (%proxy_n_file = 4) $iif(%proxy_socks@ == on,%filename_proxylist = %filename_proxylist_@,%proxy_n_file = 1) %proxy_n = $lines( %filename_proxylist ) if ( %proxy_dic_use == on ) { fullname $read( %filename_dic ) emailaddr $read( %filename_dic ) nick $read( %filename_dic ) anick $read( %filename_dic ) identd on $read( %filename_dic ) } %proxy_info = $read( %filename_proxylist , p , %proxy_i ) %proxy_ip = $gettok(%proxy_info,1,58 ) %proxy_port = $gettok(%proxy_info,2,58 ) if ( %proxy_n_file = 4 ) %proxy_port = $gettok(%proxy_port,1,64 ) if ( %proxy_poputka == sock5 ) && ( %proxy_n_file == 1 ) %proxy_poputka = sock4 if ( %proxy_n_file = 1 ) { $iif(%proxy_poputka == sock4,%proxy_sock = -m4,%proxy_sock = -m5) | %proxy_poputka = sock5 } if ( %proxy_n_file = 2 ) %proxy_sock = -m4 if ( %proxy_n_file = 3 ) %proxy_sock = -m5 if ( %proxy_n_file = 4 ) $iif($gettok(%proxy_info,2,64 ) == SOCKS4,%proxy_sock = -m4,%proxy_sock = -m5) echo -e &#1087;&#1088;&#1086;&#1082;&#1089;&#1103; &#8470; %proxy_i von %proxy_n Proxy. Adresse %proxy_ip , Port %proxy_port , Typ socks %proxy_sock firewall %proxy_sock on %proxy_ip %proxy_port if ( %proxy_i <= %proxy_n ) { server if (%proxy_timeout == on) timer_proxy_conect 1 %proxy_secs proxy_connect } if ( %proxy_n_file != 1 ) inc %proxy_i 1 if ( %proxy_i > %proxy_n ) { %proxy_i = 1 | inc %proxy_n_file 1 } if ( %proxy_n_file > 4 ) && ( %proxy_random == on ) %proxy_n_file = 1 }menu menubar { Proxy-Script elimS .$iif(%proxy_connect == on,$style(1)) An/Aus Proxy Script: proxy_on_of .$iif(%proxy_random == on,$style(1)) Proxy Kreislauf: $iif(%proxy_random == on,%proxy_random = off,%proxy_random = on) .$iif(%proxy_dic_use == on,$style(1)) Nick / ID Wörterbuch: $iif(%proxy_dic_use == on,%proxy_dic_use = off,%proxy_dic_use = on) .Einstellungen: dialog -m proxy_options proxy_options}dialog proxy_options { title "Proxy-Script Einstellungen" size -1 -1 140 250 option dbu check " An/Aus Proxy Script", 10, 10 3 113 10 check " Proxy Kreislauf", 9, 10 15 113 10 check " Reconect, Timeout", 26, 10 25 55 10 edit "",27, 70 25 20 10, read autohs box "Wörterbuch Datei",4, 5 40 124 40 button "...",2, 85 65 40 10 edit "",3, 10 65 70 10, read autohs check " Nick / ID Wörterbuch", 6, 10 50 113 10 box "Proxyliste socks4/5",5, 5 80 124 40 button "...",7, 85 105 40 10 edit "",8, 10 105 70 10, read autohs check " Verwenden", 19, 10 90 113 10 box "Proxyliste socks4",11, 5 120 124 40 button "...",12, 85 145 40 10 edit "",13, 10 145 70 10, read autohs check " Verwenden", 14, 10 130 113 10 box "Proxyliste socks5",15, 5 160 124 40 button "...",16, 85 185 40 10 edit "",17, 10 185 70 10, read autohs check " Verwenden", 18, 10 170 113 10 box "Liste mit folgendem Aufbau proxy:port@socks",22, 5 200 124 40 check " Verwenden", 23, 10 210 113 10 button "...",24, 85 225 40 10 edit "",25, 10 225 70 10, read autohs text "von elimS", 20, 10 240 40 10 link "mailto:elimS2@gmail.com", 21, 60 240 70 10}on 1:dialog:proxy_options:init:0: { did -a proxy_options 3 %filename_dic did -a proxy_options 8 %filename_proxylist_4_5 did -a proxy_options 13 %filename_proxylist_4 did -a proxy_options 17 %filename_proxylist_5 did -a proxy_options 25 %filename_proxylist_@ did -a proxy_options 27 %proxy_secs if (%proxy_connect == on) did -c proxy_options 10 if (%proxy_random == on) did -c proxy_options 9 if (%proxy_dic_use == on) did -c proxy_options 6 if (%proxy_socks4_5 == on) did -c proxy_options 19 if (%proxy_socks4 == on) did -c proxy_options 14 if (%proxy_socks5 == on) did -c proxy_options 18 if (%proxy_socks@ == on) did -c proxy_options 23 if (%proxy_timeout == on) did -c proxy_options 26}on 1:dialog:proxy_options:sclick,edit:*: { if ($did == 2) { %filename_dic = $file="Wählen Sie eine Text-Datei für Ihr Wörterbuch:" .txt did -r proxy_options 3 did -a proxy_options 3 %filename_dic } if ($did == 7) { %filename_proxylist_4_5 = $file="Wählen Sie eine Text-Datei für Ihre Proxy-Liste socks4/5:" .txt did -r proxy_options 8 did -a proxy_options 8 %filename_proxylist_4_5 } if ($did == 12) { %filename_proxylist_4 = $file="Wählen Sie eine Text-Datei für Ihre Proxy-Liste socks4:" .txt did -r proxy_options 13 did -a proxy_options 13 %filename_proxylist_4 } if ($did == 16) { %filename_proxylist_5 = $file="Wählen Sie eine Text-Datei für Ihre Proxy-Liste socks5:" .txt did -r proxy_options 17 did -a proxy_options 17 %filename_proxylist_5 } if ($did == 24) { %filename_proxylist_@ = $file="Wählen Sie eine Text-Datei für Ihre Proxy-Liste proxy:port@socks:" .txt did -r proxy_options 25 did -a proxy_options 25 %filename_proxylist_@ } if ($did == 26) { $iif(%proxy_timeout == on,%proxy_timeout = off,%proxy_timeout = on) if (%proxy_timeout == on) %proxy_secs = $?="Anzahl der Sekunden für den Timeout" if (%proxy_timeout == off) %proxy_secs = $null did -r proxy_options 27 did -a proxy_options 27 %proxy_secs } if ($did == 6) $iif(%proxy_dic_use == on,%proxy_dic_use = off,%proxy_dic_use = on) if ($did == 9) $iif(%proxy_random == on,%proxy_random = off,%proxy_random = on) if ($did == 10) proxy_on_of if ($did == 19) $iif(%proxy_socks4_5 == on,%proxy_socks4_5 = off,%proxy_socks4_5 = on) if ($did == 14) $iif(%proxy_socks4 == on,%proxy_socks4 = off,%proxy_socks4 = on) if ($did == 18 ) $iif(%proxy_socks5 == on,%proxy_socks5 = off,%proxy_socks5 = on) if ($did == 21 ) run explorer mailto:elimS2@gmail.com if ($did == 23 ) $iif(%proxy_socks@ == on,%proxy_socks@ = off,%proxy_socks@ = on)}on *:CONNECTFAIL: { if ( %proxy_connect == on ) proxy_connect}on *:DISCONNECT: { if ( %proxy_connect == on ) proxy_connect}on *:snotice:*: { if ( $1- == *** Looking up your hostname... ) timer_proxy_conect off}on *:CONNECT: { if ( %proxy_dic_use == on ) { anick $read( %filename_dic ) }};end---------------Proxy-Script elimS-------------------------------