服务端生成客户端时,动态配置一些信息会用到! 比如: a为一个可执行文件,b为ini文件.将b文件写入a文件里,a文件里就包含了资源文件b. 写入资源文件代码: var mstrm1:TMemoryStream; update : dword; workdir:string; begin workdir := ExtractFilePath(ParamStr(0)); mstrm1 := TMemoryStream.Create; ...
-
delphi AES加密算法 含源码
将以下源码保存为AES.pas: (**************************************************) (* *) (* Advanced Encryption Standard (AES) *) (* Interface Unit v1.0 *) (* *) (* ...
-
linode 添加私有ip(静态ip)
第一个配置(覆盖里面的内容): vim /etc/sysconfig/network-scripts/ifcfg-eth0 DEVICE=eth0 #网卡eth0 BOOTPROTO=none #网卡ip的绑定方式,这里选择none ONBOOT=yes #该网卡是否随机启动 IPADDR=173.255.243.77 #ip地址 NETMASK=255.255.255.0 #子网掩码 GATEWAY=173.255.243.1 #ip地址网关 记得把#和后面的都扫除 ...
-
代码转换器 html转JS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE>代码转换器</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <STYLE type=text/css>BODY { MARGIN-TOP: 24px; BACKGROU ...
-
delphi 淘宝登陆代码
最近经营淘宝店,卖QQ币。没事就写了个自动登陆的程序! 下面我把代码贴出来,欢迎指正。。。 procedure TForm1.Button2Click(Sender: TObject); var doc: IHTMLDocument2; denglu: OleVariant; begin tag:=0; WebBrowser1.Navigate('https://login.taobao.com'); while(tag=0) do Application.Proces ...
-
delphi 内存流文件流生成客户端
———————配置端—————————————– uses Inifiles; 全局: var Inifile:TInifile; 加载资源文件: {$RClient.RES} 主要代码: var File1,File2:TFileStream; Size:integer; Files:str ...
-
百度蜘蛛IP段 作用
这个是这前几天在网上看到的一篇文章,觉得有些意思,拿来给大家看看,有兴趣的可以试试! 123.125.68.* 这个蜘蛛经常来别的来的少表示网站可能要进入沙盒了,或被者降权(请检查近期是否对网站有大改动,或者友情连接出问题拉)。 220.181.68.* 每天这个IP段只增不减很有可能进沙盒或K站。 220.181.7.* 123.125.66.* ...
-
linux 系统命令(自己用到的命令 长期更新)
常用命令: wget http://www.xxx.com/a.zip //下载命令 cd /www //切换目录命令 dir //查看当前命令 unzip a.zip //解压zip文件命令 tar -zxvf a.tar.gz //压缩当前文件夹为 a.tar.gz 支持目录命令如 tar -zxvf a.tar.gz -C /www //解压带/www目录中 tar -zcvf /tmp/etc.tar.gz /etc //打包/etc目录 并将打包好的 ...
-
delphi 程序自我删除代码
在制作自动更新时,需要删除自己来替换新程序并运行! 这段代码就很有用了! procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo; begin BatchFileName := ExtractFilePath(ParamStr(0)) + '_deleteme.bat'; AssignFile(Batch ...
最活跃的读者