实验一 简单加密-解密方法
一、实验目的：
了解替代加密法、换位加密法、密钥加密法的基本原理和实现过程。
二、实验设备及软件环境
（一）实验设备
服务器、交换机和PC机组成NT网络。
（二）软件环境
1、服务器采用Microsioft Windows 2000 Server 操作系统；
2、学生客户端采用Windows 2000系统、IE5.0以上浏览器。
3、自制教学程序一组（在文件夹DZSWZY中，该文件夹可从指定的服务器中获取
三种加密方法对应的程序文件、数据文件的文件名见下表：
加密方法 加密程序文件名 解密程序文件名 数据文件名
替代加密法 JIAM1.PRG JIEM1.PRG 无
换位加密法 JIAM2.PRG JIEM2.PRG 无
密钥加密法 JIAM3.PRG JIEM3.PRG WJ.DBF，WJ.FPT
三、实验内容及步骤
1．实验准备工作
（1） 从网络服务器中获取文件夹DZSWZY并保存到D盘的根目录中；
（2） 启动VFP并设置默认存取路径（在命令窗口中输入SET DEFA TO D:\DZSWZY）；
2．运行加密解-密程序，观察程序运行结果
（3） 运行程序JIAM1，输入原文后回车，记下密文；
（4） 运行程序JIEM1，输入密文后回车，观察结果；
（5） 运行程序JIAM2，输入原文后回车，记下密文；
（6） 运行程序JIEM2，输入密文后回车，观察结果；
（7） 运行程序JIAM3，输入密钥（数字串），观察加密后的结果；
（8） 运行程序JIEM3，输入相同密钥（数字串），观察解密后的结果，并与加密前的原文比较。
（9） 改变输入数据，重复（3）-（8），分析不同输入情况下输出结果的变化，记下你的心得。
3．阅读分析程序，理解程序思想（选做）
（10） 仔细阅读下面的程序，理解程序思想。
***JIAM1.PRG**********
* 加密法一:替换加密 *
**********************
CLEAR
MM=SPACE(20)
@10,20 SAY "原文:" FONT "宋体",40 GET MM FONT "宋体",40
READ
@16,20 SAY "密文:"+JIEM(MM) FONT "宋体",40
WAIT
RETURN
********************************
PROC JIEM
PARA MM
PRIV I
MM1=TRIM(MM)
MM2=
FOR I=1 TO LEN(MM1)
MM2=MM2+CHR(ASC(SUBS(MM1,I,1))+I)
IF ASC((SUBS(MM1,I,1)))>175
I=I+1
MM2=MM2+CHR(ASC(SUBS(MM1,I,1)))
ENDIF
ENDFOR
RETURN MM2
***JIEM1.PRG***
* 解密法一 *
**************
CLEAR
MM=SPACE(20)
@10,20 SAY "密文:" FONT "宋体",40 GET MM FONT "宋体",40
READ
@16,20 SAY "原文:"+JIEM(MM) FONT "宋体",40
WAIT
RETURN
PROC JIEM
PARA MM
PRIV I
MM1=TRIM(MM)
MM2=
FOR I=1 TO LEN(MM1)
MM2=MM2+CHR(ASC(SUBS(MM1,I,1))-I)
IF ASC((SUBS(MM1,I,1)))-I>175
I=I+1
MM2=MM2+CHR(ASC(SUBS(MM1,I,1)))
ENDIF
ENDFOR
RETURN MM2 ***JIAM2.PRG**********
* 加密法二 :换位加密 *
**********************
CLEAR
MM=SPACE(20)
@10,20 SAY "原文:" FONT "宋体",40 GET MM FONT "宋体",40
READ
@16,20 SAY "密文:"+JIEM(MM) FONT "宋体",40
WAIT
RETURN
PROC JIEM
PARA MM
PRIV I
MM1=TRIM(MM)
MM2=
L=LEN(MM1)
FOR I=1 TO L
K=IIF(MOD(L,2)=0,L,L-1)
J=IIF(2*I<=L,2*I,IIF(MOD(L,2)<>0 AND I=L,I,MOD(2*I-1,K)))
MM2=MM2+SUBS(MM1,J,1)
ENDFOR
RETURN MM2
***JIEM2.PRG**********
* 解密法二 :换位法 *
**********************
CLEAR
MM=SPACE(20)
@10,20 SAY "密文:" FONT "宋体",40 GET MM FONT "宋体",40
READ
@16,20 SAY "原文:"+JIEM(MM) FONT "宋体",40
WAIT
RETURN
PROC JIEM
PARA MM
PRIV I
MM1=TRIM(MM)
MM2=
L=LEN(MM1)
FOR I=1 TO L
J=IIF(MOD(I,2)=0,I/2,IIF(I=L,I,ROUN((L+I)/2,0)))
MM2=MM2+SUBS(MM1,J,1)
ENDFOR
RETURN MM2
***JIAM3.PRG***
* 对称加密之加密程序 *
**************
SET TALK OFF
clear
my=space(8)
USE WJ
MM1=TRIM(MM)
@10,20 say "原文:" font "宋体",18
@12,24 say " "+MM1 font "宋体",18
@16,20 say "请输入加密密钥:" font "宋体",18 get MY font "宋体",18
read
L1=LEN(MM1)
MY=TRIM(MY)
L2=LEN(MY)
MM2=""
FOR I=1 TO INT(L1/L2)
CC=SUBS(MM1,(I-1)*L2+1,L2)
FOR J=1 TO L2
MM2=MM2+CHR(ASC(SUBS(CC,J,1))+ASC(SUBS(MY,J,1)))
ENDFOR
ENDFOR
L2=LEN(MM1)-LEN(MM2)
CC=RIGHT(MM1,L2)
FOR J=1 TO L2
MM2=MM2+CHR(ASC(SUBS(CC,J,1))+ASC(SUBS(MY,J,1)))
ENDFOR
REPL MM WITH MM2
@18,20 say "密文:" font "宋体",18
@20,24 say " "+MM2 font "宋体",18
wait
USE
SET TALK ON
RETURN
***JIAM3.PRG***
* 对称加密之加密程序 *
**************
SET TALK OFF
clear
my=space(8)
USE WJ
MM1=MM
@10,20 say "密文:" font "宋体",18
@12,24 say " "+MM1 font "宋体",18
@16,20 say "请输入解密密钥:" font "宋体",18 get MY font "宋体",18
read
L1=LEN(MM1)
MY=TRIM(MY)
L2=LEN(MY)
MM2=""
FOR I=1 TO INT(L1/L2)
CC=SUBS(MM1,(I-1)*L2+1,L2)
FOR J=1 TO L2
MM2=MM2+CHR(ASC(SUBS(CC,J,1))-ASC(SUBS(MY,J,1)))
ENDFOR
ENDFOR
L2=LEN(MM1)-LEN(MM2)
CC=RIGHT(MM1,L2)
FOR J=1 TO L2
MM2=MM2+CHR(ASC(SUBS(CC,J,1))-ASC(SUBS(MY,J,1)))
ENDFOR
REPL MM WITH MM2
@18,20 say "原文:" font "宋体",18
@20,24 say " "+MM2 font "宋体",18
wait
USE
SET TALK ON
四、实验要求
认真进行实验操作，做好实验记录，写出实验报告。
报告的内容包括：操作过程、程序分析与说明、主要收获和体会、疑难问题等。
实验二 网络广告与电子商务网站
一、实验目的：
1、通过浏览、观摩网络广告和电子商务网站，
2、了解网络广告的主要形式和典型电子商务网站的基本功能。
二、实验设备及软件环境
（一）实验设备
服务器、交换机和PC机组成NT网络。
（二）软件环境
1、服务器采用Microsioft Windows 2000 Server 操作系统；
2、学生客户端采用Windows 2000系统、IE5.0以上浏览器。
三、实验步骤1．观摩网络广告，了解网络广告的主要形式； 弹出广告、声音广告、定向广告、全流量广告、横幅广告、按钮广告
文字链接、网上直播、互动广告、视频广告、通栏广告、擎天柱广告、流媒体按钮、流媒体移动图标等。
2．浏览电子商务、电子政务网站、网络金融网站，了解其主页形式和主要功能。四、实验要求广泛浏览，重点观摩，做好记录，选择一到两个典型网站写出评析报告，内容包括网页形式（界面）、网站内容（主要功能）和特点等。
实验三 网上购物（可选项目）
一、实验目的：
通过上网购物，了解其基本过程以及应注意的问题。
二、实验设备及软件环境
（一）实验设备
服务器、交换机和PC机组成NT网络。
（二）软件环境
1、服务器采用Microsioft Windows 2000 Server 操作系统；
2、学生客户端采用Windows 2000系统、IE5.0以上浏览器。
三、实验步骤1．上网逛一逛电子市场，选一件小商品下单。
2．选择支付方式付款，如支付宝支付方式。
3、登录www..zon100.com武汉中百网查看真实购物流程，将武汉中百网的购物流程用框图或表格的形式表示出来，记
入实验结果。
4、探讨网上购物过程中应注意的问题。
5、写出购物心得体会。
四、实验要求亲自感受网络购物过程，认真总结网络购物经验，写出网络购物心得体会。
