存档

‘编程实践’ 分类的存档

在线随机密码生成器php版

2012年8月9日 没有评论
?View Code PHP
1
2
3
4

$str = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()_+=-{}\[]:'/?.,<>";   //输出字符集
$n = 32;   //   输出串长度
$len = strlen($str)-1;
for($i=0 ; $i
分类: 编程实践 标签:

PHP代码，判断域名跳转到指定的页面或地址

2011年11月10日 没有评论

我们经常在一些空间使用时要用到一个空间多个域名分配给不同的目录，也就是我们说的站中站。这时我们使用php或是asp就可以做到。代码如下：

 

?View Code PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14

<?php 
switch ($_SERVER["HTTP_HOST"]) 
{ 
case "www.vps12.com": 
header("location:vps12/index.php"); 
break; 
case "www.dnsff.com": 
header("location:dnsff/index.php"); 
break; 
case "www.dns173.com": 
header("location:dns173/index.php"); 
break; 
} 
?>

如果用户访问 www.vps12.com 程序跳转至 空间目录下 vps12/index.php
如果用户访问 www.dnsff.com 程序跳转至 空间目录下 dnsff/index.php
如果用户访问 www.dns173.com 程序跳转至 空间目录下 dns173/index.php
如果虚拟主机不支持子目录绑定有效的办法就是这样了！希望对大家有帮助。

分类: 编程实践 标签:

随机密码生成器

2011年11月4日 评论已被关闭

以前一直在运维工作中要设置和使用一些密码，但都要求很复杂。
为了服务器的安全，比如你在安装MSsqlserver时要设置sa的密码，那么要设置的密码一般为十几位。乱乱的这样相对会安全点。这样就要每次去哪个文本上去弄，这样如果没有随手删除就会留下些信息了。出于这样的情况，有时间的情况下，我随手就帮自己弄个方便的小工具吧。随机密码生成器就这样来了。哈哈！好吧不多说了。begin！

还是使用delphi很方便！

 

设计思路及要求：
1.我们要使用起来方便。单文件就可以了。
2.我们在使用中要能直接复制到剪贴板里，直接粘贴到密码设置框中。
3.随机生成32位大小写加数字与特殊字符。

代码很少。很容易看明白。不多说！看吧！

?View Code DELPHI
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

procedure TForm1.Button1Click(Sender: TObject);
begin
  begin
   Randomize;
word:='0123456789abcdefghijklmnopqrstuvwxyz'+'ABCDEFGHIJKLMNOPQRSTUVWXYZ'+'~!@#$%^&amp;*()_+-={}[]:"|\;&lt;&gt;?,./';
pass:='';
   for   i:=0   to   32   do
   pass:=pass+copy(word,trunc(length(word)*random+1),1);
   edit1.text:=pass;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  begin
   Randomize;
word:='0123456789abcdefghijklmnopqrstuvwxyz'+'ABCDEFGHIJKLMNOPQRSTUVWXYZ'+'~!@#$%^&amp;*()_+-={}[]:"|\;&lt;&gt;?,./';
pass:='';
   for   i:=0   to   32   do
   pass:=pass+copy(word,trunc(length(word)*random+1),1);
   edit1.text:=pass;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Edit1.text));//复制到剪贴板
end;

随机密码生成器：下载

分类: 编程实践 标签: , ,

制作自动启用网卡软件

2011年11月1日 没有评论

       在帮助一些客户的服务器做运维期间。有一些小白的客户很喜欢对网卡进行这样那样的操作和设置，其实要我来说这样有一定风险性，再者很多客户都在有网络卡或是有什么问题时重置网卡，比如在对个人电脑感觉卡或是有网络访问问题不重启电脑就直接单方面进行禁用网卡，再启用网卡。好吧，这样我很无语。其实一点用也没有。但是你个人电脑使用这样操作没问题。服务器你试试。禁用网卡。你试试启用？不可能吧。哈哈远程直接断了。小白的操作失误。这时我们就很无语了。真是哭笑不得。好吧。为了减少这种客户的“骚扰”。自己动手吧。

以前在利用一些时间了解学习了一些编程软件。delphi就是这么一个方便的程序编译软件。可以利用很少的一段代码调用一些windows系统的东西。

设计思路及要求：

1.软件建立运行服务，服务器启动时自动启动。

2.每五分钟运行一次启动网卡。

 3.建立方便的安装删除服务工具。方便一键化安装删除。

好了，我们开始吧代码其实要实现用delphi很容易。调用现成的一些函数和套件可又很方便的建立服务文件
以下给出关键的几条代码吧。太多了不一一发出来。
 

?View Code DELPHI
1
2
3
4
5
6
7
8
9
10
11

procedure TAutoNetWork.Timer1Timer(Sender: TObject);
begin
 if i&gt;2 then
begin
EnableNetAdapter;
//form1.close;
timer1.Enabled:=false;
end
else
i:=i+1;
end;

建立好服务文件后我们就再要对安装文件进行安装了。delphi建立安装服务很容易两条批处理就好了，如下：

建立安装服务文件：install.bat

?View Code BAT
1
2
3

@echo
copy AutoNetWork.exe %SystemRoot%\system32\
%SystemRoot%\system32\AutoNetWork.exe /install

建立卸载服务文件：uninstall.bat

?View Code BAT
1
2
3
4

@echo
net stop AutoNetWork
AutoNetWork.exe /uninstall
del %SystemRoot%\system32\AutoNetWork.exe

有需要的的朋友可以下载回去使用。需要源代码的朋友可以找我，我发给有需要的朋友。

自动启用网卡软件 下载

分类: 编程实践 标签: