Delphi RSA加密算法实例，无使用第三方控件的Delphi加密程序实例，可使用生成随机数，生成密钥，质数寻找启始点等进行特殊加密处理。

内含8位、16位、32位的CRC校验算法示例代码，生成多项式的值（多项式因子） 注意：CRC16是数据流的高位先计算，多项式因子不变 而CRC32和CRC8都是数据流的低位先计算，所以多项式因子的高/低位对调 比如CRC32由$04C11DB7变为$EDB88320，CRC8由$31变为$8C 16位CRC：按位计算，速度最慢，占用空间最少 注：数据流是高位先行 MCS51的CRC-16计算函数(多项式因子为$1021, 高位先行) ; 调用：CRC16H/CRC16L=原CRC16值(16位，初始值为0000h)，A=待计算数据(8位) ; 结果：CRC16H/CRC16L=计算后的CRC16值(16位) 16位CRC：生成CRC16表(256项)，用于快速查表计算 在程序初始化时就先调用，预先生成CRC16Tab[256]查表数据 MCS51的CRC-16快速查表计算函数 ; 要预先生成CRC16查表数据，起始地址CRC16Tab，按高/低字节顺序存放(512字节) ; 调用：CRC16H/CRC16L=原CRC16值(16位，初始值为0000h)，A=待计算数据(8位) ; 结果：CRC16H/CRC16L=计算后的CRC16值(16位) MCS51的CRC-8快速查表计算函数 ; 要预先生成CRC8查表数据，起始地址CRC8Tab，按顺序存放(256字节) ; 调用：B=原CRC8值(8位，初始值为00h)，A=待计算数据(8位) ; 结果：B=计算后的CRC8值(8位) …………

无控件版Delphi图书管理系统源码Access数据库，采用面向对象的程序设计理念编写，程序无使用第三方外部控件，因此在Delphi7环境下可直接编译代码，运行时请注意access的路径，运行界面效果如演示截图所示。 　　本套系统主要用来管理图书资料的，并不包括类似图书馆那样的租借模块，基本是数据库的简单操作，可修改成其它档案资料管理系统。

Delphi户籍管理系统，Access数据库版，界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为：222222 。 　　在数据库编程方面，本系统更注重录入及查询，采用多重SQL语句查询，并结合查询可生成报表。

Delphi编写的学校教务外教务管理系统，分为四个子系统，一是学生课程管理子系统，由学生登录，二是教师课程管理，由教师登录，三是教务处综合管理系统，第四个子系统主要是打印模块，完成前三个系统数据的打印及预览功能。系统采用SQL2000作为数据库，脚本已附进压缩包内，不过要手动导入到数据库中，在功能方面主是表现一些基础的数据库操作，因此作为一个初级的数据库教学范例来说，本系统比较合适。

BN011-大型ERP delphi源码 无密码

Delphi小区水电登记收费系统SQL版，实现小区水电收费系统的客户管理、计量装置管理、记费管理、统计决策，实现记费的流程。含源码配置，安装界面组件Skin3，可编译通过。

Delphi源码游戏娱乐源码下载,游戏娱乐源码Delphi源码,Delphi源码游戏娱乐源码,游戏娱乐Delphi源码源码下载。Delphi修改的传奇2客户端源码，SF都是LF泄露起始的什么自己得都是在别人得基础LF也是在原来老的基础上逆向写得代码。

Delphi 修改内存保护属性，包括修改以下信息：基地址、分配地址、区域大孝所分配保护属性、访问的保护属性、内存状态、内存类型等。核心源代码如下： 　　VirtualQuery(Arrayptr, MemInfo, SizeOf(TMemoryBasicInformation)); 　　ListBox1.Items.Add('基地址: ' IntToHex(Longint(MemInfo.BaseAddress),8)); 　　ListBox1.Items.Add('分配地址: ' IntToHex(Longint( 　　 MemInfo.AllocationBase),8)); 　　ListBox1.Items.Add('区域大小: ' IntToStr(MemInfo.RegionSize) ' bytes'); 　　ListBox1.Items.Add('所分配保护属性: ' DisplayProtections(MemInfo.AllocationProtect)); 　　ListBox1.Items.Add('访问的保护属性: ' DisplayProtections(MemInfo.Protect)); 　　case MemInfo.State of 　　 MEM_COMMIT: ListBox1.Items.Add('内存状态: MEM_COMMIT'); 　　 MEM_FREE: ListBox1.Items.Add('内存状态: MEM_FREE'); 　　 MEM_RESERVE: ListBox1.Items.Add('内存状态: MEM_RESERVE'); 　　end; 　　case MemInfo.Type_9 of 　　 MEM_IMAGE: ListBox1.Items.Add('内存类型: MEM_IMAGE'); 　　 MEM_MAPPED: ListBox1.Items.Add('内存类型: MEM_MAPPED'); 　　 MEM_PRIVATE: ListBox1.Items.Add('内存类型: MEM_PRIVATE'); 　　end;

Delphi批量查找替换文件内容，支持文章段落替换和字符内容替换，并加入了批处理模块，现在可以批量替换了，曾经是我写程序时候的助手，现在分享代码，对研究学习Delphi字符处理有帮助。