电子签名学习...(还没有完全OK)-->学习完后请加精哦...

河边星星

1.
ActivePerl-5.8.4.810-MSWin32-x86.msi

在windows电脑上安装此文件...

2.

1. 
   
2. #! /usr/bin/perl -w
   
3. # 產生簽名 => 輸出公共key => 印出 key id
   
4. 
   
5. use IO::Handle;
   
6. use Fcntl;
   
7. use Net::FTP;
   
8. use Win32::Console;
   
9. use Win32::Process;
   
10. use Win32;
    
11. 
    
12. if($^O !~ /win32/i) { print STDERR "本工具必須在 windows 上執行\n"; exit 1; }
    
13. $env = Win32::GetOSName();
    
14. if($env =~ /^Win95$/i || $env =~ /^Win32s/ || $env =~ /^WinNT3/)
    
15. {
    
16. print STDERR '抱歉，本工具僅支援 windows 98 及 nt4 以上！請聯絡 mis' . "\n";
    
17. exit 1;
    
18. }
    
19. elsif($env =~ /^Win98$/i || $env =~ /^WinMe/)
    
20. {
    
21. $sysrp = 'C:\\WINDOWS';
    
22. $sysdv = 'C:';
    
23. }
    
24. else
    
25. {
    
26. $sysrp = $ENV{'SystemRoot'};
    
27. $sysdv = $ENV{'SystemDrive'};
    
28. }
    
29. # $con = new Win32::Console(STD_INPUT_HANDLE);
    
30. $con1 = new Win32::Console(STD_OUTPUT_HANDLE);
    
31. # $con->Mode(ENABLE_PROCESSED_INPUT);
    
32. $con1->Title('auto sign utility for Excell Precisions Co');
    
33. $con1->Cls();
    
34. $con1->Display();
    
35. $attr = $con1->Attr();
    
36. 
    
37. *gpg = "c:\\gnupg-w32cli-1.2.1-1\\gpg.exe";
    
38. 
    
39. if(! -f $sysrp . "\\unzip.exe")
    
40. {
    
41. $con1->Write('下載unzip.exe..' . "\n");
    
42. $ftp = Net::FTP->new("linux1", Debug => 0);
    
43. $ftp->login("anonymous",'anonymous@');
    
44. $ftp->binary();
    
45. $ftp->cwd("/win32");
    
46. $ftp->get('unz542xN.exe',$sysrp . "\\unz542xN.exe");
    
47. $ftp->quit();
    
48. Win32::SetCwd($sysrp);
    
49. system('unz542xN.exe');
    
50. unlink 'unz542xN.exe';
    
51. }
    
52. 
    
53. if(! -f $gpg)
    
54. {
    
55. $con1->Write('下載gpg..' . "\n");
    
56. Win32::SetCwd('C:\\');
    
57. if(! -d 'gnupg-w32cli-1.2.1-1')
    
58. {
    
59.   system("md gnupg-w32cli-1.2.1-1");
    
60. }
    
61. Win32::SetCwd('C:\\gnupg-w32cli-1.2.1-1');
    
62. $ftp = Net::FTP->new("linux1", Debug => 0);
    
63. $ftp->login("anonymous",'anonymous@');
    
64. $ftp->binary();
    
65. $ftp->cwd("/win32");
    
66. $ftp->get('gnupg-w32cli-1.2.1-1.zip',"c:\\gnupg-w32cli-1.2.1-1\\gnupg-w32cli-1.2.1-1.zip");
    
67. $ftp->quit();
    
68. system('unzip.exe gnupg-w32cli-1.2.1-1.zip');
    
69. unlink 'gnupg-w32cli-1.2.1-1.zip';
    
70. }
    
71. 
    
72. $con1->Write('下載相關工具..' . "\n");
    
73. $ftp = Net::FTP->new("linux1", Debug => 0);
    
74. $ftp->login("anonymous",'anonymous@');
    
75. $ftp->binary();
    
76. $ftp->cwd("/win32");
    
77. $ftp->get('autosign.bat',"c:\\autosign.bat");
    
78. $ftp->get('autosign.pl',"c:\\autosign.pl");
    
79. $ftp->get('check_sign.pl',$sysrp . "\\check_sign.pl");
    
