1.别人用excel表格做的看加看加管理系统怎么查看此管理系统的源码?
2.如何查看加密网址的真实网址。
3.请问大神们易语言源码设置了密码了,密源码的密源码这么能打开源码
别人用excel表格做的管理系统怎么查看此管理系统的源码?
新建excel文件,alt+F进入VBA编辑器,源码源码宝塔源码无法安装插入模块,多少输入以下代码:Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),看加看加*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False ' 引用下面的自定义函数
End If
End Sub
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
Else
FileCopy FileName, FileName & ".bak"
End If
Dim GetData As String * 5
Open FileName For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", , "提示"
Exit Function
End If
If Protect = False Then
Dim St As String * 2
Dim s As String * 1 '取得一个0D0A十六进制字串
Get #1, CMGs - 2, St '取得一个十六制字串
Get #1, DPBo + , s '替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next '加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s
End If
MsgBox "文件解密成功......", , "提示"
Else
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", , "提示"
End If
Close #1
End Function
2. 运行上面的代码,选择你的密源码的密源码文件,移除密码成功后打开文件,文件文件按alt+F查看源码:
如何查看加密网址的源码源码真实网址。
如何查看加密网址的多少真实网址。具体步骤如下:
1、看加看加股票指标源码破解首先打开加密网址。密源码的密源码打开原始网页。文件文件
2、源码源码在网页的多少左上角找到查看,点击选项,阿里spring底层源码之后会看到以下选择,选择源这个功能,点击。
3、点击进入之后就会发现页面源码被加密了。党史考试系统源码
4、在右上角找到,开发人员工具选项,点击进入。
5、定制平台app源码把这里的调试程序改变为Dom资源管理器模式。
6、改变外模式之后,就可以看到原来加密的网址了。
请问大神们易语言源码设置了密码了,这么能打开源码
程序→设置→其他 里面设置密码打开的时候,就会提示输入密码了,不是吗。。。
要是你打开别人加密的源码,那就没办法了。。。除非你知道密码