Sunucunuzda m_igs modulu kurulu ise _gecmodul seçeneğini "yes" yapın değilse "no" yapın,
Port Açmanız Gerekir ve bu portu gerekli yerlere yazmanız gerekir.
Kodu Burada Herkese Açık Şekilde Paylaştığım İçin; Güvenlik Açığı Oluşuyor, Bunu Önlemek İçin
" Yapınız.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
<!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>
Burada Yine Aynı Renk Olan Yerleri Değiştirin.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
;################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))
}
}
IRC Giriş Yapılan IP Adresi İle Tarayıcı (Browser) Üzerinde Linke Tıklanan IP Adresi Birbirini Tutmazsa Geçiş Sağlanmaz.
, Yapamayan Olursa pm Atabilir.