80. $ftp->get('sign.pl',$sysrp . "\\sign.pl");
    
81. $ftp->quit();
    
82. Win32::SetCwd($sysdv);
    
83. 
    
84. $con1->Write('請問您是否已有電子鎖?(y:是/n:否) ');
    
85. # $ans = $con->InputChar(1);
    
86. # $con->Flush();
    
87. $ans = <STDIN>;
    
88. $aa = lc(substr($ans,0,1));
    
89. if($aa eq 'y')
    
90. {
    
91. exit 0;
    
92. }
    
93. 
    
94. if(!(-d "c:\\gnupg"))
    
95. {
    
96. system "md c:\\gnupg";
    
97. }
    
98. 
    
99. do
    
100. {
     
101. $con1->Write('請輸入員工編號(4個數字):' . "\n");
     
102. # $idnum = $con->InputChar(4);
     
103. # $con->Flush();
     
104. $idnum = <STDIN>;
     
105. chomp($idnum);
     
106. } while($idnum !~ /^\d{4}$/);
     
107. 
     
108. open OUT,"> c:\\gnupg\\h.sign";
     
109. print OUT $idnum;
     
110. close OUT;
     
111. 
     
112. $idnum = 'a' . $idnum;
     
113. 
     
114. do
     
115. {
     
116. $con1->Write('請輸入公司分派之電子郵件地址:' . "\n");
     
117. $email = <STDIN>;
     
118. chomp($email);
     
119. $email = lc($email);
     
120. (@efd) = ($email =~ /^.+\@(.+)\.(.+)\.(.+)\.(.+)$/);
     
121. } while(!defined(@efd) || $efd[1] ne 'excell' || $efd[2] ne 'com' ||
     
122.         $efd[3] ne 'tw');
     
123. 
     
124. $con1->Write('現在將輸入密碼, 請注意不要被四周的人看到!' . "\n");
     
125. do
     
126. {
     
127. $con1->Write('請輸入解鎖密碼(注意!請不要讓別人知道此密碼, ?K牢記此密碼):' . "\n");
     
128. $pas = &getpass;
     
129. $con1->Write('請再輸入一次確定' . "\n");
     
130. $pas1 = &getpass;
     
131. if($pas ne $pas1)
     
132. {
     
133.   $con1->Write('兩次密碼?K不相符。' . "\n");
     
134. }
     
135. } while($pas ne $pas1);
     
136. 
     
137. $con1->Write('請盡量快速移動滑鼠直到完成為止..' . "\n");
     
138. sleep 1;
     
139. 
     
140. open OUT,"| $gpg --batch --gen-key";
     
141. print OUT <<EOF
     
142. 
     
143. Key-Type: DSA
     
144. Key-Length: 1024
     
145. Subkey-Type: ELG-E
     
146. Subkey-Length: 1024
     
147. Name-Real: $idnum
     
148. Name-Comment: $efd[0]
     
149. Name-Email: $email
     
150. Expire-Date: 0
     
151. Passphrase: $pas
     
152. #
     
153. %commit
     
154. 
     
155. EOF
     
156. ;
     
157. close OUT;
     
158. # export
     
159. system "$gpg --keyserver linux1 --send-keys " . $idnum;
     
160. # 取得 public key id
     
161. @pk = split(/\n/,`$gpg --list-public-keys $idnum`);
     
162. $pkn = substr($pk[0],11,8);
     
163. $con1->Write('自動下載檢查碼..' . "\n");
     
164. $ftp = Net::FTP->new("linux1", Debug => 0);
     
165. $ftp->login("anonymous",'anonymous@');
     
166. $ftp->binary();
     
167. $ftp->get('listsig',"c:\\gnupg\\listsig.txt");
     
168. $ftp->quit();
     
169. open IN,"< c:\\gnupg\\listsig.txt";
     
170. $linein = <IN>;
     
171. $con1->Write($linein);
     
172. close IN;
     
173. Win32::MsgBox("已經完成!\n您的電子鎖位於 c:\\gnupg 目錄內, 請小心保存.\n" .
     
174.     "您的公共鎖號碼為:" . $pkn . "\n請告知相關單位, 謝謝.\n檢查碼為:" . $linein .
     
175.     '請核對是否正確.' . "\n",0);
     
