본문 바로가기
728x90

Delphi 예제 자료9

델파이 ID3v2Library에서 타이틀 및 앨범 한글 글씨 깨짐 방지 델파이 ID3v2 최신 라이브러리 이용하실 경우 한글이 깨지는 증상이 보여 수정 해둔것입니다 2022. 1. 18.
Refletive Injection DLL쪽 C 언어 소스를 델파이 번역 (소소한 강의) Refletive Injection C언어 소스를 보고 이해 안되는 부분은 이론을 보고 참고하여 이해한뒤 델파이 파스칼 언어 코드를 작성했습니다 또는 C에서 지원되는 함수가 있고 델파이에는 없어서 어셈블리어로 돌려 반환해서 처리와 그다음 Hash 구하는것 까지 코드 작성했습니다 ​ ​ 아래의 사진 보시면 인젝당한 DLL이 타 프로세스에 모듈 몇번 찾는 도중에 Kernel32.dll의 메인 base 주소를 이동하는것을 볼수가 있습니다 ​ 해당 인젝 당할 타 프로세서 exe를 열어보면 필요한 VirtualAlloc 함수가 Kernel32.dll에 있는것을 알수가 있습니다 모든 프로세서가 기본으로 Kernel32.dll을 보유하고 있습니다 우린 이 해당 Kernel32.dll 베이스 값과 Kernel32.dl.. 2022. 1. 5.
C의 구조체와 공용체를 델파이로 간단 설명. {C의 구조체} struct MyStruct { BYTE a; BYTE b; BYTE c; } ​ ↓ 번역한다면 ​ {델파이 구조체} MyStruct = record a: BYTE; b:BYTE; c:BYTE; end; {C의 공용체} ​ struct MyStruct { union { BYTE a; BYTE b; BYTE c[1]; } u; } ​ ↓ 번역한다면 ​ {델파이 공용체} ​ MyStruct = record case Integer of 0: (a:BYTE); 1: (b:BYTE); 2: (c: array [0..1] of BYTE); end; ​ 더보기 ​ [구조체]는 a,b,c 변수 3개의 Byte 선언하여 합 크기 3으로 나온다 ​ 하지만 [공용체]는 a,b,c 변수중 크기에서 제일 큰것이.. 2021. 12. 18.
체크박스 컴포넌트만 찾아서 전부 체크 및 해제 예제. 체크박스명 입력해서 찾아서 체크해주는것과 컴포넌트 체크박스만 골라서 체크해주는것 2가지 예제로 넣어드렸습니다. 2021. 12. 13.
[windows,android] 델파이 BASS 라이브러리 통한 간단한 오디오 커팅한 구간 파일 생성하기 본인 소스 일부에서 꺼냈으니 도움 되시길 바랍니다. mp3 Tag Hex 바이너리 넣고싶다면 간단하게 ID3Tag 라이브러리 이용하시면 저장됩니다 저는 오디오 커팅해서 생성한 파일을 원본 파일 바이너리 Hex값이 mp3인지 flac파일인지 구별하여 mp3파일 경우 ID3Tag를 생성한 파일에 입혀 앨범사진과 타이틀 및 아티스트만 넣어놨습니다. uses bass; procedure TForm1.AudioCutting(TmpDir, StartTime, EndTime : string); var Chan : HSTREAM; //TmpDir 파일경로; StartTime := 00:01:10.480 EndTime := 00:01:20.480; Time : int64; begin Chan := BASS_StreamC.. 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.
Character set UTF8 Decode 번역 우선 인코딩 문자 내용을 인코딩 사이트에 입력해보았습니다 Character set 에다가 UTF8 Decode 하는 해당 내용이 나오더군요 그래서 해당 내용의 자바스크립트 내용을 참고하였습니다 ​ 해당 메인은 아래의 첫번째 사진의 화살표 방향이 메인입니다 그외에 필요한 구조 코드들입니다 이 기준으로 코드를 조금만 수정해서 돌려봅니다 돌려보니 원하시는 문자 결과내용을 가져왔습니다 자 그러면 이기준으로 델파이 언어로 번역하면 되겠죠 자 이렇게 Notepad++에 코드를 자바스크립트 포맷을 해주고 오른쪽 Delphi IDE를 편하게 코드를 짤수 있께 레이아웃 변경해서 짰습니다 코드 완성후 돌려보면 완벽하게 잘 나오는것을 볼수가 있습니다 function CharsetUTF8Decode(TmpStr : strin.. 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.
728x90
반응형

티스토리툴바