做了一个exe，加了壳，看下能坚挺多久...
本帖最后由 约定的童话 于 2021-8-15 22:08 编辑做了一个exe，加了壳，看下能坚挺多久...解出源码即可！
VB写的,生成的exe，然后加的壳，软件后台静默运行方式，看不到窗口
目前挺了8个多小时，可以了，我公布源码吧
Public xlApp As Object
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
Private Sub Form_Load()
Dim i, n, arr, brr
Set xlApp = GetObject(, "Excel.Application")
If xlApp.ActiveWorkbook.Sheets.Count = 0 Then
MsgBox "此exe需要配合指定工作簿使用！", 48, "警告！"
End
Else
Set xlSheet = xlApp.ActiveWorkbook.Sheets(1)
With xlSheet
arr = .Range("f8:n" & ..End(3).Row)
. = "": . = ""
brr = .
For j = 1 To 14 '点数
For i = UBound(arr) To 1 Step -1
If Val(Split(brr(5, j), "点")(0)) <> arr(i, 1) Then
brr(6, j) = brr(6, j) + 1
Else
Exit For
End If
Next
If brr(6, j) = "" Then brr(6, j) = 0
Next
For j = 3 To 8 '大小对
If brr(3, j) = "1对" Then s = 11
If brr(3, j) = "2对" Then s = 22
If brr(3, j) = "3对" Then s = 33
If brr(3, j) = "4对" Then s = 44
If brr(3, j) = "5对" Then s = 55
If brr(3, j) = "6对" Then s = 66
For i = UBound(arr) To 1 Step -1
If arr(i, 6) <> s Then
brr(4, j) = brr(4, j) + 1
Else
Exit For
End If
Next
If brr(4, j) = "" Then brr(4, j) = 0
Next
For j = 9 To 14 '大小豹
If brr(3, j) = "1豹" Then s = 111
If brr(3, j) = "2豹" Then s = 222
If brr(3, j) = "3豹" Then s = 333
If brr(3, j) = "4豹" Then s = 444
If brr(3, j) = "5豹" Then s = 555
If brr(3, j) = "6豹" Then s = 666
For i = UBound(arr) To 1 Step -1
If arr(i, 7) <> s Then
brr(4, j) = brr(4, j) + 1
Else
Exit For
End If
Next
If brr(4, j) = "" Then brr(4, j) = 0
Next
. = brr
End With
End
End If
End Sub 这是后门病毒吗？
如果是，希望楼主下次标注，不要一声不吭
已经发送至卡巴斯基实验室进行分析
领悟者的涂鸦笔 发表于 2021-8-15 11:45
PACKER:UPolyX v0.5
这是测试壳还是测试你自己写的exe
加的SE壳，软件是个窗体，运行之后就开始工作了，如果检测不到必备环境会直接报错 友情提示下,除非是自己写的壳,,不然不算CM 挺尴尬的。。XP和WIN10都打不开。。。 我这里也有这个问题，有点尴尬 软件打不开，点击就自动退出 打不开呀. 感谢，先下了试试看~
leonalewis 发表于 2021-8-15 12:32
感谢，先下了试试看~
打不开啊，还闪退 这个是交智商税吗？