一个利用随机数加密字串的算法

1 2 下一页

　　首先这个算法没什么特殊之处，只是怕以后找不到，所以放到了这上面．

　　每个字节加密后有6种结果（占两个字节，如果需要大于6种的话，就要多用1个字节，即占3 个字节），也就是说如果字串占n个字节的话，可能产生的结果为6的n次方个，这个算法破解的强度不大，大家可以完善一下：

　　'窗体上一个按钮，两个listbox
　　Option Explicit

　　Private Sub Command1_Click()
Dim i As Long
Dim s As String
For i = 1 To 100
s = encode("这是一个测试 hello world")
List1.AddItem s
s = decode(s)
List2.AddItem s
Next
　　End Sub
　　Private Function encode(ByVal s As String) As String '加密
If Len(s) = 0 Then Exit Function
Dim buff() As Byte
buff = StrConv(s, VBFromUnicode)
Dim i As Long
Dim j As Byte
Dim k As Byte, m As Byte
Dim mstr As String
mstr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz"
Dim outs As String
i = UBound(buff) 1
outs = Space(2 * i)
Dim temps As String
For i = 0 To UBound(buff)
Randomize Time
j = CByte(5 * (Math.Rnd()) 0) '最大产生的随机数只能是5，不能再大了,再大的话，就要多用一个字节
buff(i) = buff(i) Xor j
k = buff(i) Mod Len(mstr)
m = buff(i) \ Len(mstr)
m = m * 2 ^ 3 j
temps = Mid(mstr, k 1, 1) Mid(mstr, m 1, 1)
Mid(outs, 2 * i 1, 2) = temps
Next
encode = outs
　　End Function

上一篇： Visual Basic 的未来
下一篇： 在VB的ListView中动态加载记录

1 2 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有