求问解释代码

Carlven2012 2016-12-16 09:10:32
文章：http://bbs.csdn.net/topics/390771214
其中有段代码，求大神指教，是如何得到的？ 什么意思、功能？ 可否更改 ？


  Dim AsmCode(18) As Long

  AsmCode(0) = &H83EC8B55:  AsmCode(1) = &H75FF08EC

  AsmCode(2) = &H3475FF38:  AsmCode(3) = &HFF3075FF

  AsmCode(4) = &H75FF2C75:  AsmCode(5) = &H2475FF28

  AsmCode(6) = &HFF2075FF:  AsmCode(7) = &H75FF1C75

  AsmCode(8) = &H1475FF18:  AsmCode(9) = &HFF1075FF

  AsmCode(10) = &H75FF0C75: AsmCode(11) = &HFC75FF08

  AsmCode(12) = &H50F8458D: AsmCode(13) = &H100068

  AsmCode(14) = &H2000B800: AsmCode(15) = &HC08B0000

  AsmCode(16) = &H458BD0FF: AsmCode(17) = &H34C2C9F8
...全文
992 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
赵4老师 2016-12-22
  • 打赏
  • 举报
 回复
奉劝IT从业者不要把有限的生命浪费在无限的加密解密死循环中！
Carlven2012 2016-12-22
  • 打赏
  • 举报
 回复
引用 10 楼 zhao4zhong1 的回复:
For zhuangbility!
也不能这么说嘛，或许是他的机器码方法会比我那方法执行速度快呢？
赵4老师 2016-12-22
  • 打赏
  • 举报
 回复
For zhuangbility!
赵4老师 2016-12-21
  • 打赏
  • 举报
 回复
这就是冯·诺依曼体系架构。
Carlven2012 2016-12-21
  • 打赏
  • 举报
 回复
贴上我的代码吧，很精简。我只是不知道作者为何要转成机器码？ 下面是一个操作类CFileOperator 

'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Private Declare Function CopyFileEx Lib "kernel32" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, pbCancel As Long, ByVal dwCopyFlags As Long) As Long
Private Declare Function MoveFileWithProgress Lib "kernel32" Alias "MoveFileWithProgressA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByVal dwFlags As Long) As Long
Private Const ERROR_SUCCESS                     As Long = 0
Private Const ERROR_ALREADY_EXISTS              As Long = 183&

Private Const CALLBACK_CHUNK_FINISHED           As Long = &H0
Private Const CALLBACK_STREAM_SWITCH            As Long = &H1

Private Const COPY_FILE_FAIL_IF_EXISTS          As Long = &H1
Private Const COPY_FILE_RESTARTABLE             As Long = &H2
Private Const COPY_FILE_OPEN_SOURCE_FOR_WRITE   As Long = &H4

Private Const MOVEFILE_REPLACE_EXISTING         As Long = &H1
Private Const MOVEFILE_COPY_ALLOWED             As Long = &H2
Private Const MOVEFILE_DELAY_UNTIL_REBOOT       As Long = &H4
Private Const MOVEFILE_WRITE_THROUGH            As Long = &H8


Private Const PROGRESS_CONTINUE                 As Long = 0 '让拷贝过程继续；
Private Const PROGRESS_CANCEL                   As Long = 1 '终止拷贝过程并删除目标文件
Private Const PROGRESS_STOP                     As Long = 2 '停止拷贝，但以后可以继续开始；
Private Const PROGRESS_QUIET                    As Long = 3 '继续拷贝过程，但从此不再进行回调。

Public Enum ProcessStatus
    mContinue = 1   '继续操作
    mPause = 0       '暂停操作
    mCancel = -1    '终止操作
End Enum
Private pStatus As ProcessStatus

Public Event OnProgress(ByVal TotalFileSize As Currency, ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency, ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal hDestinationFile As Long)
Public Event OnCancel()
Public Event OnPause()
Public Event OnFinished()

Public Property Let Status(ByVal vData As ProcessStatus)
    pStatus = vData
End Property

Public Property Get Status() As ProcessStatus
    Status = pStatus
End Property

