비베 함수 델파이 번역
미리내
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라... 흐음...
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2652085 | FindWindow 질문할게요 | 빵야 | 2024-04-19 |
2652059 | 질문이요 ~!!!! | by풀잎 | 2024-04-19 |
2652032 | 웹 브라우저 에 대하여 질문좀.. - 수정 | 콩알녀 | 2024-04-18 |
2652004 | 프로세스 클리너를 만드려는데요... | 핫블루 | 2024-04-18 |
2651956 | 텍스트에 숫자질문요. | 도손 | 2024-04-18 |
2651905 | killprocess 폼언로드에서 작동 하나요? | 벚꽃 | 2024-04-17 |
2651848 | winsock 공유기 사용 (제발 도와주세요ㅠ) (3) | 비마중 | 2024-04-17 |
2651827 | 아.. 계속 컴파일 오류입니다.: 메서드나 테이터 구성원을 찾을 수 없습니다. 라고떠요..ㅜ | 이송이 | 2024-04-16 |
2651799 | 차례 대로 메세지 박스 출력하는 방법 없을까요? | 아리솔 | 2024-04-16 |
2651777 | 켜자마자 음악을 자동재생 할려고하는데요 | 그린나래 | 2024-04-16 |
2651748 | 질문이요!~ | 핑크빛입술 | 2024-04-16 |
2651722 | 소스코드좀 도와주세여 | 미련곰탱이 | 2024-04-15 |
2651701 | 리스트박스내용txt[메모장]형식으로저장가르켜주_세요~ (1) | 콩알녀 | 2024-04-15 |
2651675 | 웹브로 페이지 소스를 받아올 수 있는 방법이 있을까요? | 물 | 2024-04-15 |
2651650 | 비베 고수님들!!!!!!!!!! (3) | 태양 | 2024-04-15 |
2651592 | Label 질문 (2) | 세련 | 2024-04-14 |
2651564 | 궁금해요 !! | 레나 | 2024-04-14 |
2651505 | exe 메이커 잘아시는분? (9) | 거울 | 2024-04-13 |
2651476 | 핫키를 만들고있습니다. 그런데 문제가 발생했네요 | 창의적 | 2024-04-13 |
2651416 | 커맨드버튼에 픽쳐 속성 그림넣는거 질문. (1) | 맑다 | 2024-04-13 |