PSN Account Maker [Beta]

04-17-2011, 06:08 PM #1

bonbonbon

dead babies in a tree

562

Posts

363

Reputation

149

Credits

Premium

May 2010

NextGenUpdate

(adsbygoogle = window.adsbygoogle || []).push({}); This is really beta right now all I have is a code to load the registration when the program begins. I'll upload the source and a debug folder. :pirate:

    

Public Class Form1  



 



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  



 



        'Part 1: Load PSN registration page in Form_Load event  



 



        WebBrowser1.Navigate("https://store.playstation.com/accounts/register/viewCountryLangDobSelect.action")  



 



    End Sub

here's my work folder , link removed.

(adsbygoogle = window.adsbygoogle || []).push({});

The following user thanked bonbonbon for this useful post:

ZachFean

04-17-2011, 07:04 PM #11

Dante.

Banned

339

Posts

494

Reputation

0

Credits

Banned

Aug 2010

NextGenUpdate

Originally posted by bonbonbon

I'm a douche with vb2010 express :p

I guess you are.

04-17-2011, 07:06 PM #12

bonbonbon

dead babies in a tree

562

Posts

363

Reputation

149

Credits

Premium

May 2010

NextGenUpdate

Hey, I got it to input the DOB automatically!

    Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        WebBrowser1.Navigate("https://store.playstation.com/accounts/register/viewCountryLangDobSelect.action")

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        Dim elementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")

        Dim controlId As String = ""



        elementCollection = WebBrowser1.Document.GetElementsByTagName("select")

        For Each curElement As HtmlElement In elementCollection

            controlId = curElement.GetAttribute("name").ToString

            If controlId = "account.mob" Then

                For Each oComboBoxItem As HtmlElement In curElement.Children

                    If (oComboBoxItem.GetAttribute("value") = "02") Then

                        oComboBoxItem.SetAttribute("selected", "selected")

                    End If



                Next



            End If

        Next

        For Each curElement As HtmlElement In elementCollection

            controlId = curElement.GetAttribute("name").ToString

            If controlId = "account.dob" Then

                For Each oComboBoxItem As HtmlElement In curElement.Children

                    If (oComboBoxItem.GetAttribute("value") = "02") Then

                        oComboBoxItem.SetAttribute("selected", "selected")

                    End If



                Next



            End If

        Next

        For Each curElement As HtmlElement In elementCollection

            controlId = curElement.GetAttribute("name").ToString

            If controlId = "account.yob" Then

                For Each oComboBoxItem As HtmlElement In curElement.Children

                    If (oComboBoxItem.GetAttribute("value") = "1990") Then

                        oComboBoxItem.SetAttribute("selected", "selected")

                    End If



                Next



            End If

        Next



    End Sub



End Class

here's my work folder and virus scaned

You must login or register to view this content.

    0 VT Community user(s) with a total of 0 reputation credit(s) say(s) this sample is goodware. 0 VT Community user(s) with a total of 0 reputation credit(s) say(s) this sample is malware. 



File name: 

psnaccountmaker.7z



Submission date: 

2011-04-17 19:01:51 (UTC)



Current status: 

finished









Result: 

0/ 42 (0.0%)

 



VT Community



not reviewed

 Safety score: -  







Compact



Print results

 







Antivirus



Version



Last Update



Result







AhnLab-V3



2011.04.18.00



2011.04.17



-







AntiVir



7.11.6.145



2011.04.17



-







Antiy-AVL



2.0.3.7



2011.04.17



-







Avast



4.8.1351.0



2011.04.17



-







Avast5



5.0.677.0



2011.04.17



-







AVG



10.0.0.1190



2011.04.17



-







BitDefender



7.2



2011.04.17



-







CAT-QuickHeal



11.00



2011.04.17



-







ClamAV



0.97.0.0



2011.04.17



-







Commtouch



5.2.11.5



2011.04.17



-







Comodo



8377



2011.04.17



-







DrWeb



5.0.2.03300



2011.04.17



-







Emsisoft



5.1.0.5



2011.04.17



-







eSafe



7.0.17.0



2011.04.15



-







eTrust-Vet



36.1.8274



2011.04.15



-







F-Prot



4.6.2.117



2011.04.16



-







F-Secure



9.0.16440.0



2011.04.17



