Login Launcher

pachen123321 · 04/06/2013, 19:56

ich sag da mal besser nix zu
und lach mich lieber weg

Fehlgeschlagen · 04/06/2013, 19:59

Quote:

Originally Posted by pachen123321

ich sag da mal besser nix zu
und lach mich lieber weg

Nur weil du lieber die kostenlose Möglchkeit nimmst und Gimp nutzt ?

Tu nicht so als würdest du nichts Cracken ^^ ich wette wenn du ein
IPhone hast ist es Jailbracked.. oder ein Smartphone mit einem anderen
Kernel / Rom ....

Nein vergessen du hast Visual Basic.. hmmm genau und schreibst dir Bots
für fiesta .. etc.. das ist nicht illigal ne ^^

Quote:

[20:01:52] xTreme: Ja, wahrscheinlich benutzt er VB, wenn überhaupt xD
[20:01:57] нєχαcσяє: ^^
[20:02:01] xTreme: VB 2005 :P
[20:02:05] нєχαcσяє: Windows Editor DD
[20:02:27] xTreme: ^^

pachen123321 · 04/06/2013, 20:03

1. sind die express versionen free
2. sind die hier veröffentlichten bots sind in Autoit geschrieben und das ist free
3. mein handy is älter als du denke ich mal ( leute wie du brauchen sachen zum zeigen und angeben)
4. wv von dem code ist von dir und wv geklaut ??

du bist jemand der behaupt >10 prog sprachen zu beherschen
ich verneige mich vor dir
da komm ich leider nicht ran
du bist der weltmeister der pro sprachen

Fehlgeschlagen · 04/06/2013, 20:07

Quote:

Originally Posted by pachen123321

1. sind die express versionen free
2. sind die hier veröffentlichten bots sind in Autoit geschrieben und das ist free
3. mein handy is älter als du denke ich mal ( leute wie du brauchen sachen zum zeigen und angeben)
4. wv von dem code ist von dir und wv geklaut ??

du bist jemand der behaupt >10 prog sprachen zu beherschen
ich verneige mich vor dir
da komm ich leider nicht ran
du bist der weltmeister der pro sprachen

1. Mag sein ich verwende aber keine Express sachen.
2. Just lol auto it ? hahahah xD
3. Okay wenn du dir kein neues Leisten kannst / Bekommst.
4. Es ist alles von mir.. ich klaue nicht wenn schon hole ich mir inspirationen

Weiter gehts mit:

5. Ich bin einer der wenigen der die Google API benutzen kann, wenn ich mal
etwas vergessen habe ist es sehr hilfreich.

6. Es gibt etliche Online Books über Sämtlichen Script spachen.

×Treme · 04/06/2013, 20:08

Quote:

Originally Posted by pachen123321

1. sind die express versionen free
2. sind die hier veröffentlichten bots sind in Autoit geschrieben und das ist free
3. mein handy is älter als du denke ich mal ( leute wie du brauchen sachen zum zeigen und angeben)
4. wv von dem code ist von dir und wv geklaut ??

du bist jemand der behaupt >10 prog sprachen zu beherschen
ich verneige mich vor dir
da komm ich leider nicht ran
du bist der weltmeister der pro sprachen

Zeig uns doch ma dein Programm, interessiert uns alle sehr.
Ihr könnt alle andere Leute kritisieren, darin seit ihr Weltmeister, ich wette deine Programme sind nicht besser, wenn du überhaupt welche hast .. wenn nicht, brauchst du an seinen Programmen garkeine Fehler suchen.

EpicFight · 04/06/2013, 20:10

Quote:

Originally Posted by Fehlgeschlagen

1. Mag sein ich verwende aber keine Express sachen.
2. Just lol auto it ? hahahah xD
3. Okay wenn du dir kein neues Leisten kannst / Bekommst.
4. Es ist alles von mir.. ich klaue nicht wenn schon hole ich mir inspirationen

Weiter gehts mit:

5. Ich bin einer der wenigen der die Google API benutzen kann, wenn ich mal
etwas vergessen habe ist es sehr hilfreich.

6. Es gibt etliche Online Books über Sämtlichen Script spachen.

Galileo dinger meinste or ? ^^

Fehlgeschlagen · 04/06/2013, 20:12

Quote:

Originally Posted by EpicFight

Galileo dinger meinste or ? ^^

Du ich muss zugeben auch da habe ich schon nachgeschaut
aber ist nicht das beste...

pachen123321 · 04/06/2013, 20:15

...

Fehlgeschlagen · 04/06/2013, 20:20

Das selbe in grün:

pachen123321 · 04/06/2013, 20:31

du meinst das wäre source von ce ???
mach dich nicht noch mehr lächerlich als du es schon getan hast

dann mach mal nen screen wie du so einen code von ce bekommst

Fehlgeschlagen · 04/06/2013, 20:42

Quote:

Originally Posted by pachen123321

du meinst das wäre source von ce ???
mach dich nicht noch mehr lächerlich als du es schon getan hast

dann mach mal nen screen wie du so einen code von ce bekommst

Nein ich meinte das es dafür auch Cheat Energie gibt.

pachen123321 · 04/06/2013, 20:48

quatsch
ce is für andere sachen da.
ich vermute mal das du mir irgendwas in richtung Reverse Engineering sagen willst ?
da kannste besser mit ida pro oder sowas in der richtung machen

[EDIT] wie ich festgestellt hab, hast du nachgedacht und das video gelöscht *lach*

[Edit2] nun solltest du deine bemerkung löschen: "PS: Photoshop CS6 extended wenn ich bitten darf" *muahhh*

pachen123321 · 04/07/2013, 17:44

Dein Code

Code:

Imports System.Security.Cryptography
Imports System.Text
Imports System.Net
Imports System.IO

Public Class Form3

    ' Copyright 2013, All right reserved. Design By Kanaye假名你們
    ' Elitepvpers: http://www.elitepvpers.com/forum/members/4896069-kanaye-.html
    ' Skype: Kanaye-Gaming
    ' Email-Adresse: 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Audio.Play(My.Resources.BackGroundMusik, AudioPlayMode.Background)
    End Sub

    Public Shared Function GetMD5Hash(ByVal TextToHash As String) As String
        If TextToHash = "" Or TextToHash.Length = 0 Then
            Return String.Empty
        End If

        Dim md5 As MD5 = New MD5CryptoServiceProvider()
        Dim toHash As Byte() = Encoding.Default.GetBytes(TextToHash)
        Dim result As Byte() = md5.ComputeHash(toHash)

        Return System.BitConverter.ToString(result)
    End Function

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

        My.Computer.Audio.Play(My.Resources.Click, AudioPlayMode.Background)
        Dim tempPassToken As String() = GetMD5Hash(TextBox2.Text).Split("-")

        Dim passMD5 As String = ""

        For i = 0 To tempPassToken.Length - 1
            passMD5 = passMD5 & tempPassToken(i)
        Next

        Dim wc As WebClient = New WebClient()

        Dim Login As String() = wc.DownloadString("http://HIER.IP.EINTRAGEN:81/login/Login.php?Username=" & TextBox1.Text & "&Password=" & passMD5.ToLower()).Split("#")
        wc.Dispose()

        If Login(0) = "OK" Then
            MsgBox("Viel Spaß wünscht euch Kanaye假名你們")
            Process.Start("Odin.exe", "-osk_server HIER.IP.EINTRAGEN -osk_token " & Login(1) & " -osk_store www.google.de")

            Me.Close()
        Else
            MsgBox("Falscher Benutzername oder Passwort, bitte versuchen Sie es erneut!")
        End If
    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Me.Close()

    End Sub

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

    End Sub
End Class

Code von ********:

Code:

Imports System.Security.Cryptography
Imports System.Text
Imports System.Net

Public Class Form1

    Public Shared Function GetMD5Hash(ByVal TextToHash As String) As String
        If TextToHash = "" Or TextToHash.Length = 0 Then
            Return String.Empty
        End If

        Dim md5 As MD5 = New MD5CryptoServiceProvider()
        Dim toHash As Byte() = Encoding.Default.GetBytes(TextToHash)
        Dim result As Byte() = md5.ComputeHash(toHash)

        Return System.BitConverter.ToString(result)
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim tempPassToken As String() = GetMD5Hash(TextBox2.Text).Split("-")
        Dim passMD5 As String = ""
        Dim wc As WebClient = New WebClient()

        For i = 0 To tempPassToken.Length - 1
            passMD5 = passMD5 & tempPassToken(i)
        Next

        Dim Login As String() = wc.DownloadString("http://127.0.0.1:8080/Login.php?Username=" & TextBox1.Text & "&Password=" & passMD5.ToLower()).Split("#")
        wc.Dispose()

        If Login(0) = "OK" Then
            Process.Start("Client.exe", "-osk_server 192.168.178.38 -osk_token " & Login(1) & " -osk_store www.google.com")
            Close()
        ElseIf Login(0) = "Wrong Password." Then
            MessageBox.Show("Wrong Password.")
        ElseIf Login(0) = "Account Not Found." Then
            MessageBox.Show("Wrong Username.")
        Else
            MessageBox.Show("Unknown error.")
        End If
    End Sub

    Private Sub HelpToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HelpToolStripMenuItem.Click
        MessageBox.Show("Odin Client Launcher Created for the community by MrFarbodD / Dragonluck4. Post on the thread for help.")
    End Sub

    Private Sub CreditsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CreditsToolStripMenuItem.Click
        MessageBox.Show("Launcher created by MrFarbodD / Dragonluck4. Thanks to iStu, NextIdea, Black12, Iocere and anyone else that helped.")
    End Sub