Public Function CallBackRoutine(ByVal TotalFileSize As Currency, ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency, ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal hDestinationFile As Long) As Long
    If pStatus = mPause Then
        RaiseEvent OnPause
        Do While pStatus = mPause
            DoEvents
        Loop
    ElseIf pStatus = mCancel Then
        RaiseEvent OnCancel
        CallBackRoutine = PROGRESS_CANCEL
    Else
        Select Case dwCallbackReason
            Case CALLBACK_STREAM_SWITCH
                '////////////////////////////////////////////////
            Case CALLBACK_CHUNK_FINISHED
                RaiseEvent OnProgress(TotalFileSize, TotalBytesTransferred, StreamSize, StreamBytesTransferred, dwStreamNumber, dwCallbackReason, hSourceFile, hDestinationFile)
                DoEvents
        End Select
        CallBackRoutine = PROGRESS_CONTINUE
    End If
End Function

Public Function MoveFile(ByVal fileSource As String, ByVal fileDest As String) As Long
    pStatus = mContinue
    MoveFile = MoveFileWithProgress(fileSource, fileDest, AddressOf FileProgressRoutine, ByVal ObjPtr(Me), MOVEFILE_COPY_ALLOWED Or MOVEFILE_REPLACE_EXISTING Or MOVEFILE_WRITE_THROUGH)
    If MoveFile Then RaiseEvent OnFinished
End Function

Public Function CopyFile(ByVal fileSource As String, ByVal fileDest As String) As Long
    pStatus = mContinue
    CopyFile = CopyFileEx(fileSource, fileDest, AddressOf FileProgressRoutine, ByVal ObjPtr(Me), 0, COPY_FILE_RESTARTABLE)
    If CopyFile Then RaiseEvent OnFinished
End Function
然后一个回调模块：mProgressCallBack.bas 

Option Explicit
Public Function FileProgressRoutine(ByVal TotalFileSize As Currency, ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency, ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal hDestinationFile As Long, ByVal lpData As CFileOperator) As Long
    FileProgressRoutine = lpData.CallBackRoutine(TotalFileSize, TotalBytesTransferred, StreamSize, StreamBytesTransferred, dwStreamNumber, dwCallbackReason, hSourceFile, hDestinationFile)
End Function
最后一个Form：4个按钮，2个文本框，1个Progressbar 

Private WithEvents cf As CFileOperator

Private Sub cf_OnCancel()
    MsgBox "操作已取消！", 16
End Sub
Private Sub cf_OnFinished()
    MsgBox "操作成功完成！", vbInformation
    Me.Caption = "就绪"
End Sub

Private Sub cf_OnProgress(ByVal TotalFileSize As Currency, ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency, ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal hDestinationFile As Long)
   If TotalFileSize Then
       pb.Value = CInt((TotalBytesTransferred / TotalFileSize) * 100)
       Me.Caption = "已完成" & pb.Value & "%........."
   End If
End Sub

Private Sub Form_Load()
    Set cf = New CFileOperator
    Command1.Caption = "复制"
    Command2.Caption = "移动"
    Command3.Caption = "暂停"
    Command4.Caption = "取消"
End Sub

Private Sub Command1_Click()
    pb.Value = 0
    cf.CopyFile Text1.Text, Text2.Text
End Sub

Private Sub Command2_Click()
    pb.Value = 0
    cf.MoveFile Text1.Text, Text2.Text
End Sub

Private Sub Command3_Click()
    If cf.Status = mPause Then
        Command3.Caption = "暂停"
        cf.Status = mContinue
        
    Else
        Command3.Caption = "点击继续..."
        cf.Status = mPause
    End If
End Sub

Private Sub Command4_Click()
    cf.Status = mCancel
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set cf = Nothing
End Sub
threenewbee 2016-12-20
  • 打赏
  • 举报
 回复
这个叫做thunk技术 也就是手工写机器码数据并且把它当作可执行代码执行 http://www.cnblogs.com/satng/archive/2010/12/30/2138833.html
Tiger_Zhao 2016-12-19
  • 打赏
  • 举报
 回复
API 的调用而已，除非你是跨进程注入，否则没必要这么装逼。
CopyFileEx: Create a File Backup App with a Progress Callback
你可以在复制完文件后再删除源文件，不就是“移动文件显示进度的功能”。
赵4老师 2016-12-19
  • 打赏
  • 举报
 回复
