mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Bots - Botlar

Bots - Botlar mIRC Scripting için yazılmış socket veya gelişmiş mIRC botlarını bulup, paylaşabileceğiniz bölüm.

Like Tree1Teşekkür
  • 1 Post By youmycure
Cevapla
 
LinkBack Seçenekler
  #1  
Alt 24 Temmuz 2019, 14:52
Avatar Yok

mS Puan: 1
mS Derece: youmycure
 
Üyelik tarihi: 10 Temmuz 2015
Mesajlar: 1
Konular: 1
Eklentiler: 0
Alınan Teşekkür: 1
Yapılan Teşekkür: 0
Standart GSS (IRC Girişlerinde Webden Link İle Kontrol)

Mantık:
1) Kullanıcı IRC Sunucusuna Bağlanır,
2) Bot Web Sistemine Entegreli PHP Dosyasına Kullanıcının Nick ve IP Adresi Bilgilerini Gönderir,
3) Bot Kullanıcıya Doğrulama Linki Gönderir,
4) Kullanıcı Bu Linki Tıklayıp Doğrulamayı Yaparsa Kanallara Alınır. Yapmazsa Ban Yer.


* Sunucunuzda m_igs modulu kurulu ise _gecmodul seçeneğini "yes" yapın değilse "no" yapın,
kurmak için: --> https://www.ircforumlari.com.tr/geri...engelleme.html
* Windows Üzerinde Dinlenecek ve Veri Gönderilecek Bir "TCP" Port Açmanız Gerekir ve bu portu gerekli yerlere yazmanız gerekir.
açmak için --> https://www.sordum.net/39597/windows...le-port-acmak/

PHP Kodları:
**Not: Kodu Burada Herkese Açık Şekilde Paylaştığım İçin; Güvenlik Açığı Oluşuyor, Bunu Önlemek İçin Kırmızı, Mavi, Yeşil, Turuncu, ve Pembe Alanları Random Şekilde Değiştiriniz ve .txt dosyasını Oluşturup chmod Değerini "333" Yapınız.

Kod:
<!DOCTYPE html><html><head><title>(GSS) Güvenli Giriş Sistemi</title><style>
body { background-color: #93B874; }
h1 { background-color: #00b33c; }
</style></head><body>
<?php
//eger nick verisi varsa
if (isset($_GET["yaz"]) && ($_GET["password"] == rw4354tf3515w34))
{
//nick değişkenine aktar
$nick = $_GET["yaz"];
// dosya yoksa oluşur ve aç
$dosya = fopen("veriler.txt","a");
// gelen nicki yaz
fwrite($dosya,$nick);
// dosyayı kapat
fclose($dosya);
echo "<ymc>yazdim</ymc>";
} else if(isset($_GET["yaz"]) && $_GET["password"] != rw4354tf3515w34) {
echo "<ymc>yanlis sifre</ymc>";
//eger ara verisi varsa
} else if(isset($_GET["ara"])) {
//nick degiskeni
$nicks = $_GET["ara"];
$ips = $_SERVER['REMOTE_ADDR'];
//dosyada nicki bul
if(strstr(fgets(fopen("veriler.txt", "r")),"$nicks|$ips")) { 
//ip adresini değikene ata
//mirc bota baglan
$fp = stream_socket_client("35.197.54.78:1741", $errno, $errstr, 30);
//islev
if (!$fp) {
    echo "$errstr ($errno)<br />\n";
} else {
$nick = $_GET["ara"];
    fwrite($fp, "$ips $nicks \r\n\r\n");

    while (!feof($fp)) {
        echo fgets($fp, 1024);
fwrite($fp, "*/*\r\n\r\n");
    }
//islev sonu socketi kapat
    fclose($fp);
//nicki txtden sil giris codesi bulunamasın
$dosya="veriler.txt"; 
$oku=fread(fopen($dosya,"r"),filesize($dosya)); 
$str=str_replace("$nicks|$ips","",$oku); 
fwrite(fopen($dosya,"w"),$str);  
}
//giris code bulunamadı yazısı
} else { echo "<center><h1>Sizin Aktif Giriş Kodunuz Bulunmuyor !!!! veya Nick ve IP Adresi Birbirini Tutmuyor.!!!</h1></center>"; }
//hatalı link yazısı
} else { echo "<center><h1>Lütfen Geçerli Bir Link Tıkladığınızdan Emin Olun. !!!</h1></center>"; }
?>
</body></html>
mIRC Socket Kodları: Burada Yine Aynı Renk Olan Yerleri Değiştirin.

Kod:
;################AYARLAR################
alias _gssnick return GSS
alias _nickpass return rf1d4dg6fd54h
alias _sunucu return irc.dedikodu.org 6667
alias _oper return Koruma r56e4f56r4egf56re4g5fd
alias _supass return pr4fsa1equal
alias _logchan return #Opers
alias _muafport return 2018 2099 9741
alias _gecmodul return yes
alias _password return rw4354tf3515w34
alias _winports return 1741
;###########################################
on *:start: { if $sock(gss) { sockopen gss $_sunucu } | gecdinle }
alias _n return $remove($gettok($1,1,33),:)
alias swgss if ($sock(gss).status == active) sockwrite -n gss $1- 
on *:sockclose:gss:{ sockopen gss $_sunucu }
on *:sockopen:gss:{ if ($sockerr) { sockclose gss | sockopen gss $_sunucu | return } | swgss NICK $+($_gssnick,$rand(100000,9999999)) | swgss USER GSS "" " GSS System }
on *:sockread:gss:{
  if ($sockerr) { sockclose gss |  sockopen gss $_sunucu | return } | var %; | sockread %; | tokenize 32 %; | if ($1 = ping) swgss pong $remove($2,:) 
  if ($2 == 001) { swgss oper $_oper | swgss join 0,0 | swgss nick $_gssnick | swgss chghost gss Guvenli.Giris.Sistemi | $+(.timer,girs,$sockname) 1 3 sockwrite -n $sockname join $_logchan }
  if $1 == error && $2 == :closing || $2 = 451 { .sockclose gss | sockopen gss $_sunucu }
  elseif $2 == JOIN && $_n($1) ==  $_gssnick { swgss mode $remove($3,:) +h  $_gssnick }
  elseif ($regex($2,/481|411|001)) { swgss oper $_oper | .timer 1 5 swgss nick $_gssnick | swgss nickserv identify $_nickpass | .timer 1 2 swgss os su $_supass }
  elseif $2 == 433 { swgss ns ghost $_gssnick $_nickpass | swgss ns release $_gssnick $_nickpass | swgss nick $_gssnick }
  elseif $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION && $left($3,1) != $chr(35) {
    if $4 == :TIME { swgss NOTICE $_nick($1)($1)  TIME $time | return }
    elseif $4 == :VERSION { swgss NOTICE $_nick($1)($1) VERSION 2mIRC v6.35 Recep Şentürk | swgss NOTICE $_n($1)($1) VERSION GSS System | return }
    elseif $4 == :FINGER { swgss NOTICE $_nick($1)($1) FINGER GSS System $+  ( $+ GSS $+ @) Idle 1 seconds | return }
    elseif $4 == :PING  { swgss NOTICE $_nick($1)($1) PONG $5- | return }
    elseif $regex($1-,/(\/whois on you|rumuzu size whois komutunu)/Si) { $+(sw,$sockname) privmsg $_logchan :[WHOIS] - Nick: $5 Ident: $gettok($gettok($6,1,64),1,40) Ip: $gettok($gettok($6,2,64),1,41) }
    elseif (Client connecting on port isin $1-)  {
      var %:gss:port $remove($11,:),%:gss:nick $12,%:gss:ip $left($token($13,2,64),-1)
      if $istok($_muafport,%:gss:port,32) { $iff($_gecmodul = yes,swgss gec $token(%i,2,32),swgss sajoin $token(%i,2,32)  #Radyo,#Sohbet,#Oyun) | return }
      var %:qs $+($ticks,$r(1000,999999))
      sockopen  $+(gssyolla,%:qs) www.bilisimtc.com 80
      sockmark  $+(gssyolla,%:qs) $+(%:gss:nick,|,%:gss:ip)
    }
  }
}
alias gecdinle { socklisten gecdinle $_winports }
on *:socklisten:gecdinle: { sockaccept $+(gecs,$r(1,9999))  }
on *:sockread:gecs*: {
  sockread %i | sockwrite $sockname <center><h1> $token(%i,2,32) Girişiniz Doğrulandı Kanallara Alınıyorsunuz.! </h1></center>
  $+(.timer,$token(%i,2,32)) off 
  if $_gecmodul = yes { swgss notice $token(%i,2,32) 7*** Giriş Başarılı Birazdan Kanallara Alınacaksınız. | swgss gec $token(%i,2,32) }
  else { swgss shun $+(-*@,$token(%i,1,32))) | swgss sajoin $token(%i,2,32)  #Radyo,#Sohbet,#Oyun }
  sockclose $sockname
}
on *:sockopen:gssyolla*:{
  sockwrite -n $sockname GET $+(/proje/giris.php?yaz=,$sock($sockname).mark,&password=,$_password) HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname $crlf
}
on *:sockread:gssyolla*:{
  if ($sockerr) { echo -a hata. | return } | sockread %i 
  if <ymc>yazdim</ymc></body> = %i {
    $iif($_gecmodul = no,swgss shun $token($sock($sockname).mark,1,124))
    $+(.timer,$token($sock($sockname).mark,1,124)) 1 60 swgss gzline $token($sock($sockname).mark,1,124) +5h Lütfen Daha Sonra Tekrar Giriş Deneyin.
    swgss privmsg $token($sock($sockname).mark,1,124) Lütfen Girişinizi Tamamlamak İçin Tıklayın -->4 $+(https://www.bilisimtc.com/proje/giris.php?ara=,$token($sock($sockname).mark,1,124))
    swgss notice $token($sock($sockname).mark,1,124) Lütfen Girişinizi Tamamlamak İçin Tıklayın -->4 $+(https://www.bilisimtc.com/proje/giris.php?ara=,$token($sock($sockname).mark,1,124))
  }
}
Deneme IRC: irc.dedikodu.org
Herkez İstediği Gibi Düzenleyip Kullanabilir (Tasarım verebilir, Geliştirebilir, proxy koruması ekleyebilir, web üzerine captcha veya güvenlik kodu koyabilir), Yapamayan Olursa pm Atabilir.
CoCoRiCo buna teşekkür etti.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
girişlerinde, gss, irc, kontrol, link, webden, İle

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Random Nick Kontrol CoCoRiCo Snippets - Parça kodlar 4 30 Ocak 2017 08:50
CR Link Ekle, Link Sil, Link List, Link Bilgi Komutu ve Kodu Goemon ConferenceRoom 0 23 Ağustos 2015 10:24
Pc-Win Pc-Kontrol Addonu absolut Showcase - Hazır kodlar 0 15 Temmuz 2009 12:19
Bilgilendirme(dynamic link library/dll) mS-Desk Dynamic link library - Dll 0 12 Temmuz 2009 02:02


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76