做了一个exe，加了壳，看下能坚挺多久...

约定的童话

做了一个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" & .[f65536].End(3).Row)
            .[c4:n4] = "": .[a6:n6] = ""
            brr = .[a1:n6]
            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
            .[a1:n6] = brr
        End With
        End
    End If
End Sub

henry217

这是后门病毒吗？


如果是，希望楼主下次标注，不要一声不吭


已经发送至卡巴斯基实验室进行分析

约定的童话

领悟者的涂鸦笔 发表于 2021-8-15 11:45
PACKER:UPolyX v0.5
这是测试壳还是测试你自己写的exe

加的SE壳，软件是个窗体，运行之后就开始工作了，如果检测不到必备环境会直接报错

syyangyuan

友情提示下,除非是自己写的壳,,不然不算CM

LegendSaber

挺尴尬的。。XP和WIN10都打不开。。。

demolee

我这里也有这个问题，有点尴尬

Domado

软件打不开，点击就自动退出

dmc520

打不开呀.

leonalewis

感谢，先下了试试看~

leonalewis

leonalewis 发表于 2021-8-15 12:32
感谢，先下了试试看~

打不开啊，还闪退

ggyynxj

这个是交智商税吗？