25 Ocak 2015, 23:55 | #1 |
Bir umuttur yaşamak
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya Mesajlar: 323 WEB Sitesi: https://www.teklan.com.tr/ IRC Sunucusu: irc.teklan.com.tr İlgi Alanı: mIRC Scripting Alınan Beğeni: 211 |
/facebook <e-mail> <password>
Yazan: L4roXyL - Hasan AYDENİZ
Kullanım şekli: /facebook mail@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]si şifre Örnek: /facebook deneme@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net 123456 Not: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dökümanıdır. İstek üzerine yazılmıştır. Geliştirilmeye açıktır. Kod:
;coded b l4roxyl,,. ;!started code. alias _e return echo -eatc info * alias facebook { if ($2) { $iif($hget(fb),hfree $v1) sockclose fb sockopen fb m.facebook.com 80 sockmark fb $+($1,$chr(241),$2) $_e Bağlantı kuruluyor.. } else $_e Email@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]si ve şifre girmediniz. } on *:sockopen:fb: { if ($sockerr) { $_e Bağlantı kurulamadı, tekrar deneyin.. | return } tokenize 241 $sock(fb).mark var %_d = $+(email=,$1,&pass=,$2,&login=Log_in),%_s = sockwrite -nt $sockname %_s POST /login.php?http HTTP/1.1 %_s Host: m.facebook.com %_s Content-Type: application/x-www-form-urlencoded %_s Content-Length: $len(%_d) %_s $crlf $+ %_d } on *:sockread:fb: { var %_ | sockread %_ if ($regex(%_,Location: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]))) hadd -m fb URL / $+ $regml(1) if ($regex(%_,Set-Cookie: L=(.*) path=/; domain=.facebook.com; httponly)) hadd -m fb cur_max cur_max_lag= $+ $regml(1) if ($regex(%_,Set-Cookie: datr=(.*) expires=.*)) hadd -m fb datr datr= $+ $regml(1) if ($regex(%_,Set-Cookie: m_user=(.*) expires=.* path=/; domain=.facebook.com; httponly)) hadd -m fb m_user m_user= $+ $regml(1) if ($regex(%_,Set-Cookie: W=(.*) path=/; domain=.facebook.com)) hadd -m fb made_ made_write_conn= $+ $regml(1) sockclose fb2 sockopen fb2 m.facebook.com 80 } on *:sockopen:fb2: { var %_s = sockwrite -nt $sockname %_s GET /profile.php?refid=7 HTTP/1.1 %_s Host: m.facebook.com hadd -m fb cookie $+($hget(fb,cur_max),;,$chr(32),$hget(fb,datr),;,$chr(32),$hget(fb,m_user),;,$chr(32),$hget(fb,made_)) %_s Cookie: $hget(fb,cookie) %_s $crlf } on *:sockread:fb2: { var %__ | sockread %__ if ($regex(%__,action="\/a\/(.*)"><input type="hidden")) hadd -m fb URL2 $+(/a/,$regml(1)) if ($regex(%__,name="fb_dtsg" value="(.*)" autocomplete="off" \/><input type="hidden")) hadd -m fb DTSG fb_dtsg= $+ $regml(1) if ($regex(%__,name="post_form_id" value="(.*)" /><input type="hidden")) hadd -m fb post_from post_form_id= $+ $regml(1) if ($regex(%__,HTTP/1.1 200 OK)) $_e Bağlantı başarı ile kuruldu. if ($regex(%__,<title>(.*)<\/title><meta name=)) $_e Hoşgeldiniz: $regml(1) } ;end code. Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
|
Alıntı
|
Etiketler |
<email>, <password>, or facebook |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
IRCServices(Register esnasında, e-mail sabitleme.) | Return | IRCServices Hazır Kodlar | 3 | 18 Mart 2016 22:50 |
Sunucudaki Kayıtlı Nicklere Mail Gönderme TCL | No_FeaR | TCL Scriptler | 0 | 24 Eylül 2015 00:35 |
mIRC Mail Dialog. | SuLh | Hazır Kodlar | 1 | 23 Ağustos 2015 10:49 |
WHM/cPanel Üzerinde 1 Domain E-mail Erişimini Kapatmak | Return | WHM ve cPanel | 0 | 26 Temmuz 2015 12:05 |
CR Mail Block Hakkında | Goemon | ConferenceRoom | 0 | 05 Mart 2015 11:07 |