[置顶] VB6关于加密解密一例
摘要： Dim btyChrA() As Integer, btyChrB() As IntegerFriend Function MaxINT(iInt As Integer) As IntegerDim i As Integer, i1 As IntegerFor i1 = iInt To 2 Step -1For i = 2 To iIntIf (i1 Mod i) = 0 Then Exit Fo... 阅读全文
posted @ 2010-08-01 10:33 涵宇 阅读(781) 评论(0) 推荐(1)