Account Creators

kalrudra said:

Here is the plan:

1) Free email account creators.

1> Hotmail
2> Yahoo
3> GMX
4> Zoho mail
5> AOL Mail
6> Hushmail
7> Opera Mail
8> Mail.com
9> rediff.com
10> muchomail

2) Social Networking sites account creators. + (Email verifier)

1> Facebook
2> Twitter
3> Linkedin
4> Myspace
5> LiveJournal
6> VKontakte (Russian)
7> Habbo (Teens social network site)
8> Badoo
9> Qzone (Chinese)
10> Renren (Chinese facebook)
11> Flickr
12> Last.fm
13> XING (Business)
14> LiveJournal
15> Fotolog
16> BlackPlanet
17> Netlog
18> Yelp

3) Bookmarking sites account creators. + (Email verifier)

1> Digg
2> Reddit
3> Stumbleupon
4> delicious

4) Video Sites. + (Email Verifier)
1) Dailymotion
2) Metacafe
3) Vimeo

And then Create such a account creator which can create accounts on any kind of site.

I think creating accounts programmatically is very simple..
Fill the form -> submit -> verify email... that's it..

Click to expand...

kalrudra said:

Working hard on this despite lack of time...

I will finish it 100% don't worry.

Click to expand...

MrMonetize said:

Interesting thread, but blimy there's some impatient folk in here. Give the guy time.

Is this a desktop app or will it only run in the browser? Surely a desktop app would be better or is there a reason its only for a browser?

Also, I use Open VPN, will this work with this software and i take it i wont need proxies that way or can you use both?

How about adding Craiglist into the sites it works with?

Will this randomly create user profiles like name, DOB, age etc or will it only use the profile you enter? Any ideas how to randomly create 'fake' people for use on these sites?

Thanks for doing this, Ill happily donate if this works as its described.

Click to expand...

kalrudra said:

I am going to write that in F#... It's extremely easy to make bots in F#.

It's more natural programming language than C#. very easy for newbies..

50% to 80%(in some cases) less code to write than C#...

for example... Google SERP scraper:

Code:

open System
open System.IO
open System.Net
open System.Threading
open System.Windows.Forms
open SHDocVw
open mshtml
open System.Windows.Forms
open System.Text.RegularExpressions

let (|Match|_|) (pat:string) (inp:string) =
    let m = Regex.Match(inp, pat) in
    if m.Success
    then Some (List.tail [ for g in m.Groups -> g.Value ])
    else None

let (|Matches|_|) (pat:string) (inp:string) =
    let m = Regex.Matches(inp, pat) in
    if m.Count > 0
    then Some ( [ for g in m -> g.Value ])
    else None



let getPage (url:string) = 
        let (html:HtmlDocument ref) =  ref null

        let handler (sender:obj) (e: WebBrowserDocumentCompletedEventArgs) = 
            let wb = sender :?> (WebBrowser)
            html := (wb.Document)

        use wb = new WebBrowser()
        wb.Visible<-true
        wb.DocumentCompleted.Add(handler wb)
        wb.Navigate(url)

        while wb.ReadyState <> WebBrowserReadyState.Complete do
                    Application.DoEvents()
    
        html

let googleSearch term = 
    let rec googleSearch link pass res = 
        let search = getPage link
        Thread.Sleep(TimeSpan.FromSeconds(5.0))
    
        let potentialLinks = 
            seq{ for link in search.Value.Links do
                     if not(link.OuterHtml.Contains("google")) then 
                         yield link.OuterHtml }
            |>Seq.toArray
   
        let pat = "href=\"([^>]+)\">"

        let links = 
             potentialLinks
             |> Array.filter(fun elem -> elem.Contains("<A class=\"l\" onmousedown="))
             |> Array.map( fun elem -> match elem with 
                                       |Match pat (link::t) -> link
                                       | _ -> failwith "critical parsing error")
        let next = 
             potentialLinks
             |> Array.filter(fun elem -> elem.Contains("<A class=\"fl\"")&& elem.Contains("/search?"))
             |> Array.map( fun elem -> match elem with 
                                       | Match pat (link::t) -> "http://www.google.com"+link
                                       | _ -> failwith "critical parsing error")

        let newRes = res|>Array.append(links)
        
        if (next.Length-1) <= pass then
           newRes
        else
           let newPass = pass+1
           googleSearch ((next.[newPass]).Replace(";","&")) newPass newRes

    googleSearch ("http://www.google.com/search?num=100&hl=en&q="+term+"&btnG=Search&aq=f&aqi=&aql=&oq=") -1 [||]   


googleSearch "F# love"

Click to expand...