delphi加密算法
摘要：function EncryptKey(sUser,sPasswd:string):string;stdcall;var __i,__k,__a : Integer; __s : string;begin __k := 123456789; for __i := 1 to length(sUser) do begin __a := Ord(sUser[__i]) mod 13 + 1; __k := (__k * __a) mod 9999999 + 1; end; __k := (__k mod 98989898) + 99; for __i := 1 to le...
阅读全文
posted @
2013-09-30 15:54
FreeSpider
阅读(241)
推荐(0) 编辑
delphi做的idhttp下载具体某个网站资源的程序（希望大家多看看，多给小弟指点指点，有利于小弟学习）
摘要：今天由于需要下载具体某个网站的资源,手动下载很累，所以我就想写个下载的程序来让程序下载由于初学Delphi，不怕大家笑话，有很多地方都不会或者都写不好，可以说是写的很垃圾（限于知识面有限，各方面都考虑不到），所以我把代码发上来，希望各位大侠帮忙给指出程序不足之处，希望大家多多评论评论，以便有利于小弟学习。代码如下：代码Code highlighting produced by Actipro Co...
阅读全文
posted @
2009-12-29 18:17
FreeSpider
阅读(2023)
推荐(0) 编辑
delphi实现自动填写表单和调用网页上的函数
摘要：var Doc : IHTMLDocument2; input: OleVariant; userinputelement , pwdinputelement : ihtmlinputelement; procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:=''; datex:= FormatDateTime('y...
阅读全文
posted @
2009-12-24 15:58
FreeSpider
阅读(3893)
推荐(1) 编辑
Delphi正则表达式使用方法（TPerlRegEx）
摘要：目前主流的delphi下的正则表达式，应该是PerlRegEx。 官方网站:http://www.regular-expressions.info/delphi.html直接下载:http://www.regular-expressions.info/download/TPerlRegEx.zip 安装方法（我使用的delphi版本是delphi2007）:1、先把解压的TPerlRegEx文件夹...
阅读全文
posted @
2009-12-24 14:19
FreeSpider
阅读(10543)
推荐(2) 编辑
