![]() TmpVar = tmpVar & Mid((genVal * appVal) & "JSDEU", 1, 5) ' <<< Last part of the code is the There are tons of information about changing your hard disk volume serial number, but not the real one that is hard coded to the HDD. ![]() Here we show you that there are ways to spoof those hardware. GenNumber = UCase(tmpVar) ' <<< Returns the new key Public Function authKey(key, appName) As BooleanĪppVal = appVal + Val(Asc(Mid$(appName, i, 1))) LastErrorText Exit Sub End If This example demonstrates getting the SERIALNUMBER part of the subject, if one such part exists in the certs subject. If getPlusMinus(Mid(appName, i, 1)) = False Then This tutorial is all about getting and displaying the hard disk serial number for a complete disk but not in just a single drive using vb.net. ![]() GenVal = genVal + Val(Asc(Mid$(tempVar, i, 1))) Thanks for the best VB6 forum on the net. This information is obtained from the BIOS. If you run this script on a HP machine you will get some sort of serial number coming from HPs motherboard. If you run it from a so called no name machine you will get the.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |