hailong7308-CSDN博客

原创汇编计时器，可用于游戏应用层防止加速，可根据CPU频率校验各种winapi计时器，通过平均差值判断加速行为

__declspec(naked) BOOL __stdcall GetInterruptTime(PULONGLONG UnbiasedInterruptTime){__asm{mov edi,edi; push ebp;mov ebp,esp;push ecx;push ecx;mov edx,dword ptr ss:[ebp+0x8];test edx,edx;je LERROR;push ebx;push esi;push edi;LBG:mov esi,dword

2021-11-16 23:01:36 2665

原创加载shellcode到32位Windows程序远程进程中

BOOL WINAPI LoadDll(HANDLE hProcess,LPVOID lpBuf,int cbBuf){BOOL br = FALSE;LPVOID m_lpData = VirtualAllocEx(hProcess, NULL,cbBuf,MEM_COMMIT|MEM_RESERVE, PAGE_EXECUTE_READWRITE);if (m_lpData==NULL){ goto cleanup0;}if(!WriteProcessMemory(hProcess,

2021-11-16 22:54:10 248

原创 Com方式读取CIM数据库获取windows操作系统版本

int GetOsVersion(string &osVer){HRESULT hres;hres = CoInitializeEx(0, COINIT_MULTITHREADED);if (FAILED(hres)){return -1;}hres = CoInitializeSecurity(NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_DEFAULT, RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE,

2021-11-16 22:47:39 1464

原创 Lua可变参函数动态标签函数，对应C中的可变参函数

function CreateLabel(…)local a = “”local arg={…}local len = table.getn(arg)if(len>=2) thena = “<”…arg[1]…"/@("…LUASCRIP…"|"…arg[2]for i=3,len doa = a…","…arg[i]enda = a…")>"endreturn aend

2021-11-16 22:41:21 250

原创 c++Unicode、UTF8、ANSI 字符串转换

string qUnicodeToAnsi(wstring &buf){int len = ::WideCharToMultiByte(CP_ACP, 0, buf.data(), buf.size(), NULL, 0, NULL, NULL);if (len == 0) return “”;std::vector<char> utf8(len);len = ::WideCharToMultiByte(CP_ACP, 0, buf.data(), buf.size(), &a

2021-11-16 22:37:00 1030

原创 DELPHI版SQLITE数据库增加BLOB参数

constdtInt = 1;dtNumeric = 2;dtStr = 3;dtBlob = 4;dtNull = 5;TSQliteParam = classpublicname: string;valuetype: integer;valueinteger: int64;valuefloat: double;valuedata: string;valueblob: TBytes;end;procedure TSQLiteDB.AddParamBlob(name: stri

2021-11-16 22:32:25 1747

原创 Delphi 圆圈图形进度条控件

unit CircleProgress;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms;constFORE_COLOR = clTeal;BACK_COLOR = clSilver;PEN_WIDTH = 4;typeTCircleProgress = class(TGraphicControl)private{ Private declarations }FMinValue:

2021-11-16 22:24:42 4170

原创通过winapi获取MD5值

typepTMD5_CTX = ^TMD5_CTX;TMD5_CTX = recordnum:Array[0…1] of ULONG;buf:Array[0…3] of ULONG;input:Array[0…64-1] of Byte;digest:Array[0…16-1] of Byte;end;TMD5Init = procedure(Ctx:Pointer);stdcall;TMD5Update = procedure(Ctx:Pointer; lpBuf:Pointer; nL

2021-11-16 21:34:26 39283

原创 DELPHI电流正态分布

对方括号的内容进行统计[EB74FA5B87DE6AFC62300868F456953C4A48454E4E635BA625A44CA03C91C734A529AB2F5AB9D07ECC779D548F34AE2A69F556F51649883890C5065F9CF959F064F4508683848F8F8536A624]

2021-11-16 19:06:05 114881

原创 IP地址转换DELPHI

function IpStrToU(sIp:AnsiString):DWORD;beginResult:=inet_addr(pAnsiChar(sIp))end;function IpUToStr(U:Dword):AnsiString;varinaddr: TInAddr;//sin:sockaddr_in;begin//sin.sin_addr.S_addr:=U;inaddr.S_addr:=U;Result:=StrPas(inet_ntoa(inaddr))end;

2021-11-16 18:57:46 58208 1

微码信息