-







Fortinet



4.2.257.0



2011.04.17



-







GData



22



2011.04.17



-







Ikarus



T3.1.1.103.0



2011.04.17



-







Jiangmin



13.0.900



2011.04.16



-







K7AntiVirus



9.96.4404



2011.04.16



-







Kaspersky



7.0.0.125



2011.04.17



-







McAfee



5.400.0.1158



2011.04.17



-







McAfee-GW-Edition



2010.1D



2011.04.17



-







Microsoft



1.6702



2011.04.17



-







NOD32



6050



2011.04.17



-







Norman



6.07.07



2011.04.17



-







Panda



10.0.3.5



2011.04.17



-







PCTools



7.0.3.5



2011.04.17



-







Prevx



3.0



2011.04.17



-







Rising



23.53.05.03



2011.04.16



-







Sophos



4.64.0



2011.04.17



-







SUPERAntiSpyware



4.40.0.1006



2011.04.16



-







Symantec



20101.3.2.89



2011.04.17



-







TheHacker



6.7.0.1.176



2011.04.17



-







TrendMicro



9.200.0.1012



2011.04.17



-







TrendMicro-HouseCall



9.200.0.1012



2011.04.17



-







VBA32



3.12.16.0



2011.04.15



-







VIPRE



9042



2011.04.17



-







ViRobot



2011.4.16.4414



2011.04.17



-







VirusBuster



13.6.309.0



2011.04.17



-











Additional information



Show all

 





MD5   : 0efbde5a55b696bfdf2a9056d432c18f



 



SHA1  : 8b3764ea41c6fc9c02d50573b51a47abd61905d1



 



SHA256: 655f8f459355438158238cb3bd8120dda022589945d2abad8f6a5e6819c8dd4d



 



ssdeep: 768:anuMu77alzCDe04U3PWzVpquRbuW06xkM5iKKKixJ9ekvB5ZO4rwhNIz:anuMuHa9CDzR30

VwuEsa7zLxJckvlrYi



 



File size : 44960 bytes



 



First seen: 2011-04-17 19:01:51



 



Last seen : 2011-04-17 19:01:51



 



TrI 

7-Zip compressed archive (100.0%)



 



sigcheck: 

publisher....: n/a

copyright....: n/a

product......: n/a

description..: n/a

original name: n/a

internal name: n/a

file version.: n/a

comments.....: n/a

signers......: -

signing date.: -

verified.....: Unsigned





 



packers (F-Prot): UTF-8, Unicode

UPDATE: Now it clicks the button for continue

    

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        WebBrowser1.Navigate("https://store.playstation.com/accounts/register/viewCountryLangDobSelect.action")

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        Dim elementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")

        Dim controlId As String = ""



        elementCollection = WebBrowser1.Document.GetElementsByTagName("select")

        For Each curElement As HtmlElement In elementCollection

            controlId = curElement.GetAttribute("name").ToString

            If controlId = "account.mob" Then

                For Each oComboBoxItem As HtmlElement In curElement.Children

                    If (oComboBoxItem.GetAttribute("value") = "02") Then

                        oComboBoxItem.SetAttribute("selected", "selected")

                    End If



                Next



            End If

        Next

        For Each curElement As HtmlElement In elementCollection

            controlId = curElement.GetAttribute("name").ToString

            If controlId = "account.dob" Then

                For Each oComboBoxItem As HtmlElement In curElement.Children

                    If (oComboBoxItem.GetAttribute("value") = "02") Then

                        oComboBoxItem.SetAttribute("selected", "selected")

                    End If



                Next



            End If

        Next

        For Each curElement As HtmlElement In elementCollection

            controlId = curElement.GetAttribute("name").ToString

            If controlId = "account.yob" Then

                For Each oComboBoxItem As HtmlElement In curElement.Children

                    If (oComboBoxItem.GetAttribute("value") = "1990") Then

                        oComboBoxItem.SetAttribute("selected", "selected")

                    End If



                Next



            End If

        Next

        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")

            If element.GetAttribute("id") = "BUTTONContinue" Then

                element.InvokeMember("click")

            End If

        Next









    End Sub



End Class

04-17-2011, 07:28 PM #13

am_fat_and_lazy

Little One

235

Posts

285

Reputation

0

Credits

Member

