1. Please help for getting serial number
- Posted by akusaya at gmx.net
Jun 21, 2002
------------11672820275987
This is a function that reteives the drive C: serial number.
I heard that the result always changes in Windows XP.
Please, can you test it?
In my machine (Win98) it is always 1022168071.
This is a shrouded eu file, you can run it with exw.exe
It is shrouded because the source is below but you need the dlla.e
to run it, so to simplify it, i shrouded it.
Thanks very much!
===============================================
include dlla.e
funcbaru("kernel32", "GetVolumeInformationA",
{cString, cString, cLong, cPtr, cPtr, cPtr, cString, cLong}, cLong)
global function nomorSerialC()
object pserno, ret
pserno = allocate(4)
ret = dllfunc("GetVolumeInformationA", {"C:\\", "", 0, pserno, 0, 0, "",
0})
return peek4u(pserno)
end function
printf(1, "%d", nomorSerialC())
?getc(0)
============================================
------------11672820275987
Content-Type: application/octet-stream; name="getvolinfo.e.exx"
2. Re: Please help for getting serial number
It seems to work fine. On my WinXP machine it always returns the same number
(3670048).
>From: akusaya at gmx.net
>Subject: Please help for getting serial number
>
>
>This is a function that reteives the drive C: serial number.
>
>I heard that the result always changes in Windows XP.
>
>Please, can you test it?
>
>In my machine (Win98) it is always 1022168071.
>
>This is a shrouded eu file, you can run it with exw.exe
>
>It is shrouded because the source is below but you need the dlla.e
>to run it, so to simplify it, i shrouded it.
>
>Thanks very much!
>
>===============================================
>include dlla.e
>
>funcbaru("kernel32", "GetVolumeInformationA",
>{cString, cString, cLong, cPtr, cPtr, cPtr, cString, cLong}, cLong)
>
>global function nomorSerialC()
>object pserno, ret
> pserno = allocate(4)
> ret = dllfunc("GetVolumeInformationA", {"C:\\", "", 0, pserno, 0,
>0, "", 0})
> return peek4u(pserno)
>end function
>
>printf(1, "%d", nomorSerialC())
>
>?getc(0)
>============================================
>
>
>
_________________________________________________________________
Chat with friends online, try MSN Messenger: http://messenger.msn.com
