chartools.cls

enigma.zip(VB)一个德国的enigma加密技术例子COOL,原程序不支持明文是汉字

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "chartools"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'字符串转换为HEX制串　"ab"=00610062


Public Function string2hexstring(sstr) As String
Dim shex As String
shex = ""
hextmp = ""
For i = 1 To Len(sstr)
hextmp = Hex(AscW(Mid(sstr, i, 1)))
  If Len(hextmp) = 2 Then
   hextmp = "00" & hextmp
  End If
  If Len(hextmp) = 1 Then
   hextmp = "0000" & hextmp
  End If
  shex = shex & hextmp
Next
string2hexstring = shex

End Function

Public Function hexstring2string(shex) As String
sstr = ""
For i = 1 To Len(shex) Step 4
  hextmp = "&H" & Mid(shex, i, 4)
  sstr = sstr & ChrW(Val(hextmp))
Next
hexstring2string = sstr
End Function