수다닷컴

PacketEncrypt 함수를 델파이로 번역중인데요..;;;

아무리해도 오류가 나와서요...;;

번역해주실분 구합니다..

Public Function PacketEncrypt(Content As String, Head As String) As String
Dim Byt() As Byte, Buf() As String, Pass As Byte
Dim i As Long, CRC As Long, Arr(0 To 3) As String

Byt = StrConv(Content, vbFromUnicode)
ReDim Buf(0 To UBound(Byt)) As String
Pass = (UBound(Byt) * 2 + 2) And &HFF

For i = 0 To UBound(Byt)
Byt(i) = Byt(i) Xor Pass Xor KeyBox((i + 1) Mod &HFF)
If Byt(i) &HF Then
Buf(i) = Hex$(Byt(i))
Else
Buf(i) = 0 & Hex$(Byt(i))
End If
CRC = CRC + CLng(Byt(i))
Next i

Arr(0) = Head
Arr(1) = CStr(UBound(Byt) * 2 + 4)
Arr(1) = Left$(0000, 4 - Len(Arr(1))) & Arr(1)
Arr(2) = Join$(Buf, vbNullString)
Erase Byt
Erase Buf

CRC = CRC And &HFF

If CRC &HF Then
Arr(3) = Hex$(CRC)
Else
Arr(3) = 0 & Hex$(CRC)
End If

PacketEncrypt = Join$(Arr, vbNullString)

End Function

-----------------------------------------------------------------------------------------------

또, PacketDecrypt 함수도좀 부탁드립니다..

Public Function PacketDecrypt(Content As String) As String
Dim Size As Long, Byt() As Byte, Pass As Byte
Dim i As Long, CRC As Long

Size = Len(Content)
If (Size And &H1) Or (8 = Size) Then Exit Function

Size = (Size - 12) \ 2
ReDim Byt(0 To Size) As Byte
Pass = (Size * 2 + 2) And &HFF

For i = 0 To Size
Byt(i) = CByte(&H & Mid$(Content, i * 2 + 9, 2))
CRC = CRC + CLng(Byt(i))
Byt(i) = Byt(i) Xor Pass Xor KeyBox((i + 1) Mod 255)
Next i

CRC = CRC And &HFF

If CRC CByte(&H & Mid$(Content, Size * 2 + 11, 2)) Then
Exit Function
End If

PacketDecrypt = StrConv(Byt, vbUnicode)
Erase Byt
End Function

신청하기