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&refsrc=http%3A%2F%2Fm.facebook.com%2Findex.php&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 

} 

;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.