RE: How to expose your Facebook stalkers 06-10-2014, 12:54 PM
#1
In reply to:
http://www.hackcommunity.com/Thread-How-...stalkers-D
Source:
Would have used Httpwebrequests but Facebook won't allow the use of such things. >
http://www.hackcommunity.com/Thread-How-...stalkers-D
Source:
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = RichTextBox1.Text
Dim noQuotes As String = RichTextBox1.Text.Replace(ControlChars.Quote, "//\\") 'Gets rid of all the quotes for easy code
Dim aA() As String = Split(noQuotes, "//\\InitialChatFriendsList//\\,[],{//\\list//\\:[") 'Used to isolate IDs
Dim aAA() As String = Split(aA(1), "//\\]},26],[//\\BlackbirdUpsellConfig//\\,") 'Used to isolate IDs
Dim reformatStr As String = aAA(0).Replace("//\\", "") 'Removes the //\\
Dim IDs() As String = Split(reformatStr, ",") 'Seperates all the IDs from into indecies for array
'ListBox1.Sorted = True 'Sorts them for easy use.
For i = 0 To IDs.Length - 1 'Loops through the IDs
Dim tempStr As String = IDs(i).Substring(0, IDs(i).Length - 2) 'Removes the useless characters after the ID
If Not (ListBox1.Items.Contains(tempStr)) Then 'Checks for duplicates
ListBox1.Items.Add(tempStr) 'Puts the IDs in a listbox
End If
Next
MsgBox("Stalkers Found:" & ListBox1.Items.Count, MsgBoxStyle.OkOnly, "Stalkers Found :D")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate("http://www.facebook.com/" & ListBox1.Items.Item(ListBox1.SelectedIndex))
End Sub
End ClassWould have used Httpwebrequests but Facebook won't allow the use of such things. >
![[+]](https://sinister.li/images/modern/collapse_collapsed.png)
