Function Encoding VB6

Public Function BinaryToDouble(ByVal strData As String) As Double
Dim dblOutput As Double
Dim lngIterator As Long
Do Until Len(strData) = 0
dblOutput = dblOutput + IIf(Right$(strData, 1) = "1", (2 ^ lngIterator), 0)
strData = Left$(strData, Len(strData) - 1)
lngIterator = lngIterator + 1
Loop
BinaryToDouble = dblOutput
End Function

Public Function ByteToString(ByRef bytData() As Byte, ByVal lngDataLength As Long) As String
Dim lngIterator As Long
For lngIterator = LBound(bytData) To (LBound(bytData) + lngDataLength)
ByteToString = ByteToString & Chr$(bytData(lngIterator))
Next lngIterator
End Function

Public Function Capitalise(ByVal strData As String) As String
Capitalise = UCase(Left$(strData, 1)) + LCase(Right$(strData, Len(strData) - 1))
End Function

Public Function DoubleToBinary(ByVal dblData As Double) As String
Dim strOutput As String
Dim lngIterator As Long
Do Until (2 ^ lngIterator) > dblData
strOutput = IIf(((2 ^ lngIterator) And dblData) > 0, "1", "0") + strOutput
lngIterator = lngIterator + 1
Loop
DoubleToBinary = strOutput
End Function

Public Function HexToString(ByVal strData As String) As String
Dim strOutput As String
Do Until Len(strData) < stroutput =" strOutput" strdata =" Right$(strData," hextostring =" strOutput" variant = "" nonulls =" IIf(TypeName(varData)"> "Null", varData, varDefault)
End Function

Public Function StringToHex(ByVal strData As String) As String
Dim strOutput As String
Do Until Len(strData) = 0
strOutput = strOutput + Right$(String$(2, "0") + Hex$(Asc(Left$(strData, 1))), 2)
strData = Right$(strData, Len(strData) - 1)
Loop
StringToHex = strOutput
End Function

Public Function Transform(text As String, key As String) As String
For i = 1 To Len(text)
a = i Mod Len(text): If a = 0 Then a = Len(text)
Transform = Transform & Chr(Asc(Mid(text, i, 1)) _
Xor Asc(Mid(key, a, 1)))
Next i
End Function

Related Post :