《哈工大威海电子商务实验报告.doc》由会员分享，可在线阅读，更多相关《哈工大威海电子商务实验报告.doc（22页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、实验指导书班级：130420124姓名：杨平安实验报告的内容1 题目描述每个实验的内容是什么。2 需求分析、程序数据流与功能图用E-R图描述数据库的模式设计及每个关系模式的建立；描述数据字典及程序数据流与功能图；每个事件、函数或过程的头和规格说明；列出每个过程或函数所调用和被调用的过程或函数，也可以通过调用关系图表示。主要算法的框架。3 调试报告调试过程中遇到的主要问题是如何解决的；对设计和编码的回顾讨论和分析；改进设想；经验和体会等。4 源程序清单和结果源程序要加注释，要有测试数据及结果。实验1： 学习Vbscript语言 和ASP的ADO接口访问SQL SERVER2000的数据库（4学时
2、）本次实验的主要目的和内容：1熟悉VBScript在HTML中的应用2掌握ASP的ADO接口访问SQL SERVER2000数据库3应用ASP开发基于SQL SERVER数据库的留言本程序实 验 报 告 1代码Index.html登陆欢迎使用留言本ID:Password: 我是打酱油的游客 使劲点我注册jiancedenglu.aspd1=Request.Form(Name)d2=Request.Form(Password)Session(UserID) = d1Set Conn=Server.CreateObject(ADODB.Connection)Conn.opendsn_lwf,sa,
3、123456if conn.State = 1 thenResponse.Write 数据库连接成功！elseResponse.redirect(index.html)End ifSet rs=Server.CreateObject(ADODB.Recordset)rs.Open select * from dengluTable where UserID=&d1& and Password=&d2&,ConnSet rs1=Server.CreateObject(ADODB.Recordset)if rs.eof or rs.bof thenelsers1.Open select Sex,T
4、rueName from gerenziliaoTable where UserID=&d1&,connSession(UserSex) = rs1.fields(0)Session(UserName) = rs1.fields(1)end ifif rs.eof or rs.bof thenResponse.Write 用户名或密码错误，请重新登录！ Response.Write( )elseResponse.Write 用户登录成功！Response.Write( )end ifconn.Closejianceliuyan.aspcontent=Request.Form(liuyanquy
5、u)liuyanid=Session(liuyan_ID)Time_now=Now()response.write contentresponse.write liuyanidSet Conn=Server.CreateObject(ADODB.Connection)Conn.opendsn_lwf,sa,123456if conn.State = 1 thenResponse.Write 数据库连接成功！end ifif content=thenresponse.write您的留言内容为空，请填写内容后提交！Response.Write( )elsecontent=server.htmlen
6、code(content)content=replace(content,vbCrLf,)content=replace(content, , )content=replace(content,)Set rs=Server.CreateObject(ADODB.Recordset)rs.Open select * from liuyanTable,conn,1,3rs.AddNewrs(UserID)=liuyanidrs(MsgContent)=contentrs(Time)=Time_nowrs.updaters.closeset rs=nothingResponse.redir
7、ect(liuyanmianban.asp)end ifLiuyanmianban.asp留言本面板#customers font-family:Trebuchet MS, Arial, Helvetica, sans-serif; width:70%; border-collapse:collapse;#customers td, #customers th font-size:1em; border:1px solid #98bf21; padding:3px 7px 2px 7px;#customers th font-size:1.1em; text-align:left; paddi
8、ng-top:5px; padding-bottom:4px; background-color:#A7C942; color:#ffffff;#customers tr.alt td color:#000000; background-color:#EAF2D3;!-接下来显示表格中的内容-Set Conn=Server.CreateObject(ADODB.Connection)Conn.opendsn_lwf,sa,123456if conn.State = 1 thenResponse.Write 数据库连接成功！elseResponse.Write 数据库连接失败！End ifSet
9、 rs=Server.CreateObject(ADODB.Recordset)rs.Open select * from liuyanTable ,Conn,1,2id=Session(UserID)sex=Session(UserSex)name=Session(UserName)Session(liuyan_ID)=idResponse.Write idResponse.Write sexResponse.Write nameif sex= thensex_chenghu=游客elseif sex男 thensex_chenghu=女士else sex_chenghu=先生end ifR
10、esponse.write Response.write id &sex_chenghu &欢迎使用留言本Response.write Session(xingbie)=sex_chenghurs.pagesize = 5page=clng(request(page)if pagers.pagecount then page = rs.pagecountResponse.write()Response.write()Response.write()Response.write(姓名留言内容留言时间)ShowOnePage rs,pageResponse.write()if pa
11、ge1 thenresponse.write 第一页response.write response.write <上一页response.write end if if pagers.pagecount thenresponse.write 下一页>response.write response.write 最后一页response.write end if页数：/写下您的建议：Zhuce.asp注册欢迎进入新用户注册界面 新用户姓名:请设定密码: 您的性别是： 男
12、女真实姓名:年龄:实验2： 学习电子商务安全实验（4学时）本次实验的主要目的和内容：1掌握电子商务数据加密与数字签名技术，掌握上网下载PGP电子邮件软件加密技术思想，写出工作流程。2. 自己设计一种加密算法完成文本或图像数据的加、解密实验。 实 验 报 告 2#include stdio.h #include memory.h #include time.h #include stdlib.h #define PLAIN_FILE_OPEN_ERROR -1 #define KEY_FILE_OPEN_ERROR -2 #define CIPHER_FILE_OPEN_ERROR -3 #de
13、fine OK 1 typedef char ElemType; /初始置换表IP /该置换表用于DES加密过程第一步的初始置换 int IP_Table64 = 57,49,41,33,25,17,9,1, 59,51,43,35,27,19,11,3, 61,53,45,37,29,21,13,5, 63,55,47,39,31,23,15,7, 56,48,40,32,24,16,8,0, 58,50,42,34,26,18,10,2, 60,52,44,36,28,20,12,4, 62,54,46,38,30,22,14,6; /逆初始置换表IP-1 /该置换表用于DES加密过程的最
14、后一步逆初始置换int IP_1_Table64 = 39,7,47,15,55,23,63,31, 38,6,46,14,54,22,62,30, 37,5,45,13,53,21,61,29, 36,4,44,12,52,20,60,28, 35,3,43,11,51,19,59,27, 34,2,42,10,50,18,58,26, 33,1,41,9,49,17,57,25, 32,0,40,8,48,16,56,24; /扩充置换表E/用于在每轮的DES加密中将右32位扩展至48位 int E_Table48 = 31, 0, 1, 2, 3, 4, 3, 4, 5, 6, 7, 8
15、, 7, 8,9,10,11,12, 11,12,13,14,15,16, 15,16,17,18,19,20, 19,20,21,22,23,24, 23,24,25,26,27,28, 27,28,29,30,31, 0; /置换函数P/DES加密算法中的P盒，16轮的P盒都是一样的 int P_Table32 = 15,6,19,20,28,11,27,16, 0,14,22,25,4,17,30,9, 1,7,23,13,31,26,2,8, 18,12,29,5,21,10,3,24; /S盒 /DES加密算法中的S盒，每一轮都有自己对应的S盒，16轮加密总共对应着8个S盒int S
16、8416 =/S1 14,4,13,1,2,15,11,8,3,10,6,12,5,9,0,7, 0,15,7,4,14,2,13,1,10,6,12,11,9,5,3,8, 4,1,14,8,13,6,2,11,15,12,9,7,3,10,5,0, 15,12,8,2,4,9,1,7,5,11,3,14,10,0,6,13, /S2 15,1,8,14,6,11,3,4,9,7,2,13,12,0,5,10, 3,13,4,7,15,2,8,14,12,0,1,10,6,9,11,5, 0,14,7,11,10,4,13,1,5,8,12,6,9,3,2,15, 13,8,10,1,3,1
17、5,4,2,11,6,7,12,0,5,14,9, /S3 10,0,9,14,6,3,15,5,1,13,12,7,11,4,2,8, 13,7,0,9,3,4,6,10,2,8,5,14,12,11,15,1, 13,6,4,9,8,15,3,0,11,1,2,12,5,10,14,7, 1,10,13,0,6,9,8,7,4,15,14,3,11,5,2,12, /S4 7,13,14,3,0,6,9,10,1,2,8,5,11,12,4,15, 13,8,11,5,6,15,0,3,4,7,2,12,1,10,14,9, 10,6,9,0,12,11,7,13,15,1,3,14,5,
18、2,8,4, 3,15,0,6,10,1,13,8,9,4,5,11,12,7,2,14, /S5 2,12,4,1,7,10,11,6,8,5,3,15,13,0,14,9, 14,11,2,12,4,7,13,1,5,0,15,10,3,9,8,6, 4,2,1,11,10,13,7,8,15,9,12,5,6,3,0,14, 11,8,12,7,1,14,2,13,6,15,0,9,10,4,5,3, /S6 12,1,10,15,9,2,6,8,0,13,3,4,14,7,5,11, 10,15,4,2,7,12,9,5,6,1,13,14,0,11,3,8, 9,14,15,5,2,
19、8,12,3,7,0,4,10,1,13,11,6, 4,3,2,12,9,5,15,10,11,14,1,7,6,0,8,13, /S7 4,11,2,14,15,0,8,13,3,12,9,7,5,10,6,1, 13,0,11,7,4,9,1,10,14,3,5,12,2,15,8,6, 1,4,11,13,12,3,7,14,10,15,6,8,0,5,9,2, 6,11,13,8,1,4,10,7,9,5,0,15,14,2,3,12, /S8 13,2,8,4,6,15,11,1,10,9,3,14,5,0,12,7, 1,15,13,8,10,3,7,4,12,5,6,11,0,
20、14,9,2, 7,11,4,1,9,12,14,2,0,6,10,13,15,3,5,8, 2,1,14,7,4,10,8,13,15,12,9,0,3,5,6,11; /置换选择1/因为初始秘钥是64位的，而每一轮异或的子密钥都是48位的，故将会做相应的置换/此处用于子密钥的初始化，将64位秘钥变成56位/PC_1即为生成子密钥的初始化数组，其实就是一次置换int PC_156 = 56,48,40,32,24,16,8, 0,57,49,41,33,25,17, 9,1,58,50,42,34,26, 18,10,2,59,51,43,35, 62,54,46,38,30,22,14,
21、6,61,53,45,37,29,21, 13,5,60,52,44,36,28, 20,12,4,27,19,11,3; /置换选择2/每次循环左移后做一次PC_2置换，生成每一轮的子密钥int PC_248 = 13,16,10,23,0,4,2,27, 14,5,20,9,22,18,11,3, 25,7,15,6,26,19,12,1, 40,51,30,36,46,54,29,39, 50,44,32,46,43,48,38,55, 33,52,45,41,49,35,28,31; /对左移次数的规定/每生成一轮子密钥之前都要循环左移，此处是用于规定每轮对应左移的个数 int MOV
22、E_TIMES16 = 1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1; int ByteToBit(ElemType ch,ElemType bit8); int BitToByte(ElemType bit8,ElemType *ch); int Char8ToBit64(ElemType ch8,ElemType bit64); int Bit64ToChar8(ElemType bit64,ElemType ch8); int DES_MakeSubKeys(ElemType key64,ElemType subKeys1648); int DES_PC1_Transf
23、orm(ElemType key64, ElemType tempbts56); int DES_PC2_Transform(ElemType key56, ElemType tempbts48); int DES_ROL(ElemType data56, int time); int DES_IP_Transform(ElemType data64); int DES_IP_1_Transform(ElemType data64); int DES_E_Transform(ElemType data48); int DES_P_Transform(ElemType data32); int
24、DES_SBOX(ElemType data48); int DES_XOR(ElemType R48, ElemType L48,int count); int DES_Swap(ElemType left32,ElemType right32); int DES_EncryptBlock(ElemType plainBlock8, ElemType subKeys1648, ElemType cipherBlock8); int DES_DecryptBlock(ElemType cipherBlock8, ElemType subKeys1648, ElemType plainBlock
25、8); int DES_Encrypt(char *plainFile, char *keyStr,char *cipherFile); int DES_Decrypt(char *cipherFile, char *keyStr,char *plainFile); /字节转换成二进制/因为DES加密是对每一位进行加密，故必须将每个字节拆分成二进制位 int ByteToBit(ElemType ch, ElemType bit8) int cnt; for(cnt = 0;cnt cnt)&1; return 0; /二进制转换成字节/加密完成之后要对每一位进行合并，重新合并成字节才能用于数
26、据流的传输 int BitToByte(ElemType bit8,ElemType *ch) int cnt; for(cnt = 0;cnt 8; cnt+) *ch |= *(bit + cnt)cnt; return 0; /将长度为8的字符串转为二进制位串 int Char8ToBit64(ElemType ch8,ElemType bit64) int cnt; for(cnt = 0; cnt 8; cnt+) ByteToBit(*(ch+cnt),bit+(cnt3); return 0; /将二进制位串转为长度为8的字符串 int Bit64ToChar8(ElemType
27、 bit64,ElemType ch8) int cnt; memset(ch,0,8); for(cnt = 0; cnt 8; cnt+) BitToByte(bit+(cnt3),ch+cnt); return 0; /生成子密钥，共16轮生成16个子密钥 int DES_MakeSubKeys(ElemType key64,ElemType subKeys1648) ElemType temp56; int cnt; DES_PC1_Transform(key,temp);/PC1置换 for(cnt = 0; cnt 16; cnt+)/16轮跌代，产生16个子密钥 DES_ROL(
28、temp,MOVE_TIMEScnt);/循环左移 DES_PC2_Transform(temp,subKeyscnt);/PC2置换，产生子密钥 return 0; /密钥置换1 int DES_PC1_Transform(ElemType key64, ElemType tempbts56) int cnt; for(cnt = 0; cnt 56; cnt+) tempbtscnt = keyPC_1cnt; return 0; /密钥置换2 int DES_PC2_Transform(ElemType key56, ElemType tempbts48) int cnt; for(cn
29、t = 0; cnt 48; cnt+) tempbtscnt = keyPC_2cnt; return 0; /循环左移 int DES_ROL(ElemType data56, int time) ElemType temp56; /保存将要循环移动到右边的位 memcpy(temp,data,time); memcpy(temp+time,data+28,time); /前28位移动 memcpy(data,data+time,28-time); memcpy(data+28-time,temp,time); /后28位移动 memcpy(data+28,data+28+time,28-
30、time); memcpy(data+56-time,temp+time,time); return 0; /IP置换/转换完成后，将转换后的结果重新赋值给data int DES_IP_Transform(ElemType data64) int cnt; ElemType temp64; for(cnt = 0; cnt 64; cnt+) tempcnt = dataIP_Tablecnt; memcpy(data,temp,64); return 0; /IP逆置换/转换完成后，将转换后的结果重新赋值给data int DES_IP_1_Transform(ElemType data6
31、4) int cnt; ElemType temp64; for(cnt = 0; cnt 64; cnt+) tempcnt = dataIP_1_Tablecnt; memcpy(data,temp,64); return 0; /扩展置换/将右32位转换为48位，位 int DES_E_Transform(ElemType data48) int cnt; ElemType temp48; for(cnt = 0; cnt 48; cnt+) tempcnt = dataE_Tablecnt; memcpy(data,temp,48); return 0; /P置换/P盒的置换操作 int DES_P_Transform(ElemType data32) int cnt; ElemType temp32; for(cnt = 0; cnt 32; cnt+) tempcnt = dataP_Tablecnt; memcpy(data,temp,32); return 0; /异或 int DES_XOR(ElemType R48, ElemType L48 ,int count) int cnt; for(cnt = 0; cnt count; cnt+) Rcnt =