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 

}