|
|
域名空间 下载中心 社区论坛 信息公告 my小屋 | |
 |
联系我们 设为首页 加入收藏 |
 |
|
 |
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿 论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图 专题 | 应用软件 | 聊天通讯 | q q 专栏 | 建站经验 | 在线工具 | 站长club | 注 册 表 | 旧版 社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 网络赚钱 | 网站地图 | 广告服务 | 服务 |
 |
 |
 |
 当前位置：首页>>网络安全>>安全防范>>正文 |
新版上线！[旧版] |  |
|||
注:打开慢时请稍等
|
interface uses windows, messages, sysutils, classes, graphics, controls, forms, dialogs, variants, comobj, stdctrls, extctrls, comctrls, filectrl, actnlist, imglist, toolwin; const model = 'yyyy-mm-dd hh:nn:ss'; type passtype = record passcode: string; filetype: string; filetime: tdatetime; end; tpassform = class(tform) listview1: tlistview; imagelist1: timagelist; statusbar1: tstatusbar; memo1: tmemo; coolbar1: tcoolbar; toolbar1: ttoolbar; toolbutton1: ttoolbutton; toolbutton2: ttoolbutton; toolbutton3: ttoolbutton; toolbutton4: ttoolbutton; toolbutton5: ttoolbutton; toolbutton6: ttoolbutton; imagelist2: timagelist; edit1: tedit; pick1: tdatetimepicker; splitter1: tsplitter; procedure closeform(sender: tobject); procedure formcreate(sender: tobject); procedure formdestroy(sender: tobject); procedure getmdbdir(sender: tobject); procedure edit1keypress(sender: tobject; var key: char); procedure createmdb(sender: tobject); procedure getallpass(sender: tobject); procedure setcurtime(sender: tobject); private { private declarations } datestr: dword; passcode: widestring; encodearray: array[0..19] of word; readerarray: array[0..19] of word; function execfile(fname: string): passtype; procedure execdirectory(s: string); function make01(f: string; p: string = ''): boolean; function make02(f: string): boolean; procedure settime(yy, mm, dd: word); overload; procedure settime(mydate: tdate); overload; public { public declarations } filebox1: tfilelistbox; end; var //2079-06-05前[ec379cfa28e68a607b36dfb11343b133795b7c2a ] //2079-06-05后[ed379dfa29e68b607a36deb11243b033785b7d2a ] { 固定密钥 } inherecode: array[0..9] of word = ($37ec, $fa9c, $e628, $608a, $367b, $b1df, $4313, $33b1, $5b79, $2a7c); {活动密钥 } usercode8: array[0..9] of word = //89年9月17日前 ($8b86, $345d, $2ec6, $c613, $e454, $02f5, $8477, $dfcf, $1134, $c592); usercode: array[0..9] of word = //89年9月17日后 ($7b86, $c45d, $dec6, $3613, $1454, $f2f5, $7477, $2fcf, $e134, $3592); incode97: array[0..19] of byte = //access 97 固定密钥 ($86, $fb, $ec, $37, $5d, $44, $9c, $fa, $c6, $5e, $28, $e6, $13, $00, $00, $00, $00, $00, $00, $00); var passform: tpassform; implementation {$r *.dfm} procedure tpassform.settime(yy, mm, dd: word); var myst: tsystemtime; msec: word; begin with myst do begin myst.wyear := yy; myst.wmonth := mm; myst.wday := dd; decodetime(time, whour, wminute, wsecond, msec); end; try setlocaltime(myst)except showmessage('error'); end; end; procedure tpassform.settime(mydate: tdate); var myst: tsystemtime; msec: word; begin with myst do begin decodedate(mydate, wyear, wmonth, wday); decodetime(time, whour, wminute, wsecond, msec); end; try setlocaltime(myst)except end; end; 编辑：黑鹰 [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇：用google你瞬间成为黑客 下一篇：玩木马【菜鸟篇】 转载请注明来源：www.iyit.net 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
| 相关文章 | ||||
| 友情链接 | ||||||
 |
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |  |
| |||||||
易特网络技术