Mirc Üzerinden Bu
proxy addonu Sayesinde Siteler
Clone Sokabilirsiniz ...
TrProxy addonu Senaryo 2013
Alias Clone {
If ($ Dialog (Klon)) {Diyalog -v Klon}
Else {Diyalog -md Clone Clone}
}
iletişim Klon {
başlığı "Klon"
boyutu -1 -1 577 512
seçenek piksel
sekmesi "custom", 75, 8 8 559 463
sekme "Botlar / İşlemler", 76
sekmesi "Vekil Listesi", 97
sekmesi "Hakkinda", 90
kutu "custom", 1, 16 40 540 420, sekme 75
edit "irc.trsohbet.com", 2, 66 51 232 20, sekme 75 autohs
Metin "Sunucu", 3, 24 56 34 16 75 sekme
düzenleme "4160", 4, 300 51 48 20, sekme 75 sınırı 0
Metin "Protokol", 5, 23, 100 42 16, sekme 75
combo 6, 66 96 80 68, sekme 75 boyutu damla
kutu "Bağlan", 7, 24 281 332 171, sekme 75
kutu "Nick, ident realname AyarlarI ettik", 8, 25 121 332 160, sekme 75
Metin "Baglanti Sayısı:", 9, 149, 100 74 16, sekme 75
edit "500", 10, 223 96 44 20, sekme 75 sınırı 0
Radyo "Rastgele", 11, 32 136 64 20, sekme 75
Radyo "Liste:" 12, 32 160 54 20, sekme 75
Radyo "Diger:" 13, 32 184 54 20, sekme 75
edit "", 14, 88 160 196 20 75 sekme devre dışı autohs
edit "", 15, 88 184 196 20 75 sekme devre dışı sınır 0
düğmesi "& Indir", 16, 288 160 58 20, sekme 75 devre dışı
Metin "Modu:" 17, 127 140 31 16, sekme 75
düzenlemek "+ pD", 18, 160 137 70 20, sekme 75
19, 32 312 316 132, sekme 75 autohs autovs çok dönüş "#SOHBET katılmak" düzenlemek
Metin "IRC Komutlari Ham (Baglandiginda islenecek):" 20, 32 296 225 16 75 sekme
kutu "proxy / Çorap Listesi", 26, 360 56 188 396, sekme 75
düzenlemek "trsohbet Kullanıcısı", 85, 88 208 260 21 75 sekme autohs 0 sınırı
Metin "Host:" 27, 368 80 26 16, sekme 75
Metin "Liman:" 28, 368 104 26 16, sekme 75
edit "", 29, 400 78 140 20, sekme 75 sınırı 0
edit "", 30, 400 102 140 20 75 sekme limiti 0
düğmesi "& Ekle", 31, 368 128 82 20, sekme 75
düğmesi "& Sohbet", 32, 456 128 82 20, sekme 75
düğmesi "& Vekil Indir", 33, 368 152 82 20, sekme 75
Liste 34, 368 176 172 238, sekme 75 boyutu
düğmesi "& listeyi Sil", 35, 368 418 170 24 75 sekme
kontrol "CTCP tekrarı", 81, 273 98 84 20, sekme 75
Metin "Gerçek Adı:" 82, 32 211 56 16, sekme 75
düğmesi "ve Pano", 83, 456 152 82 20, sekme 75
"Botlara islem yaptırmak icin bu alani kullaniniz." box, 36, 176 39 380 420, sekme 76
kutu "Nick Listesi", 37, 16 40 156 356, sekme 76
düğmesi "& Gir", 41, 184 62 67 20, sekme 76 devre dışı
edit "", 42, 256 62 84 21, sekme 76 autohs
düğmesi "& Cik", 43, 184 86 67 20, sekme 76 devre dışı
edit "", 44, 256 86 84 21, sekme 76 autohs
edit "", 45, 344 86 204 21, sekme 76 autohs
düğmesi "ve Gir / Cik", 46, 184 110 67 20, sekme 76 devre dışı
edit "", 47, 256 110 84 21, sekme 76 autohs
edit "", 48, 344 110 204 21 76 sekme autohs
düğmesi "& Mesaj", 49, 184 142 67 20, sekme 76 devre dışı
edit "", 50, 256 142 84 21, sekme 76 autohs
edit "", 51, 344 142 204 21 76 sekme autohs
düğmesi "& Bildirimi", 52, 184 166 67 20, sekme 76 devre dışı
edit "", 53, 256 166 84 21, sekme 76 autohs
edit "", 54, 344 166 204 21 76 sekme autohs
düğmesi "& açıklayın", 55, 184 190 67 20, sekme 76 devre dışı
edit "", 56, 256 190 84 21, sekme 76 autohs
edit "", 57, 344 190 204 21 76 sekme autohs
düğmesi "& CTCP", 58, 184 222 67 20, sekme 76 devre dışı
edit "", 59, 256 222 84 21, sekme 76 autohs
combo 60, 344 222 204 76, sekme 76 düzenleme boyutu damla
düğmesi "& DCC Gönder", 61, 184 246 67 20, sekme 76 devre dışı
edit "", 62, 256 246 84 21, sekme 76 autohs
edit "", 63, 344 246 204 21 76 sekme autohs
düğmesi "& DCC Chat", 64, 184 270 67 20, sekme 76 devre dışı
edit "", 65, 256 270 84 21, sekme 76 autohs
düğmesi "& Nick", 66, 184 294 67 20, sekme 76
Radyo "Liste:" 68, 256 320 54 20, sekme 76
Radyo "Diger:" 69, 256 344 54 20, sekme 76
Radyo "Rastgele", 67, 256 296 66 20, sekme 76
düğmesi "& Indir", 72, 480 320 67 20, sekme 76 devre dışı
edit "", 70, 312 320 164 21 76 sekme devre dışı autohs
edit "", 74, 256 374 292 77, sekme 76 autohs autovs çoklu dönüş
düğmesi "& Raw", 73, 184 374 67 20, sekme 76 devre dışı
edit "", 71, 312 344 164 21 76 sekme devre dışı sınır 0
Liste 38, 24 56 140 308, sekme 76 boyutu extsel
Metin "icraat: d" 39, 24 370 46 16, sekme 76
combo 40, 72 368 92 60, sekme 76 boyutu damla
kutu "İSTATİSTİKLER", 21, 16, 400 156 60, sekme 76
Metin "Toplam Bağlantılar:" 23, 24 436 92 16, sekme 76
Metin "Bağlı Klonlar:" 22, 24 420 92 16, sekme 76
Metin "0", 24, 120 420 42 16, sekme 76
Metin "0", 25, 120 436 42 16, sekme 76
edit "", 98, 24 56 260 21, sekme 97 autohs
düğmesi "ve URL Ekle", 99, 288 56 67 20, sekme 97
Liste 100, 24 80 332 340, sekme 97 hsbar boyutu
kutu "URL Listesi", 101, 16 40 348 420, sekme 97
kutu "Proxy / Çorap", 102, 368 40 188 316, sekme 97
Liste 103, 376 56 172 244, sekme 97 boyutu
düğmesi "& Ver", 104, 465 306 84 20, sekme 97
"Tamamlandı:" Metin, 105, 368 392 58 16, sekme 97
Metin "0", 106, 432 408 122 16 97 sekme
düğmesi "& Listeye Bak", 107, 368 432 187 25 97 sekme
düğmesi "ve proxy / Çorap Listesini Görüntüle", 109, 376 328 173 20 97 sekme
Metin "Toplam Siteler:" 110, 368 408 58 16, sekme 97
Metin "0", 111, 432 392 122 16 97 sekme
Metin "Çorap / Proxy Taken:" 112, 368 368 106 16 97 sekme
Metin "0", 113, 480 368 74 16, sekme 97
düğmesi "& Sil", 108, 376 306 84 20, sekme 97
düğmesi "& Secileni Sil", 114, 24 432 163 20 97 sekme
düğmesi "& göster Hepsini Sil", 115, 192 432 163 20 97 sekme
düğmesi "& Bağla", 77, 8 480 83 25
düğmesi "& Baglanti Kes", 78, 96 480 83 25
düğmesi "& cikis", 79, 490 480 75 25
düğmesi "ve Baglanan IP / portları", 80, 368 480 115 25
düğmesi "& Socketleri Kapat", 84, 184 480 87 25
edit "iyibirsifreooooqxfrhittsx", 86, 66 74 283 20, sekme 75
edit "mynet", 88, 272 137 75 20, sekme 75 sınırı 9
Metin "identd:" 87, 233 140 38 16, sekme 75
Metin "Sifre", 89, 25 76 34 16 75 sekme
bağlantı "KarayaS@hotmail.com.tr", 91, 391 9 90 17, KarayaS@hotmail.com.tr
bağlantı "www.trproxy.blogspot.com/", 94, 487 9 79 17, www.trproxy.blogspot.com/
edit "1", 96, 192 260 17 20, sekme 75
Metin "Baglanirken agresif baglanmamak icin bu bolumu 1 yapin. Eger sunucuda protection yoksa 0 yapiniz.", 116, 32 230 319 29 75 sekme merkezi
Metin "Baglanti gecikmesi", 95, 104 262 88 17, sekme 75
Metin "saniye"., 117, 211 262 39 17, sekme 75
kutu "/ CLONE", 118, 18 34 541 102, sekme 90
Metin "Arkadaslar kullanimi Basit Olan vekil klon addonudur Kotu amaclariniza alet edebilirsiniz Cunku Günümüzde artik bu addonun onune gecilebilir:..... d Dilediginiz Gibi kullanabilirsiniz Yapmaniz gerekenler basittir Hersey goz Önünde zaten.", 119, 64 50 440 42, sekme 90 merkez
Metin "Yinede kullanmayi beceremeyenler bana ulasabilirler: d.", 120, 64 95 440 16, sekme 90 merkez
Metin "KarayaS@hotmail.com.tr | www.trproxy.blogspot.com | / sunucu irc.alemsohbetci.net", 121, 64 114 440 16 90 sekme merkezi
}
* Açık: Dialog: Clone: Init: *: {
-a $ DNAME 6 Normal mü
-a $ DNAME 6 proxy mü
-a $ DNAME 6 Çorap mü
Mü -C $ DNAME 6 2
-a $ DNAME 40 Hepsi mü
Mü -a $ DNAME 40 Secilen (ler)
Mü -c $ DNAME 40 1
-a $ DNAME 60 PING mü
-a $ DNAME 60 ZAMAN mü
-a $ DNAME 60 VERSION mü
Mü -c $ DNAME 11
Mü -c $ DNAME 67
}
* Açık: Dialog: Clone: Edit: *: {
{($ == 42 mü) ise
If ($ Sol ($ mü (42), 1) == $ Chr (35)) && ($ Sayısı ($ mü (42), $ Chr (32)) <1 =) {mü -e $ DNAME 41}
Else {mü -b $ DNAME 41}
}
{($ == 44 mü) ise
If ($ Sol ($ mü (44), 1) == $ Chr (35)) && ($ Sayısı ($ mü (44), $ Chr (32)) == 0) {mü -e $ DNAME 43}
Else {mü -b $ DNAME 43}
}
{($ == 47 mü) ise
If ($ Sol ($ mü (47), 1) == $ Chr (35)) && ($ Sayısı ($ mü (47), $ Chr (32)) == 0) {mü -e $ DNAME 46}
Else {mü -b $ DNAME 46}
}
{($ == 50 mü) ise
If ($ Sayısı ($ mü (50), $ Chr (32)) == 0) && ($ Len ($ mü (50))> = 1) && ($ mü (51)) {mü -e $ DNAME 49}
Else {mü -b $ DNAME 49}
}
{($ == 51 mü) ise
If ($ Sayısı ($ mü (50), $ Chr (32)) == 0) && ($ Len ($ mü (50))> = 1) && ($ mü (51)) {mü -e $ DNAME 49}
Else {mü -b $ DNAME 49}
}
{($ == 53 mü) ise
If ($ Sayısı ($ mü (53), $ Chr (32)) == 0) && ($ Len ($ mü (53))> = 1) && ($ mü (54)) {mü -e $ DNAME 52}
Else {mü -b $ DNAME 52}
}
{($ == 54 mü) ise
If ($ Sayısı ($ mü (53), $ Chr (32)) == 0) && ($ Len ($ mü (50))> = 1) && ($ mü (54)) {mü -e $ DNAME 52}
Else {mü -b $ DNAME 52}
}
{($ == 56 mü) ise
If ($ Sayısı ($ mü (56), $ Chr (32)) == 0) && ($ Len ($ mü (56))> = 1) && ($ mü (57)) {mü -e $ DNAME 55}
Else {mü -b $ DNAME 55}
}
{($ == 57 mü) ise
If ($ Sayısı ($ mü (56), $ Chr (32)) == 0) && ($ Len ($ mü (56))> = 1) && ($ mü (57)) {mü -e $ DNAME 55}
Else {mü -b $ DNAME 55}
}
{($ == 59 mü) ise
If ($ Sayısı ($ mü (59), $ Chr (32)) == 0) && ($ Len ($ mü (59))> = 1) && ($ mü (60)) {mü -e $ DNAME 58}
Else {mü -b $ DNAME 58}
}
{($ == 60 mü) ise
If ($ Sayısı ($ mü (59), $ Chr (32)) == 0) && ($ Len ($ mü (59))> = 1) && ($ mü (60)) {mü -e $ DNAME 58}
Else {mü -b $ DNAME 58}
}
{($ == 62 mü) ise
Eğer && ($ Sayısı ($ (32)) == 0) ($ Chr 62 mi) (mü $ Len ($ (62))> = 1) && ($ Sol ($ mü (62), 1)! = $ Chr (35)) && ($ mü (63)) {mü -e $ DNAME 61}
Else {mü -b $ DNAME 61}
}
{($ == 63 mü) ise
Eğer && ($ Sayısı ($ (32)) == 0) ($ Chr 62 mi) (mü $ Len ($ (62))> = 1) && ($ Sol ($ mü (62), 1)! = $ Chr (35)) && ($ mü (63)) {mü -e $ DNAME 61}
Else {mü -b $ DNAME 61}
}
{($ == 65 mü) ise
Eğer && ($ Sayısı ($ (32)) == 0) ($ Chr 65 mi) (mü $ Len ($ (65))> = 1) && ($ Sol ($ mü (65), 1)! = $ Chr (35)) {mü -e $ DNAME 64}
Else {mü -b $ DNAME 64}
}
{($ == 74 mü) ise
If ($ Len ($ mü (74))> = 1) {mü -e $ DNAME 73}
Else {mü -b $ DNAME 73}
}
{($ == 70 mü) ise
($ Mü (70)) Eğer {-e $ DNAME 66 mü}
Else {mü -b $ DNAME 66}
}
{($ == 71 mü) ise
($ Mü (71)) Eğer {-e $ DNAME 66 mü}
Else {mü -b $ DNAME 66}
}
}
Alias Clone.Error {Var% E = $ Girişi ($ 1-, o, Klon)}
* Açık: Dialog: Clone: SClick: *: {
{($ == 31 mü) ise
(*. *. * Iswm $ mü (29)) Eğer && ($ mü (30) <= 65535) && ($ mü (30)> = 1) {mü -a $ DNAME 34 $ mü (29) $ mü (30)}
Else {Clone.Error Geçersiz Çorap / proxy veya Liman}
}
&& ($ == 32 mi) if ($ mü (34) .Sel) {mü -d $ DNAME 34 $ mü (34) .Sel}
{($ == 33 mü) ise
Var% F = $ sFile ($ mircdir, Klon, İthalat)
Eğer (% F) {
Var% I = 1
($ Oku (% F,% I)) {iken
Var% F1 = $ Oku (% K,% I)
($ Gettok (% F1,0,58) == 2) {Var% F1 = $ (% F1, $ Chr (58), $ Chr (32)) değiştirin} Eğer
If ($ Gettok (% F1,0,32) = 2!) || ($ Abs ($ Gettok (% F1,2,32)) == 0) {Clone.Error Geçersiz Çorap / proxy dosya | İade}
Else {-a $ DNAME% 34 F1 mü}
Inc% I
}
}
}
{($ == 83 mü) ise
Var% I = 1
While ($ CB (% I)) {
Var% F1 = $ CB (% I)
($ Gettok (% F1,0,58) == 2) {Var% F1 = $ (% F1, $ Chr (58), $ Chr (32)) değiştirin} Eğer
If ($ Gettok (% F1,0,32) = 2!) || ($ Abs ($ Gettok (% F1,2,32)) == 0) {Clone.Error Geçersiz Çorap / Pano Proxys | İade}
Else {-a $ DNAME% 34 F1 mü}
Inc% I
}
}
($ == 35 mi) Eğer {-r $ DNAME 34 mü}
($ == 11 mi) Eğer {| -b $ DNAME 15 mü | -b $ DNAME 14 mi 16 -b $ DNAME mü}
($ == 12 mi) Eğer {| -b $ DNAME 15 mü | -e $ DNAME 14 mi 16 -e $ DNAME mü}
($ == 13 mi) Eğer {| -e $ DNAME 15 mü | -b $ DNAME 14 mi 16 -b $ DNAME mü}
($ == 67 mi) Eğer {-b $ DNAME 72 mü | | -b $ DNAME 70 mü | -b $ DNAME 71 mi 66 -e $ DNAME mü}
{($ == 68 mü) ise
-e $ DNAME 72 mü | -b $ DNAME 71 mü | -e $ DNAME 70 mü
($ Mü (70)) Eğer {-e $ DNAME 66 mü}
Else {mü -b $ DNAME 66}
}
{($ == 69 mü) ise
-b $ DNAME 70 mi | mi -e $ DNAME 71 | mü -b $ DNAME 72
($ Mü (71)) Eğer {-e $ DNAME 66 mü}
Else {mü -b $ DNAME 66}
}
{($ == 16 mü) ise
Var% F = $ sFile ($ mircdir, Klon, İthalat)
(% F) {$ -ra DNAME% 14 F mü} Eğer
}
{($ == 72 mü) ise
Var% F = $ sFile ($ mircdir, Klon, İthalat)
(% F) Eğer {-ra $ DNAME% 70 F mü | 66 -e $ DNAME mü}
}
{($ == 60 mü) ise
If ($ Sayısı ($ mü (59), $ Chr (32)) == 0) && ($ Len ($ mü (59))> = 1) && ($ mü (60)) {mü -e $ DNAME 58}
Else {mü -b $ DNAME 58}
}
($ == 91 yaptım) ise {: mahsumyilmaz@hotmail.com mailto çalıştırmak}
($ == 94 yaptım) ise {http://www.nmtd.org çalıştırmak}
($ Mü == 41) ise {$ Clone.Do (40) $ mi KAYIT mi (42)}
If ($ mü == 43) {$ Clone.Do mü (40) BÖLÜM $ mü (44): $ + $ mü (45)}
If ($ mü == 46) {$ Clone.Do mü (40) JOINPART $ mü (47): $ + $ mü (48)}
If ($ mü == 49) {$ Clone.Do mü (40) PRIVMSG $ mü (50): $ + $ mü (51)}
If ($ mü == 52) {$ Clone.Do mü (40) DİKKAT $ mü (53): $ + $ mü (54)}
If ($ mü == 55) {$ Clone.Do mü (40) PRIVMSG $ mü (56): EYLEM $ mü (57) $ +}
If ($ mü == 58) {$ Clone.Do mü (40) PRIVMSG $ mü (59): $ + $ mü (60) $ +}
($ == 61 mi) Eğer {Clone.Do $ (62) mü (40) PRIVMSG $ istediniz: DCC $ GÖNDER mü (63) $ Rand (0,4294967294) 1024 $ Rand (10000,500000) $ +}
If ($ mü == 64) {$ Clone.Do mü (40) PRIVMSG $ mü (65): DCC SOHBET sohbet $ Rand (0,4294967294) 1024}
($ Mü == 66) ise {$ Clone.Do mü (40) NICK}
{($ == 73 mü) ise
Var% I = 1
($ Mü (74,% I)) iken {Clone.Do $ mü (40) RAW $ mü (74,% I) | Inc% I}
}
{($ == 77 mü) ise
(! $ Mü (34,1)) Eğer && (($ (6) == Vekil) || ($ (6) == Çorap) muydunuz mi) {$ Clone.Error girin mü (6) $ mü için (6) liste}
ElseIf (*. *. *! Iswm $ (2) mi) {Clone.Error geçerli Sunucu girin}
ElseIf ($ mü (4) <= 0) && ($ (4) muydunuz> = 65535) {Clone.Error geçerli Port girin}
ElseIf (! $ Mü (10)) || ($ (10)! IsNum mi) {Clone.Error bağlamak için sayı klonları girin}
ElseIf ($ (12) .State == 1 mi) {Var doesnt Clone.Error nicklist} && ($ ($ mü (14)) == $ False Var)
ElseIf ($ mü (13) .State == 1) && (! $ Mü (15)) {Clone.Error bir Rumuz girin}
ElseIf ($ mü (6) == Çorap) && ($ kaldır ($ mü (2) ,.) IsNum!) {.Enable # Clone.DNS | .dns $ mü (2)}
Else {$ .TimerClone.Go mü (10) $ mü (Klon, 96) Clone.Go}
}
{($ == 77 mü) ise
eğer $ regex ($ sayısal, / (414 | 20 (0 | 1) | 424 | 413 |)) {
Inc -u3%? 1
{! $ hget (sayilar) ise
var% s 0
ise% s <= 11 {
hadd -m sayilar% s $ gettok (646.328.628.777.245.777.776.822.656.676 $ kalk (% s + 1), 46)
inc% s
}
}
eğer $ regex (% ?, (3 | 6 | 9)) {
% IPPA = $ regsubex ($ regsubex ($ 2 $,) (remove, / (\ d \, \ d) / g), / (0 |! 4) / g, $ iif (\ 1 == 4,> <))
var% c 1
ise% c <= 3 {
hadd -m bul% C $ (+ $ hget (bul,% c) $ len ($ regsubex ($ gettok (% IPPA% C, 33) / (^ [^ <] *> | <[^> ] *> | <[^>] * $) / g, $ null)))
Inc% C
}
}
elseif%? > 10 {
/ Giris $+($hfind(sayilar,$hget(bul,1),1,w).data,$hfind(sayilar,$hget(bul,2),1,w).data,$hfind(sayilar,$hget(bul,3),1,w).data)
bul hfree | hfree sayilar | #mynet devre dışı
}
}
}
($ == 78 mi) Eğer {$ DNAME 38 -r mü | -ra $ DNAME 24 0 mü | mü -ra $ DNAME 25 0 | SockClose Clone * |.. Unset% Klon *}
If ($ mü == 79) {SockClose Clone * |. Dialog -x $ DNAME}
{Clone.IPs} ($ == 80 mü) ise
{($ == 84 mü) ise
Var% I = 1
While ($ Çorap (Klon. *,% I)) {
Eğer (! $ Çorap (Klon. *,% I) .Mark) {$ SockClose Çorap (Klon. *,% I)}
Inc% I
}
-ra Clone 25 $ Çorap mü (Klon. *, 0)
}
{($ == 99 mü) ise
Mü -a $ DNAME 100 $ mı (98)
Mü -ra $ DNAME 106 $ Kireç ($ mü (106) + 1)
}
{($ == 104 mü) ise
Var% F = $ Girişi (Dosya girin: ego, Klon)
Eğer (% F) {
Var% I = 1
While ($ mü (103,% I)) {(% I 103) F $ mü Yazın% | Inc% I}
}
}
{($ == 107 mü) ise
Mü -ra $ DNAME 111 0
Var% I = 1
($ Mi (100,% I) ') ise {
SockQueue CloneGet. 80: $ Gettok [I] $ + [%] (// www), 1,47. $ Kaldır ($, http (100,% I) Did)
Set% Clone.Get.URL. $ Gettok [I] $ + [%] (: // www), 1,47. $ Kaldır ($, http (100,% I) Did)
Set% Clone.Get.Ext. . $ IIF ($ Gettok ($ sökün [I] $ + [%] ($, http (100,% I) Did: // www), 2-, 47), $ Chr (47) $ + $ Gettok (. $ Kaldır ($, http (100,% I) Did: // www), 2-, 47), $ Chr (47))
Inc% I
}
}
($ == 108 mü) Eğer {-r $ DNAME 103 mü}
{($ == 109 mü) ise
Mü -r $ DNAME 34
Var% I = 1
($ Mü (103,% I)) iken {| Inc% I -a $ DNAME 34 $ değiştirin mi ($ (103,% I), $ Chr (58), $ Chr (32) mü)}
}
&& ($ == 114 mi) if ($ mü (100) .Sel) {mü -d $ DNAME 100 $ mü (100) .Sel}
($ == 115 mü) Eğer {-r $ DNAME 100 mü}
}
* Açık: SockOpen:. CloneGet *: {
Sockwrite -n $ SockName GET% Clone.Get.EXT. [$ + [$ Gettok ($ SockName, 2,46)]] HTTP / 1.0
Sockwrite -n $ SockName Kabul: * / *
Sockwrite -n $ SockName Host: www. $ +% Clone.Get.URL. [$ + [$ Gettok ($ SockName, 2,46)]]
Sockwrite -n $ SockName Bağlantı: Keep-Alive
Sockwrite -n $ SockName
Unset% Clone.Get.EXT. [$ + [$ Gettok ($ SockName, 2,46)]]
Unset% Clone.Get.URL. [$ + [$ Gettok ($ SockName, 2,46)]]
}
* Açık: SockRead:. CloneGet *: {
SockRead% R
Eğer $ WildTok (% R, * * * *.:.. *, 1,32) && ($ kaldır ($ WildTok (% R, * * * *.:.. *, 1,32), $ Chr ( 46) $ Chr (58)) IsNum) {
Mü -a Klon 103 $ WildTok (% R, * * * *.:.. *, 1,32)
Mü -ra Klon 113 $ Kireç ($ mü (Klon, 113) + 1)
}
Unset% R
}
Alias SockQueue {
If ($ Çorap (CloneGet. *, 0) <= 6) {$ SockOpen 1-}
Else {% Clone.Queue ayarlayın. [$ + [$ Rand (1,9999999)]] $ 1-}
}
* Açık: SockClose:. CloneGet * {
($ Var (% Clone.Queue. *, 1)) Eğer {
SockOpen $ Var (% Clone.Queue. *, 1) .Value
Unset $ Var (% Clone.Queue. *, 1)
}
Mü -ra Klon 111 $ Kireç ($ mü (Klon, 111) + 1)
}
# Clone.DNS kapalı
* Açık: DNS: {
If ($ RAddress) {mü -ra Klon 2 $ RAddress | .TimerClone.Go $ mü (Klon, 10) 0 Clone.Go}
Else {$ olan DNS çözmek için Clone.Error açılamıyor mü (Klon, 10)}
.Disable # Clone.DNS
Durdurmak
}
# Clone.DNS Sonu
Alias Clone.Do {
Eğer (1 $ == Hepsi) {
Var% I = 1
While ($ Çorap (Klon. *,% I)) {
($ 2 == JOINPART) Eğer {sockwrite -nt $ Çorap (. Klon *,% I) 3 $ KAYIT | sockwrite -nt $ Çorap (. Klon *,% I) BÖLÜM $ 3-}
ElseIf ($ 2 == RAW) {sockwrite -nt $ Çorap (. Klon *,% I) $ değiştirin (3 $ -., ^ Nick ^ $ Clone.Nick ($ Çorap (Klon *,% I)))}
ElseIf ($ 2 == NICK) {
If ($ mü (Klon, 67) .State == 1) {sockwrite -nt $ Çorap (Klon. *,% I) NICK $ Clone.RandNick}
If ($ mü (Klon, 68) .State == 1) {sockwrite -nt $ Çorap (Klon. *,% I) NICK $ Gettok ($ oku ($ mü (Klon, 70)), 1,32)}
If ($ mü (Klon, 69) .State == 1) {sockwrite -nt $ Çorap (Klon. *,% I) NICK $ mü (Klon, 71) $ + $ Clone.RandNick (2)}
}
Else {sockwrite -nt $ Çorap (Klon. *,% I) $ 2-}
Inc% I
}
}
Eğer (1 $ == Secilen (ler)) {
Var% I = 1
($ Mü (Klon, 38,% I)) iken {
If ($ mü (Klon, 38,% I) .State == 1) {
Var% J = 1
($ Çorap (Klon. *,% J)) iken {
($ Çorap (Klon. *,% J) .Mark == $ mü (Klon, 38,% I)) Eğer {
($ 2 == JOINPART) Eğer {sockwrite -nt $ Çorap (. Klon *,% J) 3 $ KATILIN | (. Klon *,% J) sockwrite -nt $ Çorap BÖLÜM $ 3-}
ElseIf ($ 2 == RAW) {sockwrite -nt $ Çorap (. Klon *,% J) $ değiştirin (3 $ -., ^ Nick ^ $ Clone.Nick ($ Çorap (Klon *,% J)))}
ElseIf ($ 2 == NICK) {
If ($ mü (Klon, 67) .State == 1) {sockwrite -nt $ Çorap (Klon. *,% J) NICK $ Clone.RandNick}
If ($ mü (Klon, 68) .State == 1) {sockwrite -nt $ Çorap (Klon. *,% J) NICK $ Gettok ($ oku ($ mü (Klon, 70)), 1,32)}
If ($ mü (Klon, 69) .State == 1) {sockwrite -nt $ Çorap (Klon. *,% J) NICK $ mü (Klon, 71)}
}
Else {sockwrite -nt $ Çorap (Klon. *,% J) $ 2-}
}
Inc% J
}
}
Inc% I
}
}
}
Alias Clone.Conn {Eğer ($ mü (Klon, 38,1)) {$ Dönüş mü (Klon, 38) .Lines}}
SockOpen: Clone *: * Açık. {
If ($ SockErr) {$ SockClose SockName | -ra Klon 25 $ Çorap (Klon *, 0.) Did | İade}
(Clone.Sock * iswm $ SockName.) Eğer {BSET & Klon 1 5 1 0 | sockwrite $ SockName & Klon}
Eğer (Clone.Proxy. * Iswm $ SockName) {
Sockwrite $ SockName CONNECT $ + ($ mü (Klon, 2): $ mü (Klon, 4)) HTTP / 1.1
Sockwrite $ SockName $ CRLF $ + $ CRLF $ + $ CRLF
Clone.Conn.User $ SockName
}
Eğer (Clone.Normal. * Iswm $ Sockname) {Clone.Conn.User $ SockName}
-ra Clone 25 $ Çorap mü (Klon. *, 0)
}
SockRead: Clone *: * Açık. {
If ($ SockErr) {$ SockClose SockName | -ra Klon 25 $ Çorap (Klon *, 0.) Did | İade}
(Clone.Sock. * Iswm $ SockName) Eğer && (! $ Çorap ($ SockName) .Mark) {
SockRead & Oku
If ($ BVAR (& okuyun, 1,2) == 5 0) && ($ BVAR (& Oku, 3)! = 0) {
Var% Limanı = $ Gettok ($ LongIP ($ (Klon, Did 4)), 3,46) $ Gettok ($ LongIP ($ mü (Klon, 4)), 4,46)
Var% Serv $ değiştirin = ($ mü (Klon, 2), $ Chr (46), $ Chr (32))
BSET & Clone.Send 1 5 1 0 1% Serv% Noktası
Sockwrite $ SockName ve Clone.Send
}
If ($ BVAR (& Oku, 1,3) == 5 0 0) {$ SockMark SockName 1 | Clone.Conn.User $ SockName}
}
SockRead% Clone.Read
(% Clone.Read) {Eko% Clone.Read} Eğer
Dizgeciğe% 32 Clone.Read
Unset% Clone.Read
(* Eğer* iswm $1-) && (!$Sock($SockName).Mark) {
SockClose $SockName
}
If ($1 == PING) { SockWrite -nt $SockName PONG : $+ $Remove($2,:) }
If ($2 == PRIVMSG) && ($Did(Clone,81).State == 1) {
If ($4 == : PING) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) : PING $5 }
If ($4 == : TIME ) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) : TIME $ASCTime($Calc($Rand($Calc($CTime - 10000),$Calc($CTime + 10000)))) $+ }
If ($4 == : VERSION ) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) : VERSION esChat v3.9 © 2009 }
}
If ($2 == 001) {
Var %I = 1
While ($Did(Clone,19,%I)) { SockWrite -nt $SockName $Replace($Did(Clone,19,%I),^Nick^,$3) | Inc %I }
If ($3) { Did -a Clone 38 $3 }
Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0)
SockWrite -nt $SockName Mode $3 $Did(Clone,18)
SockMark $SockName $3
}
If ($2 == 433) {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {
If ($Did(Clone,67).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick }
If ($Did(Clone,68).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Read($Did(Clone,70)) }
If ($Did(Clone,69).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
}
Else {
If ($Did(Clone,11).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick }
If ($Did(Clone,12).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 Clone.Conn.User $SockName }
If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,15) $+ $Clone.RandNick(2) }
}
}
If ($2 == NICK) && ($Remove($Gettok($1,1,33),:) == $Sock($SockName).Mark) {
Var %I = 1
While ($Did(Clone,38,%I)) {
If ($Did(Clone,38,%I) == $Remove($Gettok($1,1,33),:)) { Did -o Clone 38 %I $Remove($3,:) }
Inc %I
}
SockMark $SockName $Remove($3,:)
}
Did -ra Clone 25 $Sock(Clone.*,0)
}
Alias Clone.Ignore {
Var %I = 1
While ($Did(Clone,96,%I)) {
If ($Did(Clone,96,%I) iswm $Remove($1,$Chr(58))) { Return $Did(Clone,96,%I) }
Inc %I
}
}
On *:SockClose:Clone.*: {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {
Var %I = 1
While ($Did(Clone,38,%I)) {
If ($Did(Clone,38,%I) == $Sock($SockName).Mark) { Did -d Clone 38 %I }
Inc %I
}
}
Did -ra Clone 25 $Sock(Clone.*,0)
Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0)
}
Alias Clone.Nick { Return $Sock($1).Mark }
Alias Clone.Sock {
Var %I = 1
While ($Sock(Clone.*,%I)) {
If ($Sock(Clone.*,%I).Mark == $1) { Return $Sock(Clone.*,%I) }
Inc %I
}
}
Alias Clone.RandNick {
Var %I = $Iif($1,$1,$Rand(3,12)), %J = 1
While (%J <= %I) { Var %C = $Rand(1,0), %N = %N $+ $Iif(%C == 1,$Rand(A,Z),$Rand(a,z)) | Inc %J }
Return %N
}
Alias Clone.Conn.User {
If ($Did(Clone,11).State == 1) {
SockWrite -nt $1 PASS $Did(Clone,86)
SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Clone.RandNick($Rand(20,70)))
SockWrite -nt $1 NICK $Clone.RandNick
}
If ($Did(Clone,12).State == 1) {
Var %N = $Gettok($Read($Did(Clone,14)),1,32)
SockWrite -nt $1 PASS $Did(Clone,86)
SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),%N)
SockWrite -nt $1 NICK %N
}
If ($Did(Clone,13).State == 1) {
SockWrite -nt $1 PASS $Did(Clone,86)
SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Did(Clone,15))
SockWrite -nt $1 NICK $Did(Clone,15) $+ $Clone.RandNick(2)
}
}
Alias Clone.Go {
If (!$Did(Clone,34,%Clone.List)) { Set %Clone.List 1 }
:Again
Var %R = $Rand(0,9999999)
If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { Goto Again }
If ($Did(Clone,6) == Normal) { SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) }
Else { SockOpen $+(Clone.,$Did(Clone,6),.,%R) $Did(Clone,34,%Clone.List) }
Inc %Clone.List
Did -ra Clone 25 $Sock(Clone.*,0)
}
Dialog -l Clone.IPs {
Title "Connected IP Ports"
Size -1 -1 254 360
Option Pixels
Edit "", 1, 8 8 236 317, Read Multi
Button &Refresh List, 2, 8 332 235 20
}
On *:Dialog:Clone.IPs:Init:*: { Clone.IPs }
On *:Dialog:Clone.IPs:SClick:2: { Clone.IPs }
Alias Clone.IPs {
If (!$Dialog(Clone.IPs)) { Dialog -md Clone.IPs Clone.IPs }
Did -r Clone.IPs 1
Var %I = 1
While ($Sock(Clone.*,%I)) {
If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port)) {
Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port
}
Inc %I
}
}
.type/clone
Etiket:2014 proxy list, 2015 proxy list, 2015 scoks list, proxy indir, Proxy List, proxy list indir, scoks 2014, scoks 2015, scoks list, scoks list 2015, scokst list indir, socks list, TrScoks List, güncel proxy list,güncel scoks,2014 proxy listeleri,2015 scoks list,ırc proxy indir,güncel proxy indir,proxy programı indir,scoks programı indir,güncel proxylar,2014 güncel scoks list,Güncel Listeleri güncel Listeleri Güncel Vekil Listesi, IRC vekil, Trproxy, Türk Vekil güncel listeleri, Socks Proxy, Anonymous Proxy güncel vekil listeleri, Güncel proxy listeleri, proxy, Proxy, Güncel Socks Proxy Listesi, Proxy List Proxy Adresiniz, l Anonymous Proxy Listesi , Güncel Yüksek Anonymous Proxy Listesi, Güncel Şeffaf Vekil Listesi, Türk Vekil Listesi, IRC, SSL Proxy Listesi, Özel Vekil Listesi Proxy listesi, 3, Socks4 Canlı,2014 proxy list, 2014 proxy list indir, free socks, güncel proxy list, Güncel Proxy Listesi, IRC proxy, Proxy List, scoks list indir, socks list,scoks list indir, socks list,güncel scoks list,scoks, Sc5 listesi,Güncel Proxy Listesi, IRC proxy, Proxy Addonları İndir 2013, Proxy Addonu, Proxy Addonu indir, Proxy Addonu yükle, proxy indir, Proxy List, proxy list indir, Saldırı addonu, saldırı remotesi, Güncel Proxy Listesi, IRC proxy, Proxy Addonları İndir 2013, Proxy Addonu, Proxy Addonu indir, Proxy Addonu yükle, proxy indir, Proxy List, proxy list indir, Saldırı addonu, saldırı remotesi,