请求大侠把这段 vb 语句 转换为 delphi解决思路
请求大侠把这段 vb 语句 转换为 delphi
昨天在论坛上发了一个密文转明文的帖子，名为“fvflove"的大牛当即写出算法，感谢大牛！ 不过是vb代码，关于vb申明16进制的语法实在不了解，求各位大侠帮忙翻译为delphi的，在此小弟感谢了！！
------解决方案--------------------
难道 delphi 中有 类似VB的 Split( )、Chr( ) 函数 ？
VB代码 GetNumber("&H" & Cipher(i)) 会把 Cipher(i) 中的字符串转换成对应的 Long 整数，再调用 GetNumber( ) 函数。
如果 delphi 中没有把“数值字符串”转换成相应数据的函数，你自己写一个也很容易吧！
昨天在论坛上发了一个密文转明文的帖子，名为“fvflove"的大牛当即写出算法，感谢大牛！ 不过是vb代码，关于vb申明16进制的语法实在不了解，求各位大侠帮忙翻译为delphi的，在此小弟感谢了！！
Private Sub Command1_Click()
Dim Cipher() As String
Dim Plain As String
Dim i As Integer
Cipher = Split("0BEA@64D4@78D9@08AA@64E0@75F1@76C6@06EC@70BE@80@82@08CC@83@04B9@64A7@60B2@87@82@81@05B6", "@")
For i = 0 To UBound(Cipher)
Plain = Plain & GetNumber("&H" & Cipher(i))
Next
MsgBox Plain
End Sub
Private Function GetNumber(ByVal Num As Long) As String
If Num < 256 Then
GetNumber = Chr(Num Xor &HB2)
Else
GetNumber = Chr(Num Xor &HB209)
End If
End Function
------解决方案--------------------
难道 delphi 中有 类似VB的 Split( )、Chr( ) 函数 ？
VB代码 GetNumber("&H" & Cipher(i)) 会把 Cipher(i) 中的字符串转换成对应的 Long 整数，再调用 GetNumber( ) 函数。
如果 delphi 中没有把“数值字符串”转换成相应数据的函数，你自己写一个也很容易吧！