Nov 2010

NextGenUpdate

Originally posted by bonbonbon

Hey, I got it to input the DOB automatically!

    Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        WebBrowser1.Navigate("https://store.playstation.com/accounts/register/viewCountryLangDobSelect.action")

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        Dim elementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")

        Dim controlId As String = ""



        elementCollection = WebBrowser1.Document.GetElementsByTagName("select")

        For Each curElement As HtmlElement In elementCollection

            controlId = curElement.GetAttribute("name").ToString

            If controlId = "account.mob" Then

                For Each oComboBoxItem As HtmlElement In curElement.Children

                    If (oComboBoxItem.GetAttribute("value") = "02") Then

                        oComboBoxItem.SetAttribute("selected", "selected")

                    End If



                Next



            End If

        Next

        For Each curElement As HtmlElement In elementCollection

            controlId = curElement.GetAttribute("name").ToString

            If controlId = "account.dob" Then

                For Each oComboBoxItem As HtmlElement In curElement.Children

                    If (oComboBoxItem.GetAttribute("value") = "02") Then

                        oComboBoxItem.SetAttribute("selected", "selected")

                    End If



                Next



            End If

        Next

        For Each curElement As HtmlElement In elementCollection

            controlId = curElement.GetAttribute("name").ToString

            If controlId = "account.yob" Then

                For Each oComboBoxItem As HtmlElement In curElement.Children

                    If (oComboBoxItem.GetAttribute("value") = "1990") Then

                        oComboBoxItem.SetAttribute("selected", "selected")

                    End If



                Next



            End If

        Next



    End Sub



End Class

here's my work folder and virus scaned

You must login or register to view this content.

Have you thought about if it is a EU or US account that is being created as the DD MM YY would have the days and months the opposite way around. Which would probably result in an error etc in your program.

Edit: Doesn't matter Ive seen its set to 02-02-1990

04-17-2011, 07:46 PM #14

bonbonbon

dead babies in a tree

562

Posts

363

Reputation

149

Credits

Premium

May 2010

NextGenUpdate

Originally posted by lazy

Have you thought about if it is a EU or US account that is being created as the DD MM YY would have the days and months the opposite way around. Which would probably result in an error etc in your program.

Edit: Doesn't matter Ive seen its set to 02-02-1990

it uses the html document to get the name of the id so yeah it doesnt matter

04-17-2011, 07:49 PM #15

AlabamaHit

ROLL TIDE!!!

4,765

Posts

28,306

Reputation

0

Credits

Premium

Jan 2010

NextGenUpdate

Makes we wonder if I should release my 3 letter account maker lol. (even though it hasn't found one yet.) It searches for open 3 letter account lol. (Naw, I"m keeping that for myself)

Lol.

04-17-2011, 08:01 PM #16

stuartlittle98

Do a barrel roll!

115

Posts

110

Reputation

0

Credits

Member

Aug 2010

NextGenUpdate

Originally posted by AlabamaHit

Makes we wonder if I should release my 3 letter account maker lol. (even though it hasn't found one yet.) It searches for open 3 letter account lol. (Naw, I"m keeping that for myself)

Lol.

You can create 3 letter account's, then sign up and use existing account?

04-17-2011, 08:09 PM #17

AlabamaHit

ROLL TIDE!!!

4,765

Posts

28,306

Reputation

0

Credits

Premium

Jan 2010

NextGenUpdate

Originally posted by stuartlittle98

You can create 3 letter account's, then sign up and use existing account?

No, I make an account without attaching an PSN, then use my program to run and generate random 3 letter account names. It checks if they are taken. When it finds one that isn't, it will attach it to that account.

04-17-2011, 08:12 PM #18

TehGodZilla

Keeper

22

Posts

36

Reputation

0

Credits

Member

Apr 2011

NextGenUpdate

Whats The Point Of This Mate? When You Can Just Make An Account On The PS3 Or On The Playstation Website? =D

04-17-2011, 08:57 PM #19

iSwipper

Banned

120

Posts

219

Reputation

0

Credits

Banned

Sep 2010

NextGenUpdate

Originally posted by bonbonbon

I'm a douche with vb2010 express :p

i really dont care if you have visual basic 2010. 2008 is better anyway.

The following user thanked iSwipper for this useful post:

Superchunk