Facebook (SwiftIRC)

By xbox_gamer1 on Jul 14, 2011

Commands:
/FBSetup
/FBUpdate (Status you want here)

How to:

Replace EMAIL HERE and PASSWORD HERE with your own email and pass
First run /FBSetup to get all of the cookies. And you only need to run this command once unless your cookies expire.
Then run /FBUpate (string here)

You can fined this script @ http://forum.swiftirc.net/viewtopic.php?f=34&t=23791

!!Enjoy!!!

alias FBSetup {

sockclose fbs
sockopen fbs m.facebook.com 80
echo -a ---- Starting Facebook Script ----
}

alias FBUpdate {
set %updatefb $1- (Powered by FSSv1)
sockclose fb9
sockopen fb9 m.facebook.com 80
}

on *:sockopen:fbs: {
var %user EMAIL EHRE
var %pass PASSWORD HERE
  var %data email= $+ %user $+ &pass= $+ %pass $+ &login=Log in
sockwrite -nt $sockname POST /login.php?http HTTP/1.1
sockwrite -nt $sockname Host: m.facebook.com
  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -nt $sockname Content-Length: $len(%data) 
  sockwrite -nt $sockname $crlf $+ %data
}
on *:sockread:fbs: {
var %f
sockread %f
if $regex(%f,Location: http://m.facebook.com/(.*)) {
echo -a ---- Retrieving cookies ----
set %fburl / $+ $regml(1)
}
if $regex(%f,Set-Cookie: cur_max_lag=(.*); path=) {

set %fbc1 cur_max_lag= $+ $regml(1)
}
if $regex(%f,Set-Cookie: datr=(.*); expires=) {
set %fbc2 datr= $+ $regml(1)
}
if $regex(%f,Set-Cookie: m_user=(.*); expires=) {
set %fbc3 m_user= $+ $regml(1)
}
if $regex(%f,Set-Cookie: made_write_conn=(.*); path=) {
set %fbc4 made_write_conn= $+ $regml(1)
}

sockclose fb2
sockopen fb2 m.facebook.com 80
}

on *:sockopen:fb2: {
  sockwrite -nt $sockname GET %fburl HTTP/1.1
  sockwrite -nt $sockname Host: m.facebook.com
set %cookie $+(%fbc1,;,$chr(32),%fbc2,;,$chr(32),%fbc3,;,$chr(32),%fbc4)
  sockwrite -nt $sockname Cookie: %cookie
  sockwrite -nt $sockname $crlf 
}

on *:sockread:fb2: {
var %f2
sockread %f2
if $regex(%f2,action="\/a(.*)" method=) {
set %fburl1 $+(/a,$regml(1))
}
if $regex(%f2,name="fb_dtsg" value="(.*)" \/><input) {
set %fbv1 fb_dtsg= $+ $regml(1)
}
if $regex(%f2,name="post_form_id" value="(.*)" \/><div>) {
set %fbv2 post_form_id= $+ $regml(1)
echo -a ---- All information stored. Use /FBUpdate to update your status ----
}

}

on *:sockopen:fb9: {
var %data $+(%fbv1,&,%fbv2,&status=,%updatefb,&update=Share)
  sockwrite -nt $sockname POST %fburl1 HTTP/1.1
  sockwrite -nt $sockname Host: m.facebook.com
  sockwrite -nt $sockname Cookie: %cookie
  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -nt $sockname Content-Length: $len(%data)
  sockwrite -nt $sockname $crlf $+ %data
echo -a ---- Status updated ----
}

Comments

Sign in to comment.
devcline   -  Apr 29, 2015

before it workd now it stoped, stucking on cookies, probaly facebook changed a lot of thinks.. need to revise.

 Respond  
PackardBell   -  Jun 10, 2013

---- Starting Facebook Script ----
---- Retrieving cookies ----

and that's the end :( Doesn't work properly...

 Respond  
hahaha3232   -  Jan 22, 2012

Hi, I don't know if I'm in the right place but maybe u can help. I'm looking to load a software in my computer where I could track ppl that go into my Hi5 and find out their location. If you think you can help please contact me at: hahaha3232@hotmail.com
Thanks,
Wendy

 Respond  
TochA1551   -  Jul 14, 2011

nice

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.