关于网友提出的“ 如何将VB的语句移植到Delphi中可以运行”问题疑问，本网通过在网上对“ 如何将VB的语句移植到Delphi中可以运行”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 如何将VB的语句移植到Delphi中可以运行
描述: Public Function csmmstr(ByVal strmm As String) As String
Dim inti, intstri, intstrj As Integer
Dim intj(1 To 20) As Byte
Dim bitstring, bitstring1, bitstring2 As String
bitstring = "hijklmnopqrst12345"
Randomize Rnd(-1)
For inti = 1 To Len(strmm)
intj(inti) = Int(Rnd(-Rnd * Asc(Mid(strmm, inti, 1))) * 256)
Randomize intj(inti)
Next
intstri = 1
csmmstr = ""
For inti = 1 To Len(bitstring)
bitstring1 = Mid$(bitstring, inti, 1)
csmmstr = csmmstr & Trim((Str(AscB(bitstring1) Xor intj(intstri))))
intstri = intstri + 1
If intstri > Len(strmm) Then intstri = 1
Next
End Function
以上介绍了“ 如何将VB的语句移植到Delphi中可以运行”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2418335.html
