查看: 5607|回复: 12
收起左侧

[原创] [VB源码]读取本机 ESET_NOD32 的ID、密码及有效期,圣诞快乐

[复制链接]
nb99
发表于 2011-12-24 10:20:39 | 显示全部楼层 |阅读模式
今天对我来说是个很特别的日子,祝大家圣诞快乐,提供个以前写的读取本机 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#,卡饭怎么用抽风了,附件上传不了。

  1. Option Explicit
  2. Dim PwBA()
  3. Dim TheName As String, ThePW As String
  4. Dim i As Long
  5. Dim Wss As Object

  6. Private Sub Form_Load()
  7.         On Error Resume Next
  8.         Dim RegPW(), TheTime
  9.         PwBA = Array(&H61, &HD4, &HDD, &HFB, &H5B, &H35, &HB7, &H19, &HEC, &H2B)

  10.         '读注册表

  11.         Set Wss = CreateObject("WScript.Shell")
  12.                 TheName = Wss.RegRead("HKLM\SOFTWARE\Eset\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile\username") '用户名
  13.                 RegPW = Wss.RegRead("HKLM\SOFTWARE\Eset\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile\password") '密码
  14.                 TheTime = Wss.RegRead("HKLM\SOFTWARE\ESET\ESET Security\CurrentVersion\LicenseInfo\ExpirationDate") '有效期
  15.         Set Wss = Nothing
  16.         If TheName = "" Or RegPW(0) = "" Then
  17.                 MsgBox "没有找到注册信息"
  18.                 End
  19.         End If
  20.         TheTime = #1/1/1970# + Int(TheTime / 3600 / 24)
  21.         ThePW = JieMi(RegPW)
  22.         MsgBox "用户名:" & TheName & vbCrLf & "密 码:" & ThePW & vbCrLf & "有效期:" & TheTime
  23.         End
  24. End Sub

  25. '密码加密

  26. Private Function JiaMi(pw)
  27.         Dim PwBB(), PwBT(19)
  28.         PwBB = Array(&HD6, &HE9, &HF0, &HF2, &H64, &HAD, &HC8, &H75, &H31, &HBC)
  29.         For i = 0 To 9
  30.                 PwBT(i * 2) = Asc(Mid(pw, i + 1, 1)) Xor PwBA(i)
  31.                 PwBT(i * 2 + 1) = PwBB(i)
  32.         Next

  33.         '输出结果

  34.         For i = 0 To 19
  35.                 JiaMi = JiaMi & PwBT(i) & " "
  36.         Next
  37. End Function

  38. '密码解密

  39. Private Function JieMi(PwBT)
  40.         For i = 0 To 9
  41.                 JieMi = JieMi & Chr(PwBT(i * 2) Xor PwBA(i))
  42.         Next
  43. End Function
复制代码

评分

参与人数 1经验 +20 收起 理由
瓜皮猫 + 20 版区有你更精彩: )

查看全部评分

wwdboy
发表于 2011-12-24 11:26:44 | 显示全部楼层
感谢分享
超现实主义
发表于 2011-12-24 12:00:39 | 显示全部楼层
这个小软件很实用。
621206HY
发表于 2011-12-24 12:15:43 | 显示全部楼层
win7 我的不行
7772456
发表于 2011-12-24 12:33:00 | 显示全部楼层
实用小工具,顶
NKTB
发表于 2011-12-24 13:28:48 | 显示全部楼层
很实用的软件,谢谢楼主分享!
赶紧试试!
小金
发表于 2011-12-24 14:56:17 | 显示全部楼层
谢谢分享很实用啊 !
logic888
发表于 2011-12-24 15:40:16 | 显示全部楼层
支持原创作品
coolboy120
发表于 2011-12-24 16:47:20 | 显示全部楼层
都是有才人啊,呵呵,圣诞快乐
boxing
发表于 2011-12-24 16:57:44 | 显示全部楼层
楼主强大,多谢分享
您需要登录后才可以回帖 登录 | 快速注册

本版积分规则

手机版|杀毒软件|软件论坛| 卡饭论坛

Copyright © KaFan  KaFan.cn All Rights Reserved.

Powered by Discuz! X3.4( 沪ICP备2020031077号-2 ) GMT+8, 2024-3-29 20:00 , Processed in 0.140811 second(s), 17 queries .

卡饭网所发布的一切软件、样本、工具、文章等仅限用于学习和研究,不得将上述内容用于商业或者其他非法用途,否则产生的一切后果自负,本站信息来自网络,版权争议问题与本站无关,您必须在下载后的24小时之内从您的电脑中彻底删除上述信息,如有问题请通过邮件与我们联系。

快速回复 客服 返回顶部 返回列表