IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - 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: --> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
* 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 --> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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&#252;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&#252;tfen Ge&#231;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) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="green">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://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="Green">ara=,$token($sock($sockname).mark,1,124))

  }

}

NOT: IRC Giriş Yapılan IP Adresi İle Tarayıcı (Browser) Üzerinde Linke Tıklanan IP Adresi Birbirini Tutmazsa Geçiş Sağlanmaz.

Deneme IRC: irc.dedikodu.org
Herkes İ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.