Delphi DES加密(转)
摘要：之前自己修改过一个,又找到一个,觉得这个要比我修改的好,之前修改的好像有点问题 :-(unit NewDES;interfaceusesSysUtils,Classes;typeTByte32 = array[1..32] of Byte;TSData = array[0..63] of Byte;TBlock = array[0..7] of Byte;function EnCryptStr(aStr: AnsiString; aKey: AnsiString ): AnsiString;function DeCryptStr(aStr: AnsiString; aKey: AnsiStri
阅读全文
posted @
2012-08-30 18:42
garfieldtom
阅读(5701)
推荐(0) 编辑
Delphi AES加密(转)
摘要：(**************************************************************)(*AdvancedEncryptionStandard(AES)*)(*InterfaceUnitv1.3*)(**)(*Copyright(c)2002JorlenYoung*)(**)(*说明：*)(*基于ElASE.pas单元封装*)(**)(*这是一个AES加密算法的标准接口。*)(*调用示例：*)(*ifnotEncryptStream(src,key,TStream(Dest),keybit)then*)(*showmessage('encryp
阅读全文
posted @
2012-08-30 18:35
garfieldtom
阅读(9064)
推荐(0) 编辑
Android短信拦截
摘要：要做一个自动短信回复,所以需要拦截系统短信.1.在Manifest.xml里加"接收"SMS的权限 <uses-permission android:name="android.permission.RECEIVE_SMS"></uses-permission>2.在Manifest.xml里注册一个receive<!-- 注册Receiver,并且设置优先级 --> <receiver android:name=".AutoSMS" android:exported="false&
阅读全文
posted @
2012-08-25 06:05
garfieldtom
阅读(28114)
推荐(1) 编辑
Delphi 远程调试（转）
摘要：转自：http://www.cnblogs.com/sandman/archive/2010/12/05/1897063.html自己的开发机器称为主机，运行程序的机器称为目标机；一、在主机编译执行程序1、project->options->linker中的EXE and DLL options选项组中的include remote debug symbols打上勾这样就可以生成rsm为扩展名的文件，该文件名称于你的项目同名。2、project->options->Debugging中的勾可以全部选上，这是在你的程序支持debug(正式发布产品时要去掉这些选项，Delp
阅读全文
posted @
2012-08-08 14:27
garfieldtom
阅读(4149)
推荐(0) 编辑
在Delphi中根据SQL Server表名和表描述生成SQL语句
摘要：直接上代码吧：1functionGetSQLByTableName(sTableName:string):String;2var3aDataSet:TDataSet;4s:String;5aField:TField;6aFieldList,aFieldDescriptionList:TList<string>;7functionGetFieldDescription(sTable,sField:string):String;8var9sSQL:String;10begin11sSQL:='select sys.extended_properties.value from s
阅读全文
posted @
2012-08-01 10:54
garfieldtom
阅读(1548)
推荐(0) 编辑
