비베 함수 델파이 번역
미리내
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
-
해까닥
사이트채팅 패킷 전송하기전에 패킷 암호화하는건데 비베로 짜여있는것을 델파이로 번역하려다가 안돼서요.. 가능하시다면 부탁드릴게요 ^^
-
에드문드
이거 먼데요? 이게 먼지 알려주시면 번역정도야.. 갠찮을것같은데?..
-
슬옹
Delphi라... 흐음...
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2653536 | 흐핫. 또질문해요. | 바람 | 2024-05-02 |
2653507 | 헬프미 비베작오류;; (2) | 무지개 | 2024-05-02 |
2653426 | 문장의 처음과 문장의 끝의 사이 파싱하기 | 세이 | 2024-05-01 |
2653401 | sendkeys 영문 입력 질문 | 메이커 | 2024-05-01 |
2653371 | a = b = c 이렇게 어떻게하나요 ??.. | 진샘 | 2024-05-01 |
2653346 | 문자열 비교 하기. | 유라 | 2024-04-30 |
2653314 | 비베로 만든 프로그램 안에서 프로그램을 실행할수 있나요? 방법좀요 (1) | 찬놀 | 2024-04-30 |
2653285 | NaverCafe 접속질문 (2) | 이송이 | 2024-04-30 |
2653231 | 이 부분을 계속 반복하고싶은데 어케해야 할까요? | 종달 | 2024-04-29 |
2653202 | 픽쳐박스 크기에 맞게 이미지크기를 자동조절 하는법 잇나요? | 뿌잉 | 2024-04-29 |
2653171 | 체크박스 , 텍스트 관련 질문 | 소1유물 | 2024-04-29 |
2653143 | 메시지 박스에 운영체제 표시하는 법 | 재찬 | 2024-04-29 |
2653074 | findwindowex 질문드립니다. (1) | 새론 | 2024-04-28 |
2653046 | 익스플로어 (1) | 날놓아줘 | 2024-04-28 |
2653015 | 흑흑 아직도 해결이안됬어요 ㅜㅜ For문안에서 중복처리,, (1) | 겨울c | 2024-04-27 |
2652961 | for 문 질문합니당~! (2) | 토리 | 2024-04-27 |
2652933 | 좀 어려운 질문 (10) | 치리 | 2024-04-27 |
2652908 | 질문은아니지만...비베스승구합니다!!!!!!!어제부터시작함.. | 황소숨 | 2024-04-26 |
2652881 | [질문] 차단 | 꽃큰 | 2024-04-26 |
2652853 | 업데이트관련 질문! | 다옴 | 2024-04-26 |