안드로이드 파이어몽키 euckr encode 예제
안드로이드에서 아래 작성한 코드를 넣으시면 사용이 가능합니다 function EucKREncode(TmpStr1 : String) : String; //EUC_KR 인코딩 var TmpArr1, TmpArr2: Array of Byte; TmpInt1: Integer; TmpStr2: RawByteString; begin TmpStr2 := AnsiToUTF8(TmpStr1); TmpInt1 := UnicodeFromLocaleChars(65001, 0, @TmpStr2[0], Length(TmpStr2), nil, 0); SetLength(TmpArr1, TmpInt1); UnicodeFromLocaleChars(65001, 0, @TmpStr2[0], Length(TmpStr2), @TmpArr1[0..
2021. 12. 13.
토크온 리방 용도 부모와 자식(FindWindow 와 FindWindowEx) 참고용 소스
토크온 대화방 설정 창 열기↓ var HWD : integer; HWD := FindWindowEx(FindWindow(nil,'토크온'),0,nil,''); //525942 = 80676 토크온 윈도우 찾기 var HWD1 := FindWindowEx(HWD,0,nil,''); //133202 = 20852 var HWD2 := FindWindowEx(HWD,HWD1,nil,''); //591354 = 905FA var HWD3 := FindWindowEx(HWD2,0,nil,''); //20782 var HWD4 := FindWindowEx(HWD2,HWD3,nil,'');//506A2 var HWD5 := FindWindowEx(HWD2,HWD4,nil,''); //506E6 var HWD6 := ..
2021. 12. 13.
LZstring 자바스크립트 compressToEncoded부분을 델파이로 번역 끝(소스 업로드)
아래의 내용이 자바스크립트 내용이며 더 아래로 내려가시면 델파이 파스칼 언어로 번역한것이 나옵니다 사용 개발 환경 프로그램 : Rad Studio 10.3 번역한 델파이 코드는 밑에 있습니다 function _compress(uncompressed, bitsPerChar, getCharFromInt) { if (uncompressed == null) return ""; var i, value, context_dictionary= {}, context_dictionaryToCreate= {}, context_c="", context_wc="", context_w="", context_enlargeIn= 2, // Compensate for the first entry which should not coun..
2021. 12. 13.
asm(어셈블리어) ntdll.dll Base값과 Kernel32.dll Base값 쉽게 구하기.
어때요 참 쉽죠. 구하는 방법은 2가지 방법이 있습니다 간단하게 코드 짜는것은 첫번째 방법이며 그다음은 두번째 방법입니다 아래가 첫번째 방법 procedure TForm1.FormCreate(Sender: TObject); var ntdllBase, Kernel32Base : DWORD; begin asm mov eax,fs:[$18]; //TIB mov ebx,[eax + $30] //PEB mov ecx, [ebx + $0C] mov ecx, [ecx + $1C] mov eax, [ecx + $08] //여기가 1번째의 ntdll.dll base mov ntdllBase,eax mov ecx, [ecx] mov ecx, [ecx] mov eax, [ecx + $08] //여기가 2번째의 K..
2021. 12. 13.
