Användarprofil

Uppgifter
Användarnamn
Email
Besök -
Hemsida Ingen
Plats (stad)
Senaste besök 01:00 - 1:a Januari 1970
Poster i forumet
Varningar
Grupp
Medlem sedan 01:00 - 1:a Januari 1970
Artiklar och filer
Den här användaren har inga artiklar eller filer

Avatar


Presentation av

Den här användaren har inte skapat någon personlig presentation.

Senaste inläggen i forumet

xp cd nyckel. VBS
tja...det ska vara webb baserat och visa all info om klienterna på webben. jag slutförde bara projektet, asså det var inte min kod från början. men nu är det klart ialla fall :-)
här kommer koden i VBS för att få fram xp nyckeln ifall ngn är intresserad:

msgBox sGetXPCDKey
Public Function sGetXPCDKey()

Dim bDigitalProductID
Dim bProductKey()
Dim bKeyChars(24)
Dim ilByte
Dim nCur
Dim sCDKey
Dim ilKeyByte
Dim ilBit

ReDim Preserve bProductKey(14)

Set objShell = CreateObject("WScript.Shell")


bDigitalProductID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\DigitalProductId")

Set objShell = Nothing

For ilByte = 52 To 66
bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
Next

'Possible characters in the CD Key:
bKeyChars(0) = Asc("B")
bKeyChars(1) = Asc("C")
bKeyChars(2) = Asc("D")
bKeyChars(3) = Asc("F")
bKeyChars(4) = Asc("G")
bKeyChars(5) = Asc("H")
bKeyChars(6) = Asc("J")
bKeyChars(7) = Asc("K")
bKeyChars(8) = Asc("M")
bKeyChars(9) = Asc("P")
bKeyChars(10) = Asc("Q")
bKeyChars(11) = Asc("R")
bKeyChars(12) = Asc("T")
bKeyChars(13) = Asc("V")
bKeyChars(14) = Asc("W")
bKeyChars(15) = Asc("X")
bKeyChars(16) = Asc("Y")
bKeyChars(17) = Asc("2")
bKeyChars(18) = Asc("3")
bKeyChars(19) = Asc("4")
bKeyChars(20) = Asc("6")
bKeyChars(21) = Asc("7")
bKeyChars(22) = Asc("8")
bKeyChars(23) = Asc("9")

For ilByte = 24 To 0 Step -1

nCur = 0

For ilKeyByte = 14 To 0 Step -1
'Step through each byte in the Product Key
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next

sCDKey = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
Next

sGetXPCDKey = sCDKey

End Function


//coma

Postad 11:03 - 31:a Maj 2005
Hälp om C++
skriv ut hela koden så är det lättare att hjälpa dig! ifall den inte är hemlig vill säga :-p

Postad 16:31 - 30:e Maj 2005
xp cd nyckel. VBS
men det finns ju mjukvara som tar fram den hur lätt som helst. borde ju gå. ett prg heter "magic jelly beam" eller liknande.

hittade en länk till en färdig kod:
[url=http://www.visualbasicscript.com/topic.asp?TOPIC_ID=3011[/url]

dock inte VBS.visual basic tror jag. har aldrig kodat VB så jag kan inte översätta, men det ska väll inte vara så svårt för ngn som kan? ska ta och fråga nån polare.


Postad 15:34 - 30:e Maj 2005
xp cd nyckel. VBS
hej.
första inlägget i detta forum :-)
försöker hitta VBscript som plockar fram xp's cd nyckel. håller på med ett inventerings verktyg och detta är det enda jag inte lyckats få fram. försökte andvända mig av wmi klassen win32_operatingsystem, men nyckeln jag får fram där stämmer inte. krypterad på nått sätt säkert. är det någon som kan hjälpa mig så vore jag jätte tacksam..

//coma

Postad 13:56 - 30:e Maj 2005

Skicka meddelande
Läs s blog