VB de XP Cd key ini bulma

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 27961
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

VB de XP Cd key ini bulma

Mesaj gönderen velociraptor » 19 Mar 2006, 02:15

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

Public Function Question()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim Ans

Ans = MsgBox("Yes = Write Windows XP Serial key to the C Drive and No = Prompt with Serial key",4)

If Ans = vbYes then

Set oOutFile = objFSO.CreateTextFile("c:\XP_Serial_Key.txt")

oOutFile.WriteLine sGetXPCDKey
else
wscript.echo sGetXPCDKey
End If
End Function

call Question

Yukaridaki scripti her hangi bir yere a.vbs olarak kaydedip calistirirsaniz C: dizininde XP_Serial_Key.txt seklinde XP nizin CD Key ini bulursunuz
ALintidir (Tarafimdan denenmistir)



sensensen
Bit
Bit
Mesajlar: 20
Kayıt: 08 Oca 2007, 01:32

Mesaj gönderen sensensen » 14 Oca 2007, 14:42

bu kurulu sistem için mi geçerli elimde xp server var cd keyini nasıl bulurum onun cd halinde hiç bir keyi kabul etmiyor orjinal...

Kullanıcı avatarı
spectacuLar
Kilobyte2
Kilobyte2
Mesajlar: 370
Kayıt: 21 Eyl 2006, 18:04
cinsiyet: Erkek

Mesaj gönderen spectacuLar » 14 Oca 2007, 14:55

sensensen yazdı:bu kurulu sistem için mi geçerli elimde xp server var cd keyini nasıl bulurum onun cd halinde hiç bir keyi kabul etmiyor orjinal...
Resim

Windows 95, 98, ME, NT4, 2000, XP, Server 2003, Office 97, ve Office XP key''lerini görüp degistirmek icin kullanabileceginiz bir program.

Kod: Tümünü seç

http://downloads.sourceforge.net/keyfinder/keyfinder.2.0.1.zip?use_mirror=osdn

Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 27961
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Mesaj gönderen velociraptor » 24 Eki 2008, 13:52

kurulu sistem icin gecerlidir , Key bulucu yazilimin llinki yenilenmistir
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Kullanıcı avatarı
tasiyici
Megabyte3
Megabyte3
Mesajlar: 1438
Kayıt: 23 Şub 2008, 19:26
cinsiyet: Erkek
Konum: Quick Step Cycling Team
İletişim:

Mesaj gönderen tasiyici » 25 Eki 2008, 17:41

emeginize saglık
ALAYINA İSYAN ÖLÜMÜNE SORDUM.COM!!
LAFI KARILAR PAYLAŞIMI SORDUM.COM YAPAR!!!
MESAJIM VAR RUTBEM VAR SORDUMCUYUM HAVAM VAR!!!

Cevapla