비베 함수 델파이 번역
미리내
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라... 흐음...
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2655185 | 화면의 x좌표 가장큰값 구하기 질문 (1) | 해길 | 2024-05-17 |
2655158 | 이거 강좌를 받앗는대 어떻개따라해요? | 하람 | 2024-05-17 |
2655130 | 컴퓨터 사운드 녹음 질문 | 갤쓰리 | 2024-05-17 |
2655073 | 폼끄기 질문 다시합니다 | 해찬솔 | 2024-05-16 |
2654987 | 메세지 박스 질문입니다 ~ (3) | 안다미로 | 2024-05-15 |
2654960 | 블로그 글쓰기 질문 (2) | 힘찬 | 2024-05-15 |
2654931 | 질문 하나 하겠습니다 .!! | 소윤 | 2024-05-15 |
2654904 | 비베 질문요 ㅠㅠ | 미련곰탱이 | 2024-05-15 |
2654851 | 미투데이에 글을 다는 소스를 만들어보려고 하는데 | 횃불 | 2024-05-14 |
2654822 | 원하는 이미지만 꼭 찝어서 냅두기 (3) | 다솜 | 2024-05-14 |
2654791 | 닷홈으로 TEXT를 전송하는데요.. (1) | 그리 | 2024-05-14 |
2654769 | 뭐죠 ?? | 가을 | 2024-05-13 |
2654744 | winhttp로 자동으로 글 등록하는 걸 만들었는데 | 민들레 | 2024-05-13 |
2654717 | 웹브 뒤로가기? (2) | 샹1큼해 | 2024-05-13 |
2654660 | int(Rnd *9999) 질문좀 드릴게욤..;; | 사랑은아픔 | 2024-05-12 |
2654604 | 텍스트내용 메일로 보낼때 일정부분 가리기 (1) | 풋내 | 2024-05-12 |
2654575 | 메시지박스 | 터1프한렩 | 2024-05-12 |
2654551 | form의 크키가 커지면 다른 도구들도 커지는법좀. | 앵겨쭈 | 2024-05-11 |
2654492 | 컴퓨터본체로 강제종료 못시키게하는법 (3) | 연블랙 | 2024-05-11 |
2654465 | 폼2에서 폼1 리스트의 Listindex0에강제적으로 추가하기... 그리고저장하기 (1) | 갤3 | 2024-05-11 |