VB6防破解之金蝉脱壳防LOADER源码分享

Private Sub JinChan()

On Error GoTo ANTI

'只有在被调试的时候才有可能出错,恰好被我们捕获,呵呵

Dim Lujing As String

'储存程序自身路径

Dim Suiji(7) As Byte

'7个元素数组,用于储存每次随机数

Dim n As Long

'循环计数器

Dim Panduan As Double

'累加器

Lujing = App.Path & "\" & App.EXEName & ".exe"

'获得程序自身路径

For n = 1 To 7

Randomize

'每次都初始化随机数生成器

Suiji(n) = Int(Rnd * 2)

'取随机数0或者1

Panduan = Panduan + Suiji(n)

'累加

Next n

If Panduan > 0 Then

'如果累加总结果不为零,那就SHELL自己一次,然后通过END结束自己

Shell Lujing, 1

'进入下一个轮回哦

End

'结束这一世

End If 

。。。。。。