今天对我来说是个很特别的日子,祝大家圣诞快乐,提供个以前写的读取本机 ESET 的ID、密码及有效期的程序及VB源码。
本程序用于读取ESET_NOD32存储在本机注册表中的ID、密码及有效期,支持Eset 4.0、5.0。
为避嫌,本程序绿色不联网,所以有效期是从注册表中读取。对于刚安装完毕的NOD32,需要成功更新一次病毒库才能正确读出有效期。此外代码中给出的密码加密函数,在本程序中用不到,可以删除。保留此函数的目的,只要再写个XMLHTTP获取网络上的ID及密码,就可以实现NOD32_ID自动获取器的功能。需要者请自行写代码,本人就不提供了。
在XP_SP3下测试有效,WIN7下未测试,如无效只需要将代码中读注册表的那几项改成WIN7中注册表项目名即可。
已编译好的程序请到此处下载:http://115.com/file/e6az2zlj#,卡饭怎么用抽风了,附件上传不了。
- Option Explicit
- Dim PwBA()
- Dim TheName As String, ThePW As String
- Dim i As Long
- Dim Wss As Object
- Private Sub Form_Load()
- On Error Resume Next
- Dim RegPW(), TheTime
- PwBA = Array(&H61, &HD4, &HDD, &HFB, &H5B, &H35, &HB7, &H19, &HEC, &H2B)
- '读注册表
- Set Wss = CreateObject("WScript.Shell")
- TheName = Wss.RegRead("HKLM\SOFTWARE\Eset\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile\username") '用户名
- RegPW = Wss.RegRead("HKLM\SOFTWARE\Eset\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile\password") '密码
- TheTime = Wss.RegRead("HKLM\SOFTWARE\ESET\ESET Security\CurrentVersion\LicenseInfo\ExpirationDate") '有效期
- Set Wss = Nothing
- If TheName = "" Or RegPW(0) = "" Then
- MsgBox "没有找到注册信息"
- End
- End If
- TheTime = #1/1/1970# + Int(TheTime / 3600 / 24)
- ThePW = JieMi(RegPW)
- MsgBox "用户名:" & TheName & vbCrLf & "密 码:" & ThePW & vbCrLf & "有效期:" & TheTime
- End
- End Sub
- '密码加密
- Private Function JiaMi(pw)
- Dim PwBB(), PwBT(19)
- PwBB = Array(&HD6, &HE9, &HF0, &HF2, &H64, &HAD, &HC8, &H75, &H31, &HBC)
- For i = 0 To 9
- PwBT(i * 2) = Asc(Mid(pw, i + 1, 1)) Xor PwBA(i)
- PwBT(i * 2 + 1) = PwBB(i)
- Next
- '输出结果
- For i = 0 To 19
- JiaMi = JiaMi & PwBT(i) & " "
- Next
- End Function
- '密码解密
- Private Function JieMi(PwBT)
- For i = 0 To 9
- JieMi = JieMi & Chr(PwBT(i * 2) Xor PwBA(i))
- Next
- End Function
复制代码 |