[Source] YouTube Account Bot

[.SaFe]

Hast du dir den Rest durchgelesen? Er ist zu Testzwecken, weil YouTube sein Anmeldeverfahren geändert hat

[Kraizy​]

Originally Posted by Cascraft

omfg warum stellt mal hier einen bot der nicht funktioniert? Oo Troll

[.Headliner]

@ vorposter
#Spam

@ Theard
ich verstehe nicht was sich geändert hatt, sry

[Chicken17]

Youtube selbst hat auf der Seite das Anmeldeverfahren geändert. Ich weiß nicht genau was aber ein Beispiel wäre: (ist nicht so auf youtube blos beispiel)
Früher: alle daten wie name, passwort, geburtsdatum, gehimeinantwort untereinander auf einer seite eingeben und dann auf ok oder so drücken.

Heute: Name, passwort, geburtsdatum auf einer Seite, dann muss man auf weiter klicken und dann die geheimantwort eingeben.

Und schon stimmt der bot nicht mehr.

[.SaFe]

nein, man muss sich registrieren, hat dann einen unnutzbaren Account auf der eMail und muss sich einen Kanal mit dem gewünschten Benutzernamen erstellen.

[.2good4you111]

Jaa, ich hab einen YouTube Account Bot verkauft, den sicher einige von euch kennen.
YouTube hat aber leider sein Registrierungsverfahren geändert und deshalb muss man Id's ändern und noch etwas hinzufügen. (Wer nicht weiß was, kann es auf YouTube testen).

Im Anhang habe ich den Sourcecode und ich poste ihn auch nochmal hier.

Es gibt nur eine Regel: Es darf nicht verändert und/oder verkauft werden, also nur für den Privatgebrauch.

@.SaFe,
Der Absatz wiederspricht sich ein bisschen

[kleinerchiller]

Hi
Geil, dass man mal die Chance bekommt zu sehen wie das funktioniert. Von den Anweisungen hab ich das im Grunde alles verstanden, ich geh jetzt mal davon aus, dass ich die nächsten Schritte zu einem funktionsfähigen Bot selbst hinbekomme, aber wie funktioniert das mit dem Compiler genau ? Lade ich mir einen C++ Editor mit Compiler, ändere dort die Source und lass mir dann eine exe ausspucken oder wie läuft das ?
Gruß

[Kraizy​]

Das ist nicht C++

[kleinerchiller]

Jo C#, danke für den Hinweis

[BlackHybrid]

Naja eigentlich ist ja C# eine OOP aber das ähnelt leicht einem Funktionalen Stil.
OOP hätte man das ganze bestimmt leichter lösen können und vorallem übersichtlicher^^

[roteisenklinge]

Nunja, von mir nen Thanks, hat mir weitergeholfen

[warfley]

dabei handelt es sich nicht um die optimal lösung.

1. ist das ganze sehr funktional
2. ist die webbrowser komponente der wohl langsamste weg dafür, obwohl bei einer solch komplexen seite wie youtube auch der einfachste

[.exTremez™]

Für die VB.Net'ler unter uns :P

 Spoiler

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Threading
Imports System.Management

Namespace Youtube_Account_Bot

	Public Partial Class Form1
		Inherits Form

		Public pw As String
		Public l As Integer
		Public rnd As New Random()
		Public isReady As Boolean = False
		Public accs As String
		Public nickname As String
		Public Sub New()


			InitializeComponent()
		End Sub

		Private Sub button1_Click(sender As Object, e As EventArgs)





			Dim chars_a = "BCDFGHJKLMNPQRSTVWXYZ"
			Dim random = New Random()
			Dim a = New String(Enumerable.Repeat(chars_a, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_b = "aeiou"
			Dim b = New String(Enumerable.Repeat(chars_b, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_z = "0123456789"
			Dim z = New String(Enumerable.Repeat(chars_z, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_c = "aeiou"
			Dim c = New String(Enumerable.Repeat(chars_c, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_d = "aeiou"
			Dim d = New String(Enumerable.Repeat(chars_d, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())

			Dim chars_f = "bcdfghjklmnpqrstvwxyz"
			Dim f = New String(Enumerable.Repeat(chars_f, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_g = "bcdfghjklmnpqrstvwxyz"
			Dim g = New String(Enumerable.Repeat(chars_g, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_z_2 = "0123456789"
			Dim z2 = New String(Enumerable.Repeat(chars_z_2, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_h = "aeiou"
			Dim h = New String(Enumerable.Repeat(chars_h, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())

			Dim chars_z_3 = "0123456789"
			Dim z3 = New String(Enumerable.Repeat(chars_z_3, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())

			nickname = a & b & f & c & g & h & "s" & z & z2 & z3
			' Name zusammensetzen
			pw = a & f & z & c & z3 & g & z2 & b
			accs = textBox2.Text + vbCr & vbLf & nickname & ":" & pw
			textBox2.Text = accs
			l = rnd.[Next](1, 999999999)
			isReady = False
			webBrowser1.Navigate("http://www.youtube.com/create_account")

			MessageBox.Show("weiter?")
			While Not isReady
				Application.DoEvents()
			End While
			webBrowser1.Document.All("signUpEmail").SetAttribute("value", l & "@" & l & ".de")
			webBrowser1.Document.All("username").SetAttribute("value", nickname)
			webBrowser1.Document.GetElementById("birthday_day").SetAttribute("value", "7")
			webBrowser1.Document.GetElementById("birthday_mon").SetAttribute("value", "1")
			webBrowser1.Document.GetElementById("birthday_yr").SetAttribute("value", "1990")
			webBrowser1.Document.All("male").InvokeMember("click")
			webBrowser1.Document.GetElementById("button-signin").InvokeMember("click")

			isReady = False

			isReady = False

			While Not isReady
				Application.DoEvents()
			End While
			webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", "aogf1975")
			webBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", "aogf1975")
			webBrowser1.Document.GetElementById("newaccountcaptcha").SetAttribute("value", "11111")
			isReady = False
			webBrowser1.Document.GetElementById("signup").InvokeMember("click")
			While Not isReady
				Application.DoEvents()
			End While
			webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", pw)
			webBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", pw)
			isReady = False
		End Sub

		Private Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
			isReady = True
		End Sub



		Private Sub button3_Click(sender As Object, e As EventArgs)
			isReady = False
			webBrowser1.Navigate("https://www.google.com/accounts/EditEmail")
			While Not isReady
				Application.DoEvents()
			End While
			'eMail ändern ~> AntiBan

			webBrowser1.Document.GetElementById("Email").SetAttribute("value", l & "")
			webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", pw)
			webBrowser1.Document.All("save").InvokeMember("click")
			isReady = False
			While Not isReady
				Application.DoEvents()
			End While
			isReady = False
			webBrowser1.Navigate("http://cust.in")
			While Not isReady
				Application.DoEvents()
			End While
			Dim ctns As Boolean = False

			'eMail bestätigen
			webBrowser1.Document.GetElementById("intLoginDomainId").SetAttribute("value", "7")
			webBrowser1.Document.GetElementById("strLoginUsername").SetAttribute("value", l & "1")
			isReady = False
			webBrowser1.Document.All("btnLogin").InvokeMember("click")

			While Not isReady
				Application.DoEvents()
			End While
			If webBrowser1.DocumentText.Contains("gaja.bounces.google.com") Then
				ctns = True
			End If
			isReady = False
			'
'            while (ctns == false)
'            {
'                
'                
'
'                while (!isReady)
'                {
'                    Application.DoEvents();
'                }
'                isReady = false;
'                webBrowser1.Document.GetElementById("current").InvokeMember("click");
'                
'                if (webBrowser1.DocumentText.Contains("gaja.bounces.google.com"))
'                {
'                    ctns = true;
'                }
'            }
'                if (ctns == true)
'
'                { 
'                    MessageBox.Show("nice");
'                }

		End Sub



		Private Sub webBrowser1_DocumentCompleted_1(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
			isReady = True
		End Sub

		Private Sub button2_Click(sender As Object, e As EventArgs)
			While Not isReady
				Application.DoEvents()
			End While
			webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", pw)
			webBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", pw)
			isReady = False

		End Sub

		Private Sub Form1_Load(sender As Object, e As EventArgs)
			webBrowser1.Navigate("http://youtube.com")
			isReady = False
			Dim form2 As New Form2()
			form2.Close()
		End Sub

		Private Sub button4_Click(sender As Object, e As EventArgs)
			isReady = False
			webBrowser1.Navigate("http://youtube.com")
			While Not isReady
				Application.DoEvents()
			End While

			webBrowser1.Navigate("javascript:document.logoutForm.submit();")
		End Sub

	End Class
End Namespace

[l1ght #]

Habe hier mal die Source in VB.Net Converted

Und wie?
-Mit meinem

PHP Code:

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Threading
Imports System.Management
Namespace Youtube_Account_Bot
    Public Partial Class Form1
        Inherits Form
        Public pw As String
        Public l As Integer
        Public rnd As New Random()
        Public isReady As Boolean = False
        Public accs As String
        Public nickname As String
        Public Sub New()
            InitializeComponent()
        End Sub
        Private Sub button1_Click(sender As Object, e As EventArgs)
            Dim chars_a As var = "BCDFGHJKLMNPQRSTVWXYZ"
            Dim random As var = New Random()
            Dim a As var = New String(Enumerable.Repeat(chars_a, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            Dim chars_b As var = "aeiou"
            Dim b As var = New String(Enumerable.Repeat(chars_b, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            Dim chars_z As var = "0123456789"
            Dim z As var = New String(Enumerable.Repeat(chars_z, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            Dim chars_c As var = "aeiou"
            Dim c As var = New String(Enumerable.Repeat(chars_c, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            Dim chars_d As var = "aeiou"
            Dim d As var = New String(Enumerable.Repeat(chars_d, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            Dim chars_f As var = "bcdfghjklmnpqrstvwxyz"
            Dim f As var = New String(Enumerable.Repeat(chars_f, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            Dim chars_g As var = "bcdfghjklmnpqrstvwxyz"
            Dim g As var = New String(Enumerable.Repeat(chars_g, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            Dim chars_z_2 As var = "0123456789"
            Dim z2 As var = New String(Enumerable.Repeat(chars_z_2, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            Dim chars_h As var = "aeiou"
            Dim h As var = New String(Enumerable.Repeat(chars_h, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            Dim chars_z_3 As var = "0123456789"
            Dim z3 As var = New String(Enumerable.Repeat(chars_z_3, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
            nickname = a + b + f + c + g + h + "s" + z + z2 + z3
            pw = a + f + z + c + z3 + g + z2 + b
            accs = textBox2.Text + vbCr & vbLf + nickname + ":" + pw
            textBox2.Text = accs
            l = rnd.[Next](1, 999999999)
            isReady = False
            webBrowser1.Navigate("http://www.youtube.com/create_account")
            MessageBox.Show("weiter?")
            While Not isReady
                Application.DoEvents()
            End While
            webBrowser1.Document.All("signUpEmail").SetAttribute("value", l + "@" + l + ".de")
            webBrowser1.Document.All("username").SetAttribute("value", nickname)
            webBrowser1.Document.GetElementById("birthday_day").SetAttribute("value", "7")
            webBrowser1.Document.GetElementById("birthday_mon").SetAttribute("value", "1")
            webBrowser1.Document.GetElementById("birthday_yr").SetAttribute("value", "1990")
            webBrowser1.Document.All("male").InvokeMember("click")
            webBrowser1.Document.GetElementById("button-signin").InvokeMember("click")
            isReady = False
            isReady = False
            While Not isReady
                Application.DoEvents()
            End While
            webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", "aogf1975")
            webBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", "aogf1975")
            webBrowser1.Document.GetElementById("newaccountcaptcha").SetAttribute("value", "11111")
            isReady = False
            webBrowser1.Document.GetElementById("signup").InvokeMember("click")
            While Not isReady
                Application.DoEvents()
            End While
            webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", pw)
            webBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", pw)
            isReady = False
        End Sub
        Private Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
            isReady = True
        End Sub
        Private Sub button3_Click(sender As Object, e As EventArgs)
            isReady = False
            webBrowser1.Navigate("https://www.google.com/accounts/EditEmail")
            While Not isReady
                Application.DoEvents()
            End While
            webBrowser1.Document.GetElementById("Email").SetAttribute("value", l + "")
            webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", pw)
            webBrowser1.Document.All("save").InvokeMember("click")
            isReady = False
            While Not isReady
                Application.DoEvents()
            End While
            isReady = False
            webBrowser1.Navigate("http://cust.in")
            While Not isReady
                Application.DoEvents()
            End While
            Dim ctns As Boolean = False
            webBrowser1.Document.GetElementById("intLoginDomainId").SetAttribute("value", "7")
            webBrowser1.Document.GetElementById("strLoginUsername").SetAttribute("value", l + "1")
            isReady = False
            webBrowser1.Document.All("btnLogin").InvokeMember("click")
            While Not isReady
                Application.DoEvents()
            End While
            If webBrowser1.DocumentText.Contains("gaja.bounces.google.com") Then
                ctns = True
            End If
            isReady = False
        End Sub
        Private Sub webBrowser1_DocumentCompleted_1(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
            isReady = True
        End Sub
        Private Sub button2_Click(sender As Object, e As EventArgs)
            While Not isReady
                Application.DoEvents()
            End While
            webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", pw)
            webBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", pw)
            isReady = False
        End Sub
        Private Sub Form1_Load(sender As Object, e As EventArgs)
            webBrowser1.Navigate("http://youtube.com")
            isReady = False
            Dim form2 As New Form2()
            form2.Close()
        End Sub
        Private Sub button4_Click(sender As Object, e As EventArgs)
            isReady = False
            webBrowser1.Navigate("http://youtube.com")
            While Not isReady
                Application.DoEvents()
            End While
            webBrowser1.Navigate("javascript:document.logoutForm.submit();")
        End Sub
    End Class
End Namespace