| Toprak |
25 Ocak 2015 23:55 |
/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.
|
