编程中国博客 - 始于2006，最老牌的博客平台之一

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry,INIFILES; //必须加入type TForm1 = class(TForm) Button1: TButton; RadioButton1: TRadioButton; Memo1: TMemo; RadioButton2: TRadioButton; RadioButton3: TRadio...

硬盘及光驱

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, shellAPI, FileCtrl,mmsystem;type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; Label1: TLabel; DriveComboBox1: TDriveComboBox; ...

内存及进程

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,mmsystem, Gauges,TLHelp32;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Timer1: TTimer; Gauge1: TGauge; Gauge2: TGauge; Gauge3: TGauge;...

鼠标的操作

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ImgList, ComCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Button2: TButton; Button3: TButton; Button4: TButton; Timer1: TTimer; ...

屏幕保护程序

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, JPEG;type TMainForm = class(TForm) Image1: TImage; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Image1Click...

实现带阴影效果的画框

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg;type TMainForm = class(TForm) Panel1: TPanel; Button1: TButton; Button2: TButton; Image1: TImage; procedure FormCreate(Sender: TObject); procedure Bu...

几何形状窗体

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, jpeg;type TMainForm = class(TForm) Image1: TImage; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N...

相框

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, JPEG;type TMainForm = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); private procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT; { Private...

桌面精灵

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, JPEG;type TMainForm = class(TForm) Timer1: TTimer; PopupMenu1: TPopupMenu; N11: TMenuItem; N21: TMenuItem; N1: TMenuItem; N2: TMenuItem; Image1: TImage; ...

自制资源管理器

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ShellCtrls;type TForm1 = class(TForm) ShellTreeView1: TShellTreeView; ShellComboBox1: TShellComboBox; ShellListView1: TShellListView; Label1: TLabel; ...

任务栏。桌面的隐藏

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TMainForm = class(TForm) RadioGroup1: TRadioGroup; RadioGroup2: TRadioGroup; RadioGroup3: TRadioGroup; RadioGroup4: TRadioGroup; procedure RadioGroup1Cli...

得到文件日期

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMainForm = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Label2: TLabel; Edit2: TEdit; Button2: TButton; Label3: TLabel; Edit3: TEdit; ...

文件管理器

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl;type TMainForm = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; procedure Edit1Change(Sender: TObject); ...

修改时间戳破解CRC32算法

小弟收集的。呵呵。 dymcrc32 单元unit DymCrc32;interfaceuses Windows,SysUtils,Classes;var Table:Array[0..255] of DWORD; procedure GetCRC32File(FileName:string;var CRC32:DWORD); function GetCrc32Str(s: string; Seed: LongInt):string;implementationprocedure MakeTable();var i,j,Crc:intege...

delphi的ring0之道

delphi的关于ring0级的编写的一些资料，有些杂，还有些乱，不好意思！附带了一些windowsapi的资料---- 下面是局部的代码，具体见附件------（） uses Windows, Dialogs, SysUtils, NTDDK, JwaWinNT, JwaWinType, JwaNtStatus, JwaAccCtrl, JwaAclApi, ntdll; const KGDT_NULL = 0; KGDT_R0_CODE = 8; KGDT_R0_DATA = 16; KGDT_R3_CODE ...

使用Delphi实现Windows内核模式的进程保护

小弟收集黑防的。代码有些乱，讲究看吧！！！！-------code1.txtVar ProcessFlagOffset,ThreadFlagOffset:Cardinal; ProcessObjectType,ThreadObjectType:Pointer;TargetPID,TargetTID:Cardinal;function IsListEntry(Address:PLIST_ENTRY):Boolean;//此函数用于判断所给的地址对应的内存区域是否储存着一个有效的LIST_ENTRY结构，一个有效的LIST_ENTRY的特点是它的BLink...

编程实现管理员远程登录报警器

收集的哦！使用delphi编写的远程桌面报警器！具体实现的代码以及附件--- unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, WinSock, jpeg;type TMainForm = class(TForm) Eip: TEdit; lbl1: TLabel; lbl2: TLabel; EPort: TEdit; timer1: TTim...

编写BHO截获并替换百度谷歌搜索表单

收集黑客防线的。不算盗版吧》=《呵呵以下是具体的代码，我搜集的！有点难度的··· BHO的定义：是微软推出的作为浏览器对第三方程序员开放交互接口的业界标准，通过简单的代码就可以进入浏览器领域的‘交互接口’，对象依托于浏览器的主窗口，可以在这些事件的响应中实现与浏览器的交互，这样，对象会在与浏览器相同的上下文中运行，并能对可用的窗口和模块执行任何行动！UIEvisit 单元-------------------------- unit UIEVisit; {$WARN SYMBOL_PLATFORM OFF} interface uses Wind...

软件的爆破思路和附加数据的处理

爆破顾名思义就是暴力修改程序的代码来达到破解的目的当然根据共享软件的注册方式我们可以对症下药比如说没有注册的软件有功能限制、使用次数限制、使用日期限制等我们就可以分别对待了！我们只需要解除这些限制自然就达到了破解的目的了！暴力破解的一般流程1、有壳者自然得先脱壳2、试注册看看有何提示，让我们抓抓小尾巴3、若有提示，用OD动态调试器或者是W32静态调试器查找错误提示4、来到错误提示处分析代码找关键CALL、关键跳！5、修改代码6、复制保存！如果没有提示，我们可以使用很多断点来完成这些操作现今软件的保护方式有1、序列号保护方式（注册码=f（机器码/序列号））2、警告(NAG)窗...

简单汇编知识二及pe优化减肥

跳转命令 -------------------------------------------------------------根据条件作出是否跳转的决定，通常前面会有一个判断语句，例如：　　　　CMP AX,BX 　　　　JZ XX //jump zero 上面两条命令意为用 AX 减 BX，它的值如果为 0 则跳转到 XX 的标号行。常用的跳转命令有：　　　　JZ/JE 　　相等或为零为则跳转　　　　JNZ/JNE 　不相等或不为零则跳转　　　　JL/JLE　　小于／小于或等于则跳转　　　　JG/JGE　　大于／大于或等于则跳转　　　　JMP 　　　无条...