176. exit 0;
     
177. 
     
178. sub getpass
     
179. {
     
180. my ($pas);
     
181. 
     
182. $con1->Attr($FG_WHITE | $BG_WHITE);
     
183. $pas = <STDIN>;
     
184. $con1->Attr($attr);
     
185. $con1->Write("\n");
     
186. chomp($pas);
     
187. return $pas;
     
188. }
     
189. 
     
190. 转发此代码,请注明出处...Kevin
     
191. 
     

复制代码

河边星星

把.txt后缀去掉...

河边星星

1.了解gpg
加密和数字签名作为保护信息机密性、完整性和不可抵赖性
其中开放源代码库中最被认可的是GPG（GNU Privacy Guard)
GPG的密钥采用的是信任机制，默认下并没有一个中心的PKI
( PKI是“Public Key Infrastructure”的缩写)意为“公钥基础设施”,
为了防止公钥欺骗，保证公钥的不可否认性（Non-repudiation），
需要有一种机制来进行管理,来帮助发布和验证GPG用户的公钥。
所以查找到了pks(OpenPGP Public Key Server Commands)


1.了解 pks-0.9.6.tar.gz
第一步,下载pks 并安装 请自行下载如我的 pks-0.9.6.tar.gz
NAME
pksd - OpenPGP Public Key Server Daemon
如
tar -zxvf pks-0.9.6.tar.gz
./configure --prefix=/usr/local/
make
make install
/usr/local/pks-0.9.6/pksclient /usr/local/var/db create
nohup /usr/local/sbin/pksd /usr/local/etc/pksd.conf > /dev/null 2>&1 &
echo "nohup /usr/local/sbin/pksd /usr/local/etc/pksd.conf > /dev/null 2>&1 &" >> /etc/rc.d/rc.local

http://ipaddress:11371是可以访问安装就OK了.
它有两个作用
1.Extract a Key from the Server
2.Submit a Key to the Server
当然我们可以通过网页去查询到公钥,也可以发送给它.
不过因为gpg产生时我们用命令带变数故会用命令做查询和提交动作










我的目标是windows客户端通过网页上传文件等其它字段
让大家在网页上对其签名.公钥保存在linux server上.
更详细的请自行看README
[root@rhce pks-0.9.6]# netstat -an | grep 11371
tcp        0      0 0.0.0.0:11371               0.0.0.0:*                   LISTEN
tcp        0      0 192.168.7.223:11371         192.168.7.101:3821          TIME_WAIT
tcp        0      0 192.168.7.223:11371         192.168.7.101:3822          TIME_WAIT
lynx http://192.168.7.223:11371可见如下
OpenPGP Public Key Server Commands
Extract a Key from the Server
Submit a Key to the Server
...
...
即Ok
2.
有些動作我們是可以作成網頁要大家點擊的,但是我們先用手工?現.
其?我現在也還有點模糊,不過寫出?淼囊恍┣宄.因為已經有?施的案例了.哈哈
让windows客户端用gpg产生公钥...
          2.1請自行下載 gnupg-w32cli-1.2.1-1.zip
          2.2?姆掌饔胒tp方式去驗證簽名對照表和得到
          此表管理員去添加公鑰?K對其簽名.
       2.3gpg --gen-key 當然此過程也可以是由點擊網頁後開始運行的.
          2.4gpg --keyserver peter.riverstar.sir --send-keys 發送給pksd.
                此處用程式去做..具體稍候再補
3.
因為為了方便大家使用,不然技術不能運用到?際推?V那就是不好玩了
     我們要做一個簡單的網頁如
公告
新增公告內容,第幾號公告,日期時間.核准主管.上傳附件.    這幾個欄位..不夠自行進行補充.
為了便於今後變成pdf檔,和對其簽名.所以這些內容暫時?K沒有計?填入到mysql裏.而是會以
文件的形式存放在http服務的相應目錄




www_readonly 0
别忘记改etc/pksd.conf

否则--send-keys是不可以的.












有空接着具体点写

dancingpig

楼主写个电子签名是虾米东西？
我知道的是PKI体系里说到的电子签名。。。。。

BlazingBits

能不能画个流程图阿, 看起来方便.

redspider

楼主是台湾的么