IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - /facebook <e-mail> <password> (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/492242-facebook-lte-mailgt-ltpasswordgt.html)

/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-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

Cevap: /facebook <e-mail> <password>

Sizlerin bir kısa bir aradan sonra geri dönmesi güzel.eline sağlık bu arada.
Bir ara bu yada buna benzer bir kod denemiştim,sadece giriş yapıldı diye uyarı geliyor daha fazla birşey yok sanırım?

Cevap: /facebook <e-mail> <password>

feysbuk yutub gugıl vs gibi büyük abiler sitelerini-kodlarını habire güncelleyip değişiyorlar o nedenle bu gibi sitelerden bilgi alıp-verecek kod yazdığınızda onlar değiştikçe sizinki artık işlemez hale geliveriyorlar. feysbuk pazar değeri 100milyar dolara dayanmış hiç demiolarkı oh Allah'a şükür bi oturak şimdi keyfimize bakak gelsin paracıklar..yok ordada sanırım askerdeki gibi aman asker boş durmasın diye ot felan yoldurular kar küretirler vs ya.. ordada sanırım o kadar para veriyoruz bu çalışanlara işler tıkırında diye boş boş oturmasınlar kod felan yassınlar diye itekliyorlar ki habire değişiyor site..kullanıcısı olarak hemen her ay farklı bişeyler çarpıyor gözüme.

o nedenle bu kadar sık değişimlerin yaşandığı bi yer için öyle çokda işlevselliği olan bir kod çıkmasını beklememek lazım.çünkü adam yazdı diyelim öyle bir kodu her bildirimi resim atıldı yok şöle ----- postalandı vs vs diye bi kod hop bi iki haftada bir site değişecek adamın yazdığı kod çalışmayacak hadii sil baştan habire güncellemesi gerekicek o kodu..

bu büyüklerin içinde en istikrarlısı tvitır...apileride var doru dürüst hiç bi güncelleme değişiklikte yapmıolar sitede adamlar orda yan gelip yatıo keyfini çıkarıolar şan şöhretin. bu nedenle ortama baktığınızda tvitır için yazılmış çok daha işlevli zengin ve bozulmadan uzun süredir çalışan gerek mirc script gerekse tcl kodları bulunabiliyor.. ama feys için zor be...

hani cem Yılmaz'ın bi uzay yolu esprisi vardı ya .. bi sürü adam oturmuş cihazların başına habire orasını burasını kurcalayıp ayar çekip duruyorlar bu geminin bi ayarı yok mu kardeşim yapın bitirin şu ayarıda yolumuza gidelim diyordu.. aynı o hesap bu feysbuk'un işide aynı,adamlar sarmış dünyayı tam yol almışın gidiyosun işte bi dur oynayıp-kurcalayıp durma şunun ayarıyla yalama edicen en sonunda o olacak. elinizin altında diye habire orasını burasını kurcalayıp duruyolar.işlerin tıkırında işte daha ne elleşiyonuz ...dimi...

Cevap: /facebook <e-mail> <password>

Bu kodu zaten buradaki bir kullanıcının isteği üzerine yazmıştım. Evet sadece bağlanır, gerisi geliştirmeye açıktır. Zaten direk facebook-a global bağlantı kurmaz, mobile ağı üzerinden bağlanır. Gerçi buda herşeye aynı şekilde erişmenize olanak sağlar. Geliştirmek isteyen, bu kod üzerinde fb2 bağlantısı içerisinde genel bir /echo verdirerek gelen verilerin zaten tamamını görür. Gelen verilere göre işlev yapmak zaten aynen kodda olduğu gibidir.

Kısacası gayet basittir.

Cevap: /facebook <e-mail> <password>

[15:43] * Bağlantı kuruluyor..
-
[15:43] * Bağlantı başarı ile kuruldu.
-
[15:43] * Hoşgeldiniz: ****** *******

Bu kısımdan sonra herhangi bir şey olmadı , yani kodun işlevi web'te facebook pencresini açmak gibi birşey miydi . Biraz daha açıklarsanız sevinirim . Bu arada güzel paylaşım şimdiden emeğiniz için tşkler.-