计算机组成原理→DOS命令→汇编语言→C语言（不包括C++）、代码书写规范→数据结构、编译原理、操作系统→计算机网络、数据库原理、正则表达式→其它语言（包括C++）、架构……
舉杯邀明月 2016-12-17
  • 打赏
  • 举报
 回复
楼上回复中错了一个字：　依次写成用10进制表示的字节序列， 　　　　应该是：　依次写成用16进制表示的字节序列，
舉杯邀明月 2016-12-17
  • 打赏
  • 举报
 回复
这就是“机器码”，你把AsmCode()数组中的“数值”依次写成用10进制表示的字节序列， 　然后再“翻译”成相应的 80386汇编指令，这样你也许能“看懂”。 注意每个数值是4字节，低字节在前、高字节在后，“不足”的用0补齐。 比如开头那儿：　AsmCode(0) = &H83EC8B55: AsmCode(1) = &H75FF08EC 字节序列就是：　55 8B EC 83 EC 08 FF 75 对应的汇编指令： 
55          push ebp
8BEC        mov  ebp, esp
83EC 08     sub  esp, 0x00000008
我对机器指令也不是很熟悉，就解释这几个字节。其它的，你看着办吧………… 至于“如何得到”这些机器指令编码， 方法一般就是“用汇编语言”把自己需要的“过程代码”写好，然后编译成exe， 　　然后从文件中获取到相应的机器指令字节序列； 或者用OD等调试工具，直接在“内存代码区”一行一行的输入这个“汇编过程”， 　　调试器会直接给你“翻译”出对应的机器指令字节，完成后把这段“字节序列”获取到。 最后就是在VB中用数组来表示这一系列的“字节序列”了。
Carlven2012 2016-12-17
  • 打赏
  • 举报
 回复
引用 1 楼 Chen8013 的回复:
这就是“机器码”，你把AsmCode()数组中的“数值”依次写成用10进制表示的字节序列， 　然后再“翻译”成相应的 80386汇编指令，这样你也许能“看懂”。 注意每个数值是4字节，低字节在前、高字节在后，“不足”的用0补齐。 比如开头那儿：　AsmCode(0) = &H83EC8B55: AsmCode(1) = &H75FF08EC 字节序列就是：　55 8B EC 83 EC 08 FF 75 对应的汇编指令： 
55          push ebp
8BEC        mov  ebp, esp
83EC 08     sub  esp, 0x00000008
我对机器指令也不是很熟悉，就解释这几个字节。其它的，你看着办吧………… 至于“如何得到”这些机器指令编码， 方法一般就是“用汇编语言”把自己需要的“过程代码”写好，然后编译成exe， 　　然后从文件中获取到相应的机器指令字节序列； 或者用OD等调试工具，直接在“内存代码区”一行一行的输入这个“汇编过程”， 　　调试器会直接给你“翻译”出对应的机器指令字节，完成后把这段“字节序列”获取到。 最后就是在VB中用数组来表示这一系列的“字节序列”了。
好的，谢谢大大，知道方向了，我也试着去研究研究！ （作者是写的一个复制文件显示进度的功能，而我是想把它改成移动文件显示进度的功能）
前缀表达式详细解释以及代码展现
对于前缀表达式的详细解释以及代码展现，非常适合小白同学
初学Python 100套代码之27，使用GPT辅助理解代码
一开始，我用英语问的，意思是请评论下面的Python代码：代码来自某正规Python网站，代码也是中规中矩。是计算最小公倍数的。
超好玩的vbs代码 （恶作剧代码）
VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版），即 Visual Basic脚本语言，有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言，它使用COM组件、WMI、WSH、ADSI访问系统中的元素，对系统进行管理。同时它又是asp动态网页默认的编程语言，配合asp内建对象和ADO对象，用户很快就能掌握访问数据库的as...
python编程常用代码,python常用代码大全
大家好，本文将围绕python编程常用代码展开说明，python常用代码大全是一个很多人都想弄明白的事情，想搞清楚python的常用代码需要先了解以下几个事情。作者 | 快学Python来源 | https://github.com/jackzhenguo/python-small-examples今天给大家分享一下60个Python小例子，拿来即用！
并查集（详细解释+完整C语言代码）
并查集的详细逻辑梳理与完整代码实现，包括查询、合并、路径压缩等操作。
API

1,488

社区成员

23,276

社区内容

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章