IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   Hazır Kodlar (https://www.ircforumu.net/hazir-kodlar/)
-   -   /facebook <e-mail> <password> (https://www.ircforumu.net/hazir-kodlar/22-facebook-e-mail-password.html)

Sessiz 02 Mayıs 2016 22:27

/facebook <e-mail> <password>
 
Yazan: L4roXyL - Hasan AYDENİZ
Kullanım şekli: /facebook mail@adresi şifre
Örnek: /facebook deneme@deneme2.net 123456
Not: mIRCScripting.net 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@adresi 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: https://m.facebook.com/(.*))) 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\/(.*)">   if ($regex(%__,name="fb_dtsg" value="(.*)" autocomplete="off"  \/>   if ($regex(%__,name="post_form_id" value="(.*)" />   if ($regex(%__,HTTP/1.1 200 OK)) $_e Bağlantı başarı ile kuruldu.
  if ($regex(%__,(.*)<\/title><meta name=)) $_e Hoşgeldiniz: $regml(1) <br /> }<br /> ;end code.</code><hr /> </div></div> </td> </tr> </table> <br /> <br /> <table cellpadding="0" cellspacing="0" border="0" width="100%"> <tr valign="top"> <td class="smallfont">Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: <span class="time">13:09</span>.</td> <td align="right"> <div class="smallfont"></div> </td> </tr> </table> <p class="smallfont" align="center"> Powered by vBulletin® Version 3.8.11<br />Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. <br />Search Engine Friendly URLs by vBSEO 3.6.0<br /> Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır. </p> </body> </html>