unit Unit1; interface uses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,winsock, Vcl.StdCtrls; type  TForm1 = class(TForm)    Edit1: TEdit;    Edit2: TEdit;   …

[免杀]Delphi源码免杀之函数动态调用 实现免杀的下载者 2013-12-30 23:44:21         来源:K8拉登哥哥's Blog   自己编译这份代码看看 过N多杀软  没什么技术含量 只是发出来给不懂的人入入门 也防止有新人老是来问 ShellApi,URLMon 单元 //Delphi动态调用API函数 procedure TForm1.Button1Click(Sender: TObject); var    SourceFile:ansistring;    Des…

QQ2008自动聊天精灵delphi源码   unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,Registry, ExtDlgs, bsSkinShellCtrls,    BusinessSkinForm, bsSkinBoxCtrls, bsSkinCtrls;type…

转换GMT秒数为日期时间格式-Delphi源码.收藏最近在写PE分析工具的时候,需要转换TimeDateStamp字段值为日期时间格式,这是Delphi的源码. //把GMT时间的秒数转换成日期时间格式function GetGMTDateTime(Value:Int64):TDateTime;var Year,Month,Day:Word; Hour,Min,Sec,MSec:Word; iYear,iDay:Word; iHour,iMin,iSec:Word; RInt,i:Integer…

http://www.caihongnet.com/content/xingyexinwen/2013/0721/730.html http代理工具delphi源码 以下代码在 DELPHI7+INDY9 下正常编译,只供自己分析研究HTTP用,有兴趣的可以自行修改. ----------------------------------------------------------------------------------httpproxy.dpr--------------------…

00413184 |. E8 77E30100   |CALL PlantsVs.00431500                  ; 地上的物品00413189 |. 8D7424 10     |LEA ESI,DWORD PTR SS:[ESP+10]0041318D |. 8BD3          |MOV EDX,EBX0041318F |. E8 7C980000   |CALL PlantsVs.0041CA1000413194 |. 84C0          |TEST A…

http://www.codesc.net/source/list_10_59.shtml…

unit Crc8; interface Uses Classes, Windows; Function Crc_8n(p : array of BYTE; len : BYTE) : Byte; implementation Function Crc_8n(p : array of BYTE; len : BYTE) : Byte; Var j, cbit, aout, crc, crc_a, crc_b : Byte; i : integer; begin crc := ; i := ; /…

前段时间看到“69岁农民3天破解世界最难数独游戏”,然后在看了那个号称世界最难的数独题目之后,就打算抽空编程解决.今晚抽出一个晚上,大约四五个小时的时间,中间还间歇在clash of clans上造兵和进攻(好吧我承认这不是一个好习惯).最终,很好地解决了.下面贴出源代码. unit uSudoku; interface uses Classes, sysutils, forms, windows, dialogs; type TMapArray = .., ..] of Integer; TS…

{-----------------------------------------------------------------------------作者:sushengmiyan 2013.01.26备注:功能:硬件信息获取单元-----------------------------------------------------------------------------} unit ApplicationHardWareInfo; interfaceuses Windows,…