-
-
[旧帖]
[求助]得到解密代码要怎么反过来加密
0.00雪花
-
发表于:
2014-2-27 16:12
1208
-
[旧帖] [求助]得到解密代码要怎么反过来加密
0.00雪花
这是解密代码
要解密的字串是294字元
Public Function den(ByVal str_ As String) As String
If ((str_ Is Nothing) OrElse (str_.Length <= 2)) Then
Return ""
End If
Dim str As String = String.Empty
Dim nb1 As Integer = Integer.Parse(str_.Substring(0, 2))
Dim i As Integer = 2
Do While (i < str_.Length)
Dim nb2 As Integer = ((Convert.ToInt32(str_.Substring(i, 4), &H10) + nb1) / nb1)
str = (str & Convert.ToChar(nb2).ToString)
i = (i + 4)
Loop
Return str
End Function
求加密代码？？？
[课程]Linux pwn 探索篇！
