Tekil Mesaj gösterimi
Alt 02 Mayıs 2016, 22:27   #1
Çevrimdışı
Sessiz

Sessiz - ait Kullanıcı Resmi (Avatar)
/facebook <e-mail> <password>


Reklam

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:   Kodu kopyalamak için üzerine çift tıklayın!
;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\/(.*)"><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.

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:   Kodu kopyalamak için üzerine çift tıklayın!
;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\/(.*)"><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.

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı