http://img53.imageshack.us/img53/5536/steambm3.jpg

 

Public Class Form1

   Const CharList = "ABCDEFGHIJKLMN2PQRST3VWXYZ456789"
   Const Pattern = "1101110001010100111000100000100001101011"

   Private Sub Generate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Generate.Click
       Dim bs As String = Encrypt(Byte2Bits(Product.SelectedIndex, 7) & Byte2Bits(SalesTerCode.Text, 8) & GenerateRandomBits(105))
       bs &= CalculateCheckSum(bs)
       ProductCode.Text = PutDashes(ExtractKey(bs))
   End Sub

   Function Byte2Bits(ByVal b, ByVal c)
       Dim a As String = ""
       For i As Integer = 1 To c
           a &= b Mod 2
           b = b \ 2
       Next
       Return StrReverse(a)
   End Function

   Function Bits2Byte(ByVal B)
       Dim n As Integer = 0
       Dim j As Integer = 0
       For i As Integer = Len(B) To 1 Step -1
           If Mid(B, i, 1) = "1" Then n = n + 2 ^ j
           j = j + 1
       Next
       Return n
   End Function

   Function GenerateRandomBits(ByVal n)
       Dim s As String = ""
       For i As Integer = 1 To n
           s &= Int(Rnd() + 0.5)
       Next
       Return s
   End Function

   Function Encrypt(ByVal bs)
       Dim h As String = ""
       For i As Integer = 1 To 40
           h &= Mid(bs, i, 1) Xor Mid(Pattern, i, 1)
       Next
       Return h + Mid(bs, 41)
   End Function

   Function CalculateCheckSum(ByVal bs)
       Dim sum As Integer = 0
       For i As Integer = 0 To 14
           sum = sum + Bits2Byte(Mid(bs, 8 * i + 1, 8))
       Next
       Return Byte2Bits((sum And 31), 5)
   End Function

   Function ExtractKey(ByVal bs)
       Dim code As String = ""
       For i As Integer = 0 To 24
           code = code + Mid(CharList, Bits2Byte(Mid(bs, 5 * i + 1, 5)) + 1, 1)
       Next
       Return code
   End Function

   Function PutDashes(ByVal key)
       Return Mid(key, 1, 5) & "-" & Mid(key, 6, 5) & "-" & Mid(key, 11, 5) & "-" & Mid(key, 16, 5) & "-" & Mid(key, 21, 5)
   End Function

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Product.SelectedIndex = 0
   End Sub

   Private Sub Copy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Copy.Click
       My.Computer.Clipboard.SetText(ProductCode.Text)
   End Sub
End Class

 

 

http://rapidshare.de/files/32644158/Steam_Product_Code_Generator.rar
Password = www.ZomgStuff.com

 

 

The algorithm is right, but the possibility of getting a CD-Key that Steam has made for a user to activate is pretty low.

 

Sticky mb?

Holy shit, It actually worked. A few keys were invalid but I got a Half-Life Anthology pack working.

 

+rep

  Pepperoni said:

Holy shit, It actually worked. A few keys were invalid but I got a Half-Life Anthology pack working.

 

+rep

 

4shizzle.

  UgLy-NeRd said:

4shizzle.

 

what's the territory code if i'm not in america ?

 

and i haven't got a working key yet ... :tear: :tear:

Retail - 10

ATI Bundle - 17

 

 

Those are all I know, I dont think it has to do with the area. I got the algorithm from a friend and made a program out of the algorithm.

Great job, now you should make a macro and an option to loop.

Very nice. Heres some tips that worked for me...

 

If it didnt work the first time, close the Product Activation window and try again - because If you dont, steam will stop trying to authenticate you. Only generate the key once, if that one is invalid, restart the keygen.

 

+rep m8 :wow:

 

||D || ||V|| ||D

I'm getting a message saying:

 

"The application failed to initialize properly (0x0000135)."

it always wants cd's

i have none

  r3st. said:

it always wants cd's

i have none

 

Download the mini image of hl2. Just google it, I know it is posted on http://www.cs.rin.ru.

 

And TWINTURBOSkyline, I do not know why you are getting an error. Provide a screenshot and I might be able to assist you further..

noob question:how do i use those strings of text to make the keygen

  Lollerblades said:

noob question:how do i use those strings of text to make the keygen

 

This is the source code which means you need to compile what is in the rapidshare download I have provided.

 

You can compile it with Visual Basic 2005 Express Edition (Free, can be found on Microsoft's website) or Visual Studio 2005.

rapidfile doesn't have it anymore :dunno:

get a complete list of the registers and stack if possible at the time of the crash, windows should provide a snapshot of the crash.

Re-upload plz

ugly-nerd has not been online for a long time. I doubt he's going to see this thread.

Hai guyz