I我这里有一个利用VB伪随机数写的对称算法函数。曾大量用于KeygenMe。

代码:

Public Function EDcode$(CharString As String, Key As Integer)
    Dim x As Single, i As Long
    Dim CharNum As Integer, RandomInteger As Integer
    Dim CharSingle As String * 1
    On Local Error GoTo EDcodeError
    EDcode$ = ""
    If Len(CharString) = 0 Then
        EDcode$ = "1"
        Exit Function
    End If
    x = Rnd(-Key)
    For i = 1 To Len(CharString)
        CharSingle = Mid$(CharString, i, 1)
        CharNum = Asc(CharSingle)
        RandomInteger = Int(256 * Rnd) And &H7F
        CharNum = CharNum Xor RandomInteger
        CharSingle = Chr$(CharNum)
        EDcode$ = EDcode$ + CharSingle
    Next i
    Exit Function
EDcodeError:
    EDcode$ = "0"
End Function

NONONONONO
VB中Rnd函数用法是Rnd(integer)就是说要给他一个种子然后算“随机数"所以说它伪。

而我说的是Rnd函数。
我给定的函数就是利用了Rnd的伪随机性。

函数可以定义。爱多大多大。

真可爱……
youd你今年再搞个猜数游戏吧