nbsp; tempnum = tempnum + 2 ^ (3 - loopinner) End If Next loopinner value1 = value1 + Hex$(tempnum) Next loopit
RotLeft = Right(value1, 8) End Function
Function BigAND(ByVal value1 As String, ByVal value2 As String) As Str ing Dim valueans As String Dim loopit As Integer, tempnum As Integer
tempnum = Len(value1) - Len(value2) If tempnum < 0 Then value2 = Mid$(value2, Abs(tempnum) + 1) ElseIf tempnum > 0 Then value1 = Mid$(value1, tempnum + 1) End If
For loopit = 1 To Len(value1) valueans = valueans + Hex$(Val("&H" + Mid$(value1, loopit, 1)) And Val("&H" + Mid$(value2, loopit, 1))) Next loopit
BigAND = valueans End Function
Function BigNOT(ByVal value1 As String) As String Dim valueans As String Dim loopit As Integer
value1 = Right$(value1, 8) value1 = String$(8 - Len(value1), "0") + value1 For loopit = 1 To 8 valueans = valueans + Hex$(15 Xor Val("&H" + Mid$(value1, loop it, 1))) Next loopit
BigNOT = valueans End Function
Function BigOR(ByVal value1 As String, ByVal value2 As String) As Stri ng Dim valueans As String Dim loopit As Integer, tempnum As Integer
tempnum = Len(value1) - Len(value2) If tempnum < 0 Then valueans = Left$(value2, Abs(tempnum)) value2 = Mid$(value2, Abs(tempnum) + 1) ElseIf tempnum > 0 Then valueans = Left$(value1, Abs(tempnum)) value1 = Mid$(value1, tempnum + 1) End If
For loopit = 1 To Len(value1) valueans = valueans + Hex$(Val("&H" + Mid$(value1, loopit, 1)) Or Val("&H" + Mid$(value2, loopit, 1))) Next loopit
BigOR = valueans End Function
Function BigXOR(ByVal value1 As String, ByVal value2 As String) As Str ing Dim valueans As String Dim loopit As Integer, tempnum As Integer
tempnum = Len(value1) - Len(value2) If tempnum < 0 Then valueans = Left$(value2, Abs(tempnum)) value2 = Mid$(value2, Abs(tempnum) + 1) ElseIf tempnum > 0 Then valueans = Left$(value1, Abs(tempnum)) value1 = Mid$(value1, tempnum + 1) End If
For loopit = 1 To Len(value1) valueans = valueans + Hex$(Val("&H" + Mid$(value1, loopit, 1)) Xor Val("&H" + Mid$(value2, loopit, 1))) Next loopit
BigXOR = Right(valueans, 8) End Function
'''' To Be Continue...
上一页 [1] [2] 没有相关教程
|