“木马”原理及其vb简单实现分析(2)

来源:网络收集 时间:2025-07-26 下载这篇文档 手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xuecool-com或QQ:370150219 处理(尽可能给您提供完整文档),感谢您的支持与谅解。点击这里给我发消息

  Dim drive_chr As String, drive_disk As String 
  Dim serial_no As Long, kkk As Long 
  Dim stemp3 As String, dflag As Boolean 
  Dim strlabel As String, strtype As String,strc As Long
  RegisterServiceProcess GetCurrentProcessId, 1 ' 从系统中取消当前进程:
  strlabel = String(255, Chr(0)) 
  strtype = String(255, Chr(0)) 
  stemp3 = “用户c盘序列号” '用户C盘的序列号(十进制),读者可根据自己情况给出。 
  dflag = False 
  For drive_no = 0 To 25 
   drive_disk = Chr(drive_no + 67) 
   drive_chr = drive_disk & “:/” 
   drive_flag = GetDriveType(drive_chr) 
   If drive_flag = 3 Then 
   kkk = GetVolumeInformation(drive_chr, strlabel, Len(strlabel), serial_no, 0, 0, strtype,Len(strtype)) '通过GetVolumeInformation获得磁盘序列号: 
   Select Case drive_no 
   Case 0 
   strc = serial_no 
   End Select 
   If serial_no = stemp3 Then 
   dflag = True 
   Exit For 
   End If 
  End If 
  Next drive_no 
  If drive_no = 26 And dflag = False Then '非法用户 
   GoTo err: 
  End If 
  MsgBox (“HI,合法用户!”) 
  Exit Sub 
  err: 
   MsgBox (“错误!你的C:盘ID号是” & strc) 
  End Sub 
  Private Sub Form_Unload(Cancel As Integer) 
  RegisterServiceProcess GetCurrentProcessId, 0 '从系统中取消当前程序的进程: 
  End Sub
  (2)木马的启动。
  “木马”的启动方式有很多种,这里我们介绍几种主要的:
  ①在Win.ini的[windows]字段中有启动命令“load=”和“run=”,在一般情况下 “=”后面是空白的,如果有后跟程序,比方说是这个样子:
  run=c:/windows/file.exeload=c:/windows/file.exe
  ②在system.ini文件中,在[BOOT]下面有个“shell=文件名”。正确的文件名应该是“explorer.exe”,如果不是“explorer.exe”,而是“shell= explorer.exe 程序名”。
  ③在注册表中的情况最复杂,通过regedit命令打开注册表编辑器,在点击至:“HKEY-LOCAL-MACHINE/ Software/ Microsoft/ Windows/ CurrentVersion/ Run”目录下,查看键值中有没有自己不熟悉的自动启动文件,扩展名为EXE。
  
  参考文献
  
  [1]孙锋. 网络安全与防黑技术[M]. 北京:机械工业出版社,2004.
  [2]齐锋. Visual Basic 6.0程序设计[M]. 北京:中国铁道出版社,2003.

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,70教育网,提供经典计算机“木马”原理及其vb简单实现分析(2)在线全文阅读。

“木马”原理及其vb简单实现分析(2).doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印 下载失败或者文档不完整,请联系客服人员解决!
本文链接:https://www.70edu.com/shiyong/119854.html(转载请注明文章来源)
Copyright © 2020-2025 70教育网 版权所有
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:370150219 邮箱:370150219@qq.com
苏ICP备16052595号-17
Top
× 游客快捷下载通道(下载后可以自由复制和排版)
单篇付费下载
限时特价:7 元/份 原价:20元
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:xuecool-com QQ:370150219