c＃中的IDEA和SERPENT加密算法 [英] IDEA and SERPENT encryption algorithm in c#
本文介绍了c＃中的IDEA和SERPENT加密算法的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
任何人都可以在c＃中为我提供IDEA和SERPENT加密算法的实现吗？我必须在我的项目中使用它们
can anyone provide me with the implementation of the IDEA and SERPENT encryption algorithm in c# ? i have to use them in my project
推荐答案
请看这里： http：/ /www.bouncycastle.org/csharp/ [ ^ ] 。可以找到IDEA和SERPENT的实现。有关详细信息，请参阅许可您可以访问完整的源代码，因此您也可以查看内部工作原理。
享受！
- Manfred
See here: http://www.bouncycastle.org/csharp/[^]. There is an implementation of IDEA as well as SERPENT to be found. See the license for details. You have access to the full source code, so you can have a look at the internal workings as well.
Enjoy!
— Manfred
下面是VB6代码，当转换为C＃时它不起作用。
Below is the VB6 code, when converted to C# it is not working.
Option Explicit
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Event Progress(Percent As Integer)
#Const BLOCK_REVERSE = True
Private l_key(0 To 139) As MemBlock
Private RegX(0 To 3, 0 To 31) As Byte
Private TheByte(0 To 7) As Byte
Private bStr() As Byte
Private byteArray() As Byte
Private hiByte As Long
Private hiBound As Long
Private Type MemBlock
Data(0 To 3) As Byte
End Type
Private Sub PutBits(ByVal Val As Byte)
Dim Count As Integer
For Count = 7 To 1 Step -1
TheByte(Count) = Val Mod 2
Val = Val \ 2
Next
TheByte(0) = Val Mod 2
End Sub
Private Sub GetBits(Val As Byte)
Dim Count As Integer
Val = TheByte(0)
For Count = 1 To 7
Val = Val * 2
Val = Val + TheByte(Count)
Next
End Sub
Private Sub PutRegByte(ByVal Val As Byte, ByteOrder As Integer, Reg As Integer)
PutBits Val
RegX(Reg, ByteOrder * 8) = TheByte(0)
RegX(Reg, ByteOrder * 8 + 1) = TheByte(1)
RegX(Reg, ByteOrder * 8 + 2) = TheByte(2)
RegX(Reg, ByteOrder * 8 + 3) = TheByte(3)
RegX(Reg, ByteOrder * 8 + 4) = TheByte(4)
RegX(Reg, ByteOrder * 8 + 5) = TheByte(5)
RegX(Reg, ByteOrder * 8 + 6) = TheByte(6)
RegX(Reg, ByteOrder * 8 + 7) = TheByte(7)
End Sub
Private Sub GetRegByte(Val As Byte, ByteOrder As Integer, Reg As Integer)
TheByte(0) = RegX(Reg, ByteOrder * 8)
TheByte(1) = RegX(Reg, ByteOrder * 8 + 1)
TheByte(2) = RegX(Reg, ByteOrder * 8 + 2)
TheByte(3) = RegX(Reg, ByteOrder * 8 + 3)
TheByte(4) = RegX(Reg, ByteOrder * 8 + 4)
TheByte(5) = RegX(Reg, ByteOrder * 8 + 5)
TheByte(6) = RegX(Reg, ByteOrder * 8 + 6)
TheByte(7) = RegX(Reg, ByteOrder * 8 + 7)
GetBits Val
End Sub
Private Sub PutReg(Val As MemBlock, Reg As Integer)
PutRegByte Val.Data(0), 0, Reg
PutRegByte Val.Data(1), 1, Reg
PutRegByte Val.Data(2), 2, Reg
PutRegByte Val.Data(3), 3, Reg
End Sub
Private Sub GetReg(Val As MemBlock, Reg As Integer)
GetRegByte Val.Data(0), 0, Reg
GetRegByte Val.Data(1), 1, Reg
GetRegByte Val.Data(2), 2, Reg
GetRegByte Val.Data(3), 3, Reg
End Sub
Private Function Bitwise_OR(Val1 As MemBlock, Val2 As MemBlock) As MemBlock
Dim Count As Integer, Val3 As MemBlock
PutReg Val1, 0
PutReg Val2, 1
RegX(2, 0) = (RegX(0, 0) + RegX(1, 0) + 1) \ 2
RegX(2, 1) = (RegX(0, 1) + RegX(1, 1) + 1) \ 2
RegX(2, 2) = (RegX(0, 2) + RegX(1, 2) + 1) \ 2
RegX(2, 3) = (RegX(0, 3) + RegX(1, 3) + 1) \ 2
RegX(2, 4) = (RegX(0, 4) + RegX(1, 4) + 1) \ 2
RegX(2, 5) = (RegX(0, 5) + RegX(1, 5) + 1) \ 2
RegX(2, 6) = (RegX(0, 6) + RegX(1, 6) + 1) \ 2
RegX(2, 7) = (RegX(0, 7) + RegX(1, 7) + 1) \ 2
RegX(2, 8) = (RegX(0, 8) + RegX(1, 8) + 1) \ 2
RegX(2, 9) = (RegX(0, 9) + RegX(1, 9) + 1) \ 2
RegX(2, 10) = (RegX(0, 10) + RegX(1, 10) + 1) \ 2
RegX(2, 11) = (RegX(0, 11) + RegX(1, 11) + 1) \ 2
RegX(2, 12) = (RegX(0, 12) + RegX(1, 12) + 1) \ 2
RegX(2, 13) = (RegX(0, 13) + RegX(1, 13) + 1) \ 2
RegX(2, 14) = (RegX(0, 14) + RegX(1, 14) + 1) \ 2
RegX(2, 15) = (RegX(0, 15) + RegX(1, 15) + 1) \ 2
RegX(2, 16) = (RegX(0, 16) + RegX(1, 16) + 1) \ 2
RegX(2, 17) = (RegX(0, 17) + RegX(1, 17) + 1) \ 2
RegX(2, 18) = (RegX(0, 18) + RegX(1, 18) + 1) \ 2
RegX(2, 19) = (RegX(0, 19) + RegX(1, 19) + 1) \ 2
RegX(2, 20) = (RegX(0, 20) + RegX(1, 20) + 1) \ 2
RegX(2, 21) = (RegX(0, 21) + RegX(1, 21) + 1) \ 2
RegX(2, 22) = (RegX(0, 22) + RegX(1, 22) + 1) \ 2
RegX(2, 23) = (RegX(0, 23) + RegX(1, 23) + 1) \ 2
RegX(2, 24) = (RegX(0, 24) + RegX(1, 24) + 1) \ 2
RegX(2, 25) = (RegX(0, 25) + RegX(1, 25) + 1) \ 2
RegX(2, 26) = (RegX(0, 26) + RegX(1, 26) + 1) \ 2
RegX(2, 27) = (RegX(0, 27) + RegX(1, 27) + 1) \ 2
RegX(2, 28) = (RegX(0, 28) + RegX(1, 28) + 1) \ 2
RegX(2, 29) = (RegX(0, 29) + RegX(1, 29) + 1) \ 2
RegX(2, 30) = (RegX(0, 30) + RegX(1, 30) + 1) \ 2
RegX(2, 31) = (RegX(0, 31) + RegX(1, 31) + 1) \ 2
GetReg Val3, 2
Bitwise_OR = Val3
End Function
Private Function Bitwise_AND(Val1 As MemBlock, Val2 As MemBlock) As MemBlock
Dim Count As Integer, Val3 As MemBlock
PutReg Val1, 0
PutReg Val2, 1
RegX(2, 0) = RegX(0, 0) * RegX(1, 0)
RegX(2, 1) = RegX(0, 1) * RegX(1, 1)
RegX(2, 2) = RegX(0, 2) * RegX(1, 2)
RegX(2, 3) = RegX(0, 3) * RegX(1, 3)
RegX(2, 4) = RegX(0, 4) * RegX(1, 4)
RegX(2, 5) = RegX(0, 5) * RegX(1, 5)
RegX(2, 6) = RegX(0, 6) * RegX(1, 6)
RegX(2, 7) = RegX(0, 7) * RegX(1, 7)
RegX(2, 8) = RegX(0, 8) * RegX(1, 8)
RegX(2, 9) = RegX(0, 9) * RegX(1, 9)
RegX(2, 10) = RegX(0, 10) * RegX(1, 10)
RegX(2, 11) = RegX(0, 11) * RegX(1, 11)
RegX(2, 12) = RegX(0, 12) * RegX(1, 12)
RegX(2, 13) = RegX(0, 13) * RegX(1, 13)
RegX(2, 14) = RegX(0, 14) * RegX(1, 14)
RegX(2, 15) = RegX(0, 15) * RegX(1, 15)
RegX(2, 16) = RegX(0, 16) * RegX(1, 16)
RegX(2, 17) = RegX(0, 17) * RegX(1, 17)
RegX(2, 18) = RegX(0, 18) * RegX(1, 18)
RegX(2, 19) = RegX(0, 19) * RegX(1, 19)
RegX(2, 20) = RegX(0, 20) * RegX(1, 20)
RegX(2, 21) = RegX(0, 21) * RegX(1, 21)
RegX(2, 22) = RegX(0, 22) * RegX(1, 22)
RegX(2, 23) = RegX(0, 23) * RegX(1, 23)
RegX(2, 24) = RegX(0, 24) * RegX(1, 24)
RegX(2, 25) = RegX(0, 25) * RegX(1, 25)
RegX(2, 26) = RegX(0, 26) * RegX(1, 26)
RegX(2, 27) = RegX(0, 27) * RegX(1, 27)
RegX(2, 28) = RegX(0, 28) * RegX(1, 28)
RegX(2, 29) = RegX(0, 29) * RegX(1, 29)
RegX(2, 30) = RegX(0, 30) * RegX(1, 30)
RegX(2, 31) = RegX(0, 31) * RegX(1, 31)
GetReg Val3, 2
Bitwise_AND = Val3
End Function
Private Function Bitwise_XOR(Val1 As MemBlock, Val2 As MemBlock) As MemBlock
Dim Val3 As MemBlock
PutReg Val1, 0
PutReg Val2, 1
RegX(2, 0) = (RegX(0, 0) + RegX(1, 0)) Mod 2
RegX(2, 1) = (RegX(0, 1) + RegX(1, 1)) Mod 2
RegX(2, 2) = (RegX(0, 2) + RegX(1, 2)) Mod 2
RegX(2, 3) = (RegX(0, 3) + RegX(1, 3)) Mod 2
RegX(2, 4) = (RegX(0, 4) + RegX(1, 4)) Mod 2
RegX(2, 5) = (RegX(0, 5) + RegX(1, 5)) Mod 2
RegX(2, 6) = (RegX(0, 6) + RegX(1, 6)) Mod 2
RegX(2, 7) = (RegX(0, 7) + RegX(1, 7)) Mod 2
RegX(2, 8) = (RegX(0, 8) + RegX(1, 8)) Mod 2
RegX(2, 9) = (RegX(0, 9) + RegX(1, 9)) Mod 2
RegX(2, 10) = (RegX(0, 10) + RegX(1, 10)) Mod 2
RegX(2, 11) = (RegX(0, 11) + RegX(1, 11)) Mod 2
RegX(2, 12) = (RegX(0, 12) + RegX(1, 12)) Mod 2
RegX(2, 13) = (RegX(0, 13) + RegX(1, 13)) Mod 2
RegX(2, 14) = (RegX(0, 14) + RegX(1, 14)) Mod 2
RegX(2, 15) = (RegX(0, 15) + RegX(1, 15)) Mod 2
RegX(2, 16) = (RegX(0, 16) + RegX(1, 16)) Mod 2
RegX(2, 17) = (RegX(0, 17) + RegX(1, 17)) Mod 2
RegX(2, 18) = (RegX(0, 18) + RegX(1, 18)) Mod 2
RegX(2, 19) = (RegX(0, 19) + RegX(1, 19)) Mod 2
RegX(2, 20) = (RegX(0, 20) + RegX(1, 20)) Mod 2
RegX(2, 21) = (RegX(0, 21) + RegX(1, 21)) Mod 2
RegX(2, 22) = (RegX(0, 22) + RegX(1, 22)) Mod 2
RegX(2, 23) = (RegX(0, 23) + RegX(1, 23)) Mod 2
RegX(2, 24) = (RegX(0, 24) + RegX(1, 24)) Mod 2
RegX(2, 25) = (RegX(0, 25) + RegX(1, 25)) Mod 2
RegX(2, 26) = (RegX(0, 26) + RegX(1, 26)) Mod 2
RegX(2, 27) = (RegX(0, 27) + RegX(1, 27)) Mod 2
RegX(2, 28) = (RegX(0, 28) + RegX(1, 28)) Mod 2
RegX(2, 29) = (RegX(0, 29) + RegX(1, 29)) Mod 2
RegX(2, 30) = (RegX(0, 30) + RegX(1, 30)) Mod 2
RegX(2, 31) = (RegX(0, 31) + RegX(1, 31)) Mod 2
GetReg Val3, 2
Bitwise_XOR = Val3
End Function
Private Function Bitwise_NOT(Val As MemBlock) As MemBlock
Dim Count As Integer, RetVal As MemBlock
PutReg Val, 0
RegX(0, 0) = (RegX(0, 0) + 1) Mod 2
RegX(0, 1) = (RegX(0, 1) + 1) Mod 2
RegX(0, 2) = (RegX(0, 2) + 1) Mod 2
RegX(0, 3) = (RegX(0, 3) + 1) Mod 2
RegX(0, 4) = (RegX(0, 4) + 1) Mod 2
RegX(0, 5) = (RegX(0, 5) + 1) Mod 2
RegX(0, 6) = (RegX(0, 6) + 1) Mod 2
RegX(0, 7) = (RegX(0, 7) + 1) Mod 2
RegX(0, 8) = (RegX(0, 8) + 1) Mod 2
RegX(0, 9) = (RegX(0, 9) + 1) Mod 2
RegX(0, 10) = (RegX(0, 10) + 1) Mod 2
RegX(0, 11) = (RegX(0, 11) + 1) Mod 2
RegX(0, 12) = (RegX(0, 12) + 1) Mod 2
RegX(0, 13) = (RegX(0, 13) + 1) Mod 2
RegX(0, 14) = (RegX(0, 14) + 1) Mod 2
RegX(0, 15) = (RegX(0, 15) + 1) Mod 2
RegX(0, 16) = (RegX(0, 16) + 1) Mod 2
RegX(0, 17) = (RegX(0, 17) + 1) Mod 2
RegX(0, 18) = (RegX(0, 18) + 1) Mod 2
RegX(0, 19) = (RegX(0, 19) + 1) Mod 2
RegX(0, 20) = (RegX(0, 20) + 1) Mod 2
RegX(0, 21) = (RegX(0, 21) + 1) Mod 2
RegX(0, 22) = (RegX(0, 22) + 1) Mod 2
RegX(0, 23) = (RegX(0, 23) + 1) Mod 2
RegX(0, 24) = (RegX(0, 24) + 1) Mod 2
RegX(0, 25) = (RegX(0, 25) + 1) Mod 2
RegX(0, 26) = (RegX(0, 26) + 1) Mod 2
RegX(0, 27) = (RegX(0, 27) + 1) Mod 2
RegX(0, 28) = (RegX(0, 28) + 1) Mod 2
RegX(0, 29) = (RegX(0, 29) + 1) Mod 2
RegX(0, 30) = (RegX(0, 30) + 1) Mod 2
RegX(0, 31) = (RegX(0, 31) + 1) Mod 2
GetReg RetVal, 0
Bitwise_NOT = RetVal
End Function
Private Function Bitwise_LShift(Val As MemBlock, Pos As Integer) As MemBlock
Dim Count As Integer, RetVal As MemBlock
PutReg Val, 0
If Pos = 0 Then
GetReg RetVal, 0
Bitwise_LShift = RetVal
Exit Function
End If
If Pos >= 32 Or Pos < 0 Then
SetInt RetVal, 0
Bitwise_LShift = RetVal
Exit Function
End If
For Count = 0 To 31 - Pos
RegX(2, Count) = RegX(0, Pos + Count)
Next
For Count = 32 - Pos To 31
RegX(2, Count) = 0
Next Count
GetReg RetVal, 2
Bitwise_LShift = RetVal
End Function
Private Function ulBitwise_LShift(Val As MemBlock, ulPos As MemBlock) As MemBlock
Dim Pos As Integer
GetInt ulPos, Pos
Pos = Pos Mod 32
ulBitwise_LShift = Bitwise_LShift(Val, Pos)
End Function
Private Function Bitwise_RShift(Val As MemBlock, Pos As Integer) As MemBlock
Dim Count As Integer, RetVal As MemBlock
PutReg Val, 0
If Pos = 0 Then
GetReg RetVal, 0
Bitwise_RShift = RetVal
Exit Function
End If
If Pos >= 32 Or Pos < 0 Then
SetInt RetVal, 0
Bitwise_RShift = RetVal
Exit Function
End If
For Count = 0 To Pos - 1
RegX(2, Count) = 0
Next
For Count = Pos To 31
RegX(2, Count) = RegX(0, Count - Pos)
Next Count
GetReg RetVal, 2
Bitwise_RShift = RetVal
End Function
Private Function ulBitwise_RShift(Val As MemBlock, ulPos As MemBlock) As MemBlock
Dim Pos As Integer
GetInt ulPos, Pos
Pos = Pos Mod 32
ulBitwise_RShift = Bitwise_RShift(Val, Pos)
End Function
Private Function rotl(Val As MemBlock, Pos As Integer) As MemBlock
rotl = Bitwise_OR(Bitwise_LShift(Val, Pos), Bitwise_RShift(Val, 32 - Pos))
End Function
Private Function rotr(Val As MemBlock, Pos As Integer) As MemBlock
rotr = Bitwise_OR(Bitwise_RShift(Val, Pos), Bitwise_LShift(Val, 32 - Pos))
End Function
Private Function ul_rotl(Val As MemBlock, ulPos As MemBlock) As MemBlock
Dim Pos As Integer
GetInt ulPos, Pos
Pos = Pos Mod 32
ul_rotl = Bitwise_OR(Bitwise_LShift(Val, Pos), Bitwise_RShift(Val, 32 - Pos))
End Function
Private Function ul_rotr(Val As MemBlock, ulPos As MemBlock) As MemBlock
Dim Pos As Integer
GetInt ulPos, Pos
Pos = Pos Mod 32
ul_rotr = Bitwise_OR(Bitwise_RShift(Val, Pos), Bitwise_LShift(Val, 32 - Pos))
End Function
Private Function bswap(Val As MemBlock) As MemBlock
Dim Temp1 As MemBlock, Temp2 As MemBlock
SetData Temp1, 0, 255, 0, 255
SetData Temp2, 255, 0, 255, 0
bswap = Bitwise_OR(Bitwise_AND(rotl(Val, 8), Temp1), Bitwise_AND(rotr(Val, 8), Temp2))
End Function
Private Function Sum(Val1 As MemBlock, Val2 As MemBlock) As MemBlock
Dim Count As Integer, Val3 As MemBlock
PutReg Val1, 0
PutReg Val2, 1
Dim NextPos As Integer
NextPos = 0
For Count = 31 To 0 Step -1
RegX(2, Count) = (RegX(0, Count) + RegX(1, Count) + NextPos) Mod 2
NextPos = (RegX(0, Count) + RegX(1, Count) + NextPos) \ 2
Next Count
GetReg Val3, 2
Sum = Val3
End Function
Private Function Prod(Val1 As MemBlock, Val2 As MemBlock) As MemBlock
Dim Count As Integer, SumVal As MemBlock
SetInt SumVal, 0
PutReg Val2, 3
For Count = 31 To 0 Step -1
If RegX(3, Count) = 1 Then SumVal = Sum(SumVal, Bitwise_LShift(Val1, 31 - Count))
Next
Prod = SumVal
End Function
Private Function ChangeSign(Val As MemBlock) As MemBlock
Dim Count As Integer, RetVal As MemBlock, ToChange As Boolean
PutReg Val, 0
ToChange = False
For Count = 31 To 0 Step -1
If ToChange Then
RegX(2, Count) = (RegX(0, Count) + 1) Mod 2
Else
RegX(2, Count) = RegX(0, Count)
If RegX(2, Count) = 1 Then ToChange = True
End If
Next
GetReg RetVal, 2
ChangeSign = RetVal
End Function
Private Function Substr(Val1 As MemBlock, Val2 As MemBlock) As MemBlock
Substr = Sum(Val1, ChangeSign(Val2))
End Function
Private Sub SetInt(Dest As MemBlock, IntValue As Byte)
Dest.Data(0) = 0
Dest.Data(1) = 0
Dest.Data(2) = 0
Dest.Data(3) = IntValue
End Sub
Private Sub SetData(Dest As MemBlock, IVal1 As Byte, IVal2 As Byte, IVal3 As Byte, IVal4 As Byte)
Dest.Data(0) = IVal1
Dest.Data(1) = IVal2
Dest.Data(2) = IVal3
Dest.Data(3) = IVal4
End Sub
Private Sub GetInt(Src As MemBlock, IntValue As Integer)
IntValue = Src.Data(3)
End Sub
Private Sub MCopy(Src As MemBlock, Dest As MemBlock)
PutReg Src, 0
GetReg Dest, 0
End Sub
Private Sub Append(ByRef StringData As String, Optional Length As Long)
Dim DataLength As Long
If Length > 0 Then DataLength = Length Else DataLength = Len(StringData)
If DataLength + hiByte > hiBound Then
hiBound = hiBound + 1024
ReDim Preserve byteArray(hiBound)
End If
CopyMem ByVal VarPtr(byteArray(hiByte)), ByVal StringData, DataLength
hiByte = hiByte + DataLength
End Sub
Private Function FileExist(Filename As String) As Boolean
On Error GoTo errorhandler
GoSub begin
errorhandler:
FileExist = False
Exit Function
begin:
Call FileLen(Filename)
FileExist = True
End Function
Private Property Get GData() As String
Dim StringData As String
StringData = Space(hiByte)
CopyMem ByVal StringData, ByVal VarPtr(byteArray(0)), hiByte
GData = StringData
End Property
Private Sub Reset()
hiByte = 0
hiBound = 1024
ReDim byteArray(hiBound)
End Sub
Private Sub SetBuffer(Buffer() As Byte, Str As String, Length As Double)
Dim CF As Double, StrLength As Double
StrLength = Len(Str)
For CF = 0 To Length - 1
If CF < StrLength Then Buffer(CF) = Asc(Mid(Str, (CF + 1), 1)) Else Buffer(CF) = 0
Next
End Sub
Private Sub SetBlock(Blk() As MemBlock, Buffer() As Byte, Pos As Double, Length As Double)
On Local Error Resume Next
Dim Count As Double
For Count = 0 To Length - 1
Blk(Count \ 4).Data(Count Mod 4) = Buffer(Pos + Count)
Next
End Sub
Private Sub GetBlock(Blk() As MemBlock, Buffer() As Byte, Pos As Double, Length As Double)
On Local Error Resume Next
Dim Count As Integer
For Count = 0 To Length - 1
Buffer(Pos + Count) = Blk(Count \ 4).Data(Count Mod 4)
Next
End Sub
Private Sub GetBuffer(Buffer() As Byte, Str As String, Length As Double)
Dim Count As Integer
Str = \"\"
Reset
For Count = 0 To Length - 1
Append Chr
(Str, (CF + 1), 1)) Else Buffer(CF) = 0 Next End Sub Private Sub SetBlock(Blk() As MemBlock, Buffer() As Byte, Pos As Double, Length As Double) On Local Error Resume Next Dim Count As Double For Count = 0 To Length - 1 Blk(Count \ 4).Data(Count Mod 4) = Buffer(Pos + Count) Next End Sub Private Sub GetBlock(Blk() As MemBlock, Buffer() As Byte, Pos As Double, Length As Double) On Local Error Resume Next Dim Count As Integer For Count = 0 To Length - 1 Buffer(Pos + Count) = Blk(Count \ 4).Data(Count Mod 4) Next End Sub Private Sub GetBuffer(Buffer() As Byte, Str As String, Length As Double) Dim Count As Integer Str = "" Reset For Count = 0 To Length - 1 Append Chr
这篇关于c＃中的IDEA和SERPENT加密算法的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
