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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Facebook Socket Bağlantısı Hakkında (https://www.ircforumlari.net/mirc-scripting-sorunlari/401533-facebook-socket-baglantisi-hakkinda.html)

Facebook Socket Bağlantısı Hakkında

Merhabalar üzerinde çalıştığım bir proje için gerekli Facebook'a Socket İle bağlanıp Kişi araması yapmak istiyorum mümkünse birde yeni mesajınız var gibi kısımları almak istiyorum yardımcı olursanız sevinirim

Cevap: Facebook Socket yardım.

Üzerinde çalıştığın proje hakkındaki kodları buraya verirsen sana yardımcı olunacaktır. Ama dediklerin için; login olayında POST, arama/mesaj olayında GET metodu kullanabilirsin.

Arama için GET edilecek adres(normal arayüzde): /search.php?q=verilerin devamı (Boşluk karakteri genellikle %20 olarak geçer. Yani örneğin arayacağın şey, Deneme Deneme2 ise: /search.php?q=Deneme%20Deneme2verilerin devamı.)
Login için ister sayfa kaynağından ulaş, istersen basit sniffer programları indirip sayfadan gelen giden verileri dinle (header-ları dahil)
Mesajlar için: /?sk=inbox

-

Veya m.facebook.com adresinden(mobile arayüz) işlev yapmanı öneririm senin için daha basit olacaktır.

Cevap: Facebook Socket Bağlantısı Hakkında

Hocam proje'den kastım script kodları istemişsiniz doğal olarak :) ama herhangi bir kod yazmadım facebook ile ilgili fikir alarak başlamak istedim yardımnız için teşekkür ederim bakalım yapabilecekmiyim :)

----------

PHP- Kodu:

   alias Baglan { sockopen Baglan m.facebook.com 80 | echo -a Analiz Ediliyor... }  

alias Geber { sockclose Baglan m.facebook.com 80 }

on *:SockOpen:Baglan:{ 

  var %KontroL sockwrite -n $sockname 

  %KontroL GET /index.php HTTP/1.1

  %KontroL Host: m.facebook.com

  %KontroL Accept-Language: tr-TR

  %KontroL $crlf

}  

on *:SockRead:Baglan:{  

  var %Sakinol 

  sockread %Sakinol

  echo -a %Sakinol 

}

alias Login { sockopen Baglan m.facebook.com 80 | echo -a Giriş Yapılıyor... }  

alias Çıkış { sockclose Baglan m.facebook.com 80 }

on *:SockOpen:Login:{ 

  var %Login sockwrite -n $sockname 

  var %veri email=Deneme@deneme.com&pass=123456

  %Login POST /login.php?m=m&amp;refsrc=http%3A%2F%2Fm.facebook.com%2Findex.php&amp;refid=8 HTTP/1.1

  %Login Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">-form-urlencoded; charset="utf=8"

  %Login Content-Lenght: $calc($Len(%veri) +1)

  %Login Host: m.facebook.com

  %Login

  %Login %veri

}

on *:SockRead:Login:{  

  var %Sakinol 

  sockread %Sakinol

  echo -a %Sakinol 

}

alias Temizle {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)  

  return %x 

}

Hocam verdiginiz bilgiler dogrultusunda ve görüntülü olarak verilen dersleri izleyerek şöyle birşey olusturdum ancak bağlanmayı basaramadım Bu sekilde sadece sayfanın kaynagını veriyor nerde yanlıslık yaptım acaba

Cevap: Facebook Socket Bağlantısı Hakkında

Kodu hızlıca yazdım o yüzden sorun olursa buradan bildirirsin. İşlerim var, geldiğimde(1 gün sonra) kodun açıklamasını yaparım. Eklemeler vs. da yaparız.

Kullanım şekli: /facebook mail@adresin şifren
Örnek: /facebook [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 123456
-

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-
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: http://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.

Cevap: Facebook Socket Bağlantısı Hakkında

çok sağolun hocam benim baya bir eksiğim varmış sizin yaptıgınız çok farklı birşey şimdi bunun üstüne eklemeler yapayım :)