Uppgifter | |
Användarnamn | |
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 |
Den här användaren har inte skapat någon personlig presentation. |
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 |
Datum
2025-03-16 06:33
Vecka: 11
Besökare
Inloggade: 0
Gäster: 605
Medlemmar
Medlemmar: 53576
Forum
Senaste inlägget: HAHA MÄNNISKAN LEVER ÄN (13:45 - 18:e Januari 2019, av Hetzz)
Wiki
Senaste ändringen:
3D (rev: 1, tid: 09:40 - 13:e November 2015)
Chatt
#blinkenlights @ Libera.Chat
Gratis shellkonton för IRC, webbsidor mm.