End Class

nimm nun mal bei dir die grafiken und den sound weg

die gleichheit der freien variablen is schon beachtlich

EpicFight · 04/07/2013, 18:07

Quote:

Originally Posted by pachen123321

Dein Code

Code:

Imports System.Security.Cryptography
Imports System.Text
Imports System.Net
Imports System.IO

Public Class Form3

    ' Copyright 2013, All right reserved. Design By Kanaye假名你們
    ' Elitepvpers: http://www.elitepvpers.com/forum/members/4896069-kanaye-.html
    ' Skype: Kanaye-Gaming
    ' Email-Adresse: 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Audio.Play(My.Resources.BackGroundMusik, AudioPlayMode.Background)
    End Sub

    Public Shared Function GetMD5Hash(ByVal TextToHash As String) As String
        If TextToHash = "" Or TextToHash.Length = 0 Then
            Return String.Empty
        End If

        Dim md5 As MD5 = New MD5CryptoServiceProvider()
        Dim toHash As Byte() = Encoding.Default.GetBytes(TextToHash)
        Dim result As Byte() = md5.ComputeHash(toHash)

        Return System.BitConverter.ToString(result)
    End Function

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

        My.Computer.Audio.Play(My.Resources.Click, AudioPlayMode.Background)
        Dim tempPassToken As String() = GetMD5Hash(TextBox2.Text).Split("-")

        Dim passMD5 As String = ""

        For i = 0 To tempPassToken.Length - 1
            passMD5 = passMD5 & tempPassToken(i)
        Next

        Dim wc As WebClient = New WebClient()

        Dim Login As String() = wc.DownloadString("http://HIER.IP.EINTRAGEN:81/login/Login.php?Username=" & TextBox1.Text & "&Password=" & passMD5.ToLower()).Split("#")
        wc.Dispose()

        If Login(0) = "OK" Then
            MsgBox("Viel Spaß wünscht euch Kanaye假名你們")
            Process.Start("Odin.exe", "-osk_server HIER.IP.EINTRAGEN -osk_token " & Login(1) & " -osk_store www.google.de")

            Me.Close()
        Else
            MsgBox("Falscher Benutzername oder Passwort, bitte versuchen Sie es erneut!")
        End If
    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Me.Close()

    End Sub

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

    End Sub
End Class

Code von ********:

Code:

Imports System.Security.Cryptography
Imports System.Text
Imports System.Net

Public Class Form1

    Public Shared Function GetMD5Hash(ByVal TextToHash As String) As String
        If TextToHash = "" Or TextToHash.Length = 0 Then
            Return String.Empty
        End If

        Dim md5 As MD5 = New MD5CryptoServiceProvider()
        Dim toHash As Byte() = Encoding.Default.GetBytes(TextToHash)
        Dim result As Byte() = md5.ComputeHash(toHash)

        Return System.BitConverter.ToString(result)
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim tempPassToken As String() = GetMD5Hash(TextBox2.Text).Split("-")
        Dim passMD5 As String = ""
        Dim wc As WebClient = New WebClient()

        For i = 0 To tempPassToken.Length - 1
            passMD5 = passMD5 & tempPassToken(i)
        Next

        Dim Login As String() = wc.DownloadString("http://127.0.0.1:8080/Login.php?Username=" & TextBox1.Text & "&Password=" & passMD5.ToLower()).Split("#")
        wc.Dispose()

        If Login(0) = "OK" Then
            Process.Start("Client.exe", "-osk_server 192.168.178.38 -osk_token " & Login(1) & " -osk_store www.google.com")
            Close()
        ElseIf Login(0) = "Wrong Password." Then
            MessageBox.Show("Wrong Password.")
        ElseIf Login(0) = "Account Not Found." Then
            MessageBox.Show("Wrong Username.")
        Else
            MessageBox.Show("Unknown error.")
        End If
    End Sub

    Private Sub HelpToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HelpToolStripMenuItem.Click
        MessageBox.Show("Odin Client Launcher Created for the community by MrFarbodD / Dragonluck4. Post on the thread for help.")
    End Sub

    Private Sub CreditsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CreditsToolStripMenuItem.Click
        MessageBox.Show("Launcher created by MrFarbodD / Dragonluck4. Thanks to iStu, NextIdea, Black12, Iocere and anyone else that helped.")
    End Sub
End Class

nimm nun mal bei dir die grafiken und den sound weg

die gleichheit der freien variablen is schon beachtlich

Und beide haben es von mir , um es richtig zu stellen

pachen123321 · 04/07/2013, 18:24

dann is das doch alles klar,
dann mal ein gz an dich.
auf rz sind ja auch CREDITS drin. hier wird ja anderes behauptet.

gruss