Posted April 30, 200618 yr Ok, I'm making this topic since I have already received some PM's about the script I posted on my other topic. First of all, this will generate a key that LOOKS like a CS:S/HL2 key, it's all about luck if you get a valid key. Now, here is the script: For x = 0 to (second(time)*minute(Time)) Rnd() next CharactersPerSegment = 5 SegmentsToGenerate = 4 InitialSegment = "ZZP2E" SegmentSeparator = "-" GeneratedKey = InitialSegment + SegmentSeparator For SegmentCount = 1 to SegmentsToGenerate For CharacterCount = 1 to CharactersPerSegment GeneratedKey = GeneratedKey + RChar() next if(SegmentCount < SegmentsToGenerate) then GeneratedKey = GeneratedKey + SegmentSeparator end if next Set oIE = CreateObject("InternetExplorer.Application") oIE.Navigate "about:blank" Do Until oIE.ReadyState=4 : WScript.Sleep 1 : Loop oIE.Document.ParentWindow.ClipboardData.SetData "text", GeneratedKey oIE.Quit : set oIE=Nothing function RChar() if Rnd() >.5 then RChar = Chr((Rnd()*(57-49))+49) else RChar = Chr((Rnd()*(90-65))+65) end if end function That one is for HL2, paste all that code into notepad and save it with a .vbs extension, example: scipt.vbs. When you run the script, nothing will happen, you'll just have to paste it on the Activate a product on steam. (it automatically copies the key, you just have to paste it). So, how does this works? My last version of the script generated a random key, this time I've taken the time tos tudy steam keys, I asked some people for their keys, and plenty of them started with ZZP2E or ZZP2F, that is why you'll find this line in the script: InitialSegment = "ZZP2E" To make a CS:Source key, change that"ZZP2E" to "YRP2G", and save it again. HOW CAN YOU HELP THIS PROJECT? Post your VALID key, it's not like I can use it, you already registered it right? If you're still afraid of posting it, post the only 5 characters. Note that "ZZP2E" and "YRP2G" are just a few of the serials around, it is very important that you post your first 5 characters from a key you have to help this project.
April 30, 200618 yr <html> <body> <script type="text/vbscript"> For x = 0 to (second(time)*minute(Time)) ' this just makes it more random. Rnd() next etc = inputbox("How many times etc.") lol = "ZZP2E" For z = 1 to etc key = "" For x = 0 to 3 For j = 0 to 4 key = key + RChar() next if(x<3) then key = key + "-" end if next document.write(lol & "-" & key & "<br />") next function RChar() if Rnd() >.5 then RChar = Chr((Rnd()*(57-49))+49) else RChar = Chr((Rnd()*(90-65))+65) end if end function </script> </body> </html> I got bored one day so I pretty much decided to do the same thing to your old script. Also, you can tell this script how many times to cycle and it will display the keys inside the IE window once it's done. Just save this as an html file.
May 1, 200618 yr m0t++ said: Awesome work mate, I can see this going somewhere now. Yeah, you can do some other stuff too, like log it to a file. At which point you can write a script (Perl or VB come to mind.) to read from the file and try and register one at a time. I just can't remember how to make it append to the file instead of just overwriting it in VB, muchless VBScript.
May 1, 200618 yr Before I say anything, I'll warn you I don't know shit about coding or scripting, and I'm retarded. That aside: A while ago, someone released a fake steam thing on The Pirate Bay that was a regular keygen (like this), but it also had a little bit that connected to Steam and tried to validate the key. If it was valid, it phoned home and logged the valid key, then reported it to the user as invalid. Now clearly, people caught on to this very fast. But if it were included in legitimate hacks and whatnot, people might still use it even after realizing what it did. I think the guy ended up with quite a few valid serials. I'm wondering whether or not this is feasible, and if so, if you think it's worth the effort.
May 1, 200618 yr AnalDisco said: I'm wondering whether or not this is feasible, and if so, if you think it's worth the effort. Seems possible to me. And sure, why wouldn't it be worth the effort, it's like having hundreds upon hundreds (thousands even) of bots generating keys and testing them for you. Alot faster than doing it yourself, but can easily be stopped. The only problem is it might be a little hard to do with just VBScript.
May 1, 200618 yr seem to be work but they ask for cd of css. everybody can post the link of that ? thanks for this script :)
May 1, 200618 yr Author Wheat Toast said: Yeah, you can do some other stuff too, like log it to a file. At which point you can write a script (Perl or VB come to mind.) to read from the file and try and register one at a time. I just can't remember how to make it append to the file instead of just overwriting it in VB, muchless VBScript. I was thinking about that, I have no idea where to start though... mytoo: You actually got one? Or are you using one that I posted, because those one go into pending and in the end, don't work. If you got one from the script, ask a friend for the CD or download it I guess...
May 1, 200618 yr maybe this link can help us : http://cs.rin.ru/forum/viewtopic.php?t=32415&postdays=0&postorder=asc&start=0 More people work on the *2/1.5 method good idea in post but i am not good in programtion so Have fun :)
May 1, 200618 yr Im not too familiar with scripting, and I gave it a shot but to no avail, is there away to automatedly try all those keys for you? I'm using wheats script to get the keys.
May 1, 200618 yr have you an idea : where can i download cd-image off hl2 or css for using cd-key ? ty for your vbscript
May 1, 200618 yr ng1200 said: Doesn't work at all. STEAM keeps saying "Cdkey is invalid". help? Quote this will generate a key that LOOKS like a CS:S/HL2 key, it's all about luck if you get a valid key. 303030303030303030303030
July 30, 200618 yr :Owen_ said: how do you change your current cd key..? EDIT: just make a new account -.-' El oh el?
July 31, 200618 yr I got to "Activating Key With Steam" and the progress bar using the script, but then it ended up saying "Invalid Product Code." Now HL2's status is stuck on "Installing" :\. btw, I used "4ZB2R" for the first 5. I can't believe I'm just doing this now.
August 3, 200618 yr To be honest I have no clue, I've never actually tried to get a key myself (even though I modified the script), so I can't really trouble shoot any issues. I'm probably going to be bored a couple days this summer so expect a newer version. :happysad:
