个人挫品
文章平均质量分 73
MichaelScofield
大家好,我是尹安灿
展开
-
Delphi 获取浏览器路径 注册表获取默认浏览器、注册表读取IE路径 拼接IE路径
Delphi 获取浏览器路径 注册表获取默认浏览器、注册表读取IE路径 拼接IE路径。能想到的挫招都用上了。function GetBrowserPath:string;var hMyKey : HKEY; sPath : array [0..Max_Path-1] of char; sBrowserPath: string; sTemp原创 2012-05-27 15:47:03 · 2878 阅读 · 0 评论 -
Delphi 提取TXT中的Email 数据
仅作记录,方便复用。适合以下格式的类型处理“aaaa dfaafa@qq.com sfsfsafalfjaf afdaf@sina.com.cn afaf 阿发”一行一个 email 有明显的分割符号。一行多个email 还要改一下。program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUti原创 2014-12-03 00:20:10 · 1843 阅读 · 0 评论 -
Delphi 用WinInet 单元实现 POST提交数据
由于贪方便,用idhttp控件实现POST部分。结果发现频繁提交的时候总产生10054 等N多不可控错误。遂想换其它方法。百度找了下。基本都是靠webbrowser 、idhttp等控件提交的。于是,摸索着用 wininet.dll的api自己实现了一个webpost。效果不错。特地贴上方便自己以后检索。代码:function WebPagePost(sURL,sPostData:st原创 2013-04-14 02:06:16 · 12213 阅读 · 1 评论 -
CMSDJPHP 七禧舞曲管理系统cookies欺骗漏洞 0day
本人首发于T00ls,转一份来自己博客。转载请注明出处。微博:http://weibo.com/yinyongyou应该是通杀所有PHP版本 。最新版本没有测试。从补丁来看,漏洞依然存在。这是一个神级漏洞,体现了程序员的神逻辑。看代码admin/admin_check.php<?php$CD_Version='V1.0';$CD_Build='201原创 2012-12-23 21:37:35 · 3024 阅读 · 0 评论 -
Delphi根据字符分割字串成数组
发现经常需要这个函数,每次都要翻找以前的工程文件,遂发上来方便以后索引。function Split(const Source,Delimiter:String):SArray;var iCount,iPos,iLength: Integer; sTemp: String; aSplit:SArray;begin sTemp := Source; iCount := 0原创 2012-10-13 03:16:45 · 4810 阅读 · 0 评论 -
Delphi实现解析百度搜索结果link?url=
首先看到CB放了一个PHP版(http://www.cnbeta.com/articles/206465.htm)的。遂敲了一个Delphi版的胡闹一下。代码很简单 就不详细标注了。unit uMain;{ Created at 2012/01/19 微博 http://weibo.com/yinyongyou 博客 http://blog.csdn.net原创 2012-09-19 21:36:37 · 7082 阅读 · 3 评论 -
关于一次文本读取的速度测试 TStringList PK AssignFile
原因是要做一个多线程读取文本的小程序,但是各种纠结。不知道读取文本用哪个好。 TStringList 方便点,AssignFile快点。假如速度相差不是特别大的话,我还是选用TStringList吧。写了一段代码测试。如下:program ReadTest;{ Code by Michael J Scofield Blog: http://blog.csdn.net/Michael原创 2012-07-18 03:40:31 · 2464 阅读 · 3 评论 -
关于国内某CMS系统备份文件命名规则产生的爆破字典挫码
其实也就想写出来。所以命名没有注意。,但是懒得改。很乱,将就着吧- -。表示其实你们可以边看边骂,我无所谓。由于某CMS备份数据库的时候命名太过于挫。因此产生的备份文件可以通过穷举路径把它找出来。其实代码我都看不下去了。太特么乱了。但是博客好久没写了,哥其实是黔驴技穷了才拿它顶事。首先先看下那个破CMS的备份代码把。 public function insertsql(){//.原创 2012-07-07 04:59:33 · 2595 阅读 · 0 评论 -
2010年的外挂小作品 - QQ对对碰单机版外挂
其实呢。这个重中之重是找对基址= =。源码么纯粹YY。这个小外挂实现了各种淫荡的功能。比如把所有的动物换成相同的。还有更加淫荡的直接加分功能。= =纯粹是蛋疼。unit Unit1;interface{ 程序:Michael J Scofield http://blog.csdn.net/MichaelJScofield原创 2012-05-26 19:14:06 · 1210 阅读 · 0 评论 -
模拟PspTerminateProcess结束进程-学习笔记
此文是阅读黑防上胡文亮大牛《模拟实现NT系统通用PspTerminateProcess》后作为学习笔记记录下来的,仅作学习记录,理解错的请勿拍砖。和通过特征暴力搜索定位PspTerminateProcess的地址的方法相比,亮点就是模拟了实现PspTerminateProcess,PspTerminateThreadByPointer等函数。此前先看PJF大牛的一篇《进程终止的内幕》原创 2012-05-27 16:05:10 · 5509 阅读 · 1 评论 -
Delphi 快速读取TXT 指定行的数据
继上次的问题。在提取了大量的Email 数据后。现在读取数据成了一个问题。今天我取过1~100w的数据。明天我要取100w~200w的数据。在不用数据库的情况下,我搞了一个下午。Delphi Tstringlist 和 textfile 的简单读取是满足不了的。Tstringlist加载不了大数据。普通的textfile 读取指定行,必须循环count到指定行。想了一下午,然后想到另类原创 2014-12-11 17:48:47 · 10016 阅读 · 2 评论