用Delphi设计网络监视器实现计算机监考

·２２·ＣｏｍｐｕｔｅｒＥｒａＮｏ．７２００４
用Ｄｅｌｐｈｉ设计网络监视器实现计算机监考
胡开明
（广东松山职业技术学院，广东韶关５１２１２６）
摘要：本文介绍用Ｄｅｌｐｈｉ设计网络监视器实现计算机监考的设计思想，文中给出了实现方法和部分原代码。

关键词：Ｄｅｌｐｈｉ；ＡＰＩ函数；网络监视器；网络资源；句柄
在计算机机房进行监考，学生可以利用网络相互拷贝，且监考教师难以发现。

为有效地防止学生利用网络作弊，可以利用Ｄｅｌｐｈｉ设计网络监视器，实现计算机监考。

１设计思路
在Ｄｅｌｐｈｉ程序中，通过ＡＰＩ函数可列举出局域网上指定工作组中的所有计算机名称，对每一台计算机列举共享资源，可以达到利用计算机监考的目的。

下面以Ｗｉｎ９８的对等网络为例，列举“网络邻居”中指定工作组中的用户计算机名称及每台计算机的共享资源，设计网络监视器，实现计算机监考。

２设计步骤
２．１列举“网络邻居”中的工作组中的所有计算机名称在“网络邻居”中，打开“整个网络”，再打开本工作组，可以看到网络中本工作组中所有计算机的名称。

在Ｄｅｌｐｈｉ程序中，可以用ＡＰＩ函数ＷｎｅｔＯｐｅｎＥｎｕｍ和ＷｎｅｔＥｎｕｍＲｅｓｏｕｒｃｅ来列举“网络邻居”本工作组中所有计算机的名称。

ＭｉｃｒｏＳｏｆｔ提供了以下几个ＡＰＩ函数：ＷｎｅｔＯｐｅｎＥｎｕｍ、ＷｎｅｔＥｎｕｍＲｅｓｏｕｒｃｅ、ＷＮｅｔＣｌｏｓｅＥｎｕｍ及一个网络资源数据结构类型ＮＥＴＲＥＳＯＵＲＣＥ，用于搜索局域网上的网络资源。

其中ＮＥＴＲＥＳＯＵＲＣＥ的定义如下：
ｔｙｐｅｄｅｆｓｔｒｕｃｔ—ＮＥＴＲＥＳＯＵＲＣＥ｛
ＤＷＯＲＤｄｗＳｃｏｐｅ；
ＤＷＯＲＤｄｗＴｙｐｅ；
ＤＷＯＲＤｄｗＤｉｓｐｌａｙＴｙｐｅ；
ＤＷＯＲＤｄｗＵｓａｇｅ；
ＬＰＴＳＴＲＩｐＬｏｃａｌＮａｍｅ；
ＬＰＴＳＴＲＩｐＲｅｍｏｔｅＮａｍｅ；
ＬＰＴＳＴＲＩｐＣｏｍｍｅｎｔ；
ＬＰＴＳＴＲＩｐＰｒｏｖｉｄｅｒ；
）ＮＥＴＲＥＳＯＵＲＣＥ：
ＷＮｅｔＯｐｅｎＥｎｕｍ函数用于获取一个网络资源句柄，可用它的一些返回值进而列举出所有网络资源。

函数原形如下：ＤＷＯＲＤＷｎｅｔＯｐｅｎＥｎｕｍ（ＤＷＯＲＤｄｗＳｃｏｐｅ，ＤＷＯＲＤｄｗＴｙｐｅ，ＤＷＯＲＤｄｗＵｓａｇｅ，
ＬＰＮＥＴＲＥＳＯＵＲＣＥＩｐＮｅｔＲｅｓＯｕｒｃｅ，
ＬＰＨＡＮＤＬＥＩｐｈＥｎｕｍ）：
参数说明：ｄｗＳｃｏｐｅ，ｄｗＴｙｐｅ，ｄｗＵｓａｇｅ与网络资源数据结构中对应的域的取值范围相同，只是ｄｗＵｓａｇｅ多了一个可取值０，表明要列举任何用途的资源，并当ｄｗＳｃｏｐｅ参数的值不是ＲＥＳＯＵＲＣＥ＿ＧＬＯＢＡＬＮＥＴ时，ｄｗＵｓａｇｅ参数被忽略，这三个参数共同决定要列举的资源范围。

ＬｐＮｅｔＲｅｓｏｕｒｃｅ是指向结构ＮＥＴＲＥＳＯＵＲＣＥ的指针，如果此参数是一个空指针，函数就从网络的最高层逐层搜索符合条件的网络资源，如果参数ｄｗＳ－ｃｏｐｅ不是ＲＥＳＯＵＲＣＥ＿ＧＬＯＢＡＬＮＥＴ，此参数必须为空指针。

参数ｌｐｈＥｎｕｍ用来保存指向此函数返回的一个句柄的指针，保留给ＷｎｅｔＥｎｕｍＲｅｓｏｕｒｃｅ用来完成整个列举过程。

如果函数调用成功，返回值是ＮＯ＿ＥＲＲＯＲ，否则调用ＧｅｔＬａｓｔＥｒｒｏｒ函数获取错误代号，作进一步处理。

ＷｎｅｔＥｎｕｍＲｅｓｏｕｒｃｅ函数该函数功能是在ＷＮｅｔＯｐｅ－ｎＥｎｕｍ的基础上，利用它的返回值，罗列出所有符合条件的Ｉｊｃ）４络资源，函数原形如下：
ＤＷＯＲＤＷｎｅｔＥｎｕｍＲｅｓｏｕｒｃｅ（ＨＡＮＤＬＥｈＥｎｕｍ，ＬＰＤＷＯＲＤＩｐｃＣｏｕｎｔ，ＬＰＶＯＩＤＩｐＢｕｆｆｅｒ，ＬＰＤＷＯＲＤＩｐＢｕｆｆｅｒＳｉｚｅ）；
参数说明：参数ｈＥｎｕｍ是由ＷｎｅｔＯｐｅｎＥｎｕｍ返回的句柄；ｌｐｃＣｏｕｎｔ是指向一个整数的指针，该整数指明要求返回的资源项数，当此函数成功返回时，该整数值就是实际上返回的项数；参数ｌｐＢｕｆｆｅｒ是指向一个缓冲区的指针，该缓冲区包含一个ＮＥＴＲＥＳＯＵＲＣＥ类型的数组，也就是所返回的资源数据。

Ｌｐ－ＢｕｆｆｅｒＳｉｚｅ指明要存放结果的缓冲区的大小。

该函数成功返回分两种情况，如果列举成功，返回值是ＮＯ—ＥＲＲＯＲ，缓冲区中包含着请求的数据，调用函数的程序能继续调用ＷｎｅｔＥｎｕｍ－Ｒｅｓｏｕｒｃｅ以完成整个列举过程；如果返回值是ＥＲ－ＲＯＲ—ＮＯ—ＭＯＲＥ—ＩＴＥＭＳ，表明整个列举已经完成，没有其它资源了；如果返回不是以上两个值，则表明列举过程出错。

ＷｎｅｔＣｌｏｓｅＥｎｕｍ函数该函数用来关闭一个列举过程，函数原形如下：
ＤＷＯＲＤＷｎｅｔＣＩｏｓｅＥｎｕｍ（ＨＡＮＤＬＥｈＥｎｕｍ）：
参数ｈＥｎｕｍ是由ＷｎｅｔＯｐｅｎＥｎｕｍ返回的句柄。

在ＷＮｅｔＯｐｅｎＥｎｕｍ函数中，将参数ｌｐＮｅｔＲｅｓｏｕｒｃｅ中的ｌｐＲｅｍｏｔｅＮａｍｅ部分指定为一个工作组的名称（如“微机三室”），可以获取一个句柄，在ＷＮｅｔＥｎｕｍＲｅｓｏｕｒｃｅ中利用这个句柄，可以获取一个ＮｅｔＲｅｓｏｕｒｃｅ类型的数组，每个ＮｅｔＲｅ－ｓｏｕｒｃｅ元素的ｌｐＲｅｍｏｔｅＮａｍｅ部分即为一个计算机名称（如”＼＼ｊｓｊ２６”）。

其代码如下：
ＦｕｎｃｔｉｏｎＧｅｔＵｓｅｒｓ（ＧｒｏｕｐＮａｍｅ：ｓｔｒｉｎｇ；ｖａｒＬｉｓｔ：ＴＬｉｓｔＢｏｘ）：Ｂｏｏｌｅａｎ；
ｔｙｐｅ
　万方数据
计算机时代２００４年第７期·２３·
ＴＮｅｔＲｅｓｏｕｒｃｅＡｒｒａｙ＝＾ＴＮｅｔＲｅｓｏｕｒｃｅ；／／网络类型的数组
Ｖａｒ
ＮｅｔＲｅｓｏｕｒｃｅ：ＴＮｅｔＲｅｓｏｕｒｃｅ；
Ｂｕｆ：Ｐｏｉｎｔｅｒ；
Ｃｏｕｎｔ，ＢｕｆＳｉｚｅ，Ｒｅｓ：ＤＷｏｒｄ；
Ｉｎｄ：Ｉｎｔｅｇｅｒ；
ＩｐｈＥｎｕｍ：ＴＨａｎｄｌｅ；
Ｔｅｍｐ：ＴＮｅｔＲｅｓｏｕｒｃｅＡｒｒａｙ；
Ｂｅｇｉｎ
Ｒｅｓｕｌｔ：＝Ｆａｌｓｅ；
Ｌｉｓｔ．Ｃｌｅａｒ；
ＦｉｌｌＣｈａｒ（ＮｅｔＲｅｓｏｕｒｃｅ，ＳｉｚｅＯｆ（ＮｅｔＲｅｓｏｕｒｃｅ），０）：
／／初始化网络层次信息
ＮｅｔＲｅｓｏｕｒｃｅ．ＩｐＲｅｍｏｔｅＮａｍｅ：＝＠ＧｒｏｕｐＮａｍｅ［１］；
／，指定工作组名称
ＮｅｔＲｅｓｏｕｒｃｅ．ｄｗＤｉｓｐｌａｙＴｙｐｅ：＝
ＲＥＳＯＵＲＣＥＤＩＳＰＬＡＹＴＹＰＥ＿ｓＥＲＶＥＲ；
ＮｅｔＲｅｓｏｕｒｃｅ．ｄｗＵｓａｇｅ：＝ＲＥＳＯＵＲＣＥＵＳＡＧＥ—ＣＯＮＴＡＩＮＥＲＮｅｔＲｅｓｏｕｒｃｅ．ｄｗＳｃｏｐｅ：＝ＲＥＳＯＵＲＣＥＴＹＰＥ—ＤＩＳＫ；
／／列举文件资源信息
／／获取指定工作组的网络资源句柄
Ｒｅｓ：＝ＷＮｅｔＯｐｅｎＥｎｕｍ（ＲＥＳＯＵＲＣＥ—ＧＬＯＢＡＬＮＥＴ，ＲＥＳＯＵＲＣＥＴＹＰＥ—ＤＩＳＫ，
ＲＥＳＯＵＲＣＥＵＳＡＧＥ—ＣＯＮＴＡＩＮＥＲ，＠ＮｅｔＲｅｓｏｕｒｃｅ，
ＩｐｈＥｎｕｍ）：
ＩｆＲｅｓ＜＞ＮＯ—ＥＲＲＯＲＴｈｅｎＥｘｉｔ；／／执行失败
ＷｈｉｌｅＴｒｕｅＤｏ，，列举指定工作组的网络资源
Ｂｅｇｉｎ
Ｃｏｕｎｔ：＝￥ＦＦＦＦＦＦＦＦ；／／不限资源数目
ＢｕｆＳｉｚｅ：＝８１９２；ＩＩ缓冲区大小设置为８Ｋ
ＧｅｔＭｅｍ（Ｂｕｆ，ＢｕｆＳｉｚｅ）；
／，申请内存，用于获取工作组信息
，／获取计算机名称
Ｒｅｓ：＝ＷＮｅｔＥｎｕｍＲｅｓｏｕｒｃｅ（ＩｐｈＥｎｕｍ，Ｃｏｕｎｔ，
Ｐｏｉｎｔｅｒ（Ｂｕｆ），ＢｕｆＳｉｚｅ）；
ＩｆＲｅｓ＝ＥＲＲＯＲ—ＮＯ—ＭＯＲＥ—ＩＴＥＭＳＴｈｅｎｂｒｅａｋ；
｜ｆ资源烈举完率
Ｉｆ（Ｒｅｓ＜＞ＮＯ—ＥＲＲＯＲ）ｔｈｅｎＥｘｉｔ；／／执行失败
Ｔｅｍｐ：＝ＴＮｅｔＲｅｓｏｕｒｃｅＡｒｒａｙ（Ｂｕｆ）；
ＦｏｒＩｎｄ：＝０ｔｏＣｏｕｎｔ一１ｄｏ／／列举工作组的计算机名称Ｂｅｇｉｎ
／／获取工作组的计算机名称，＋２表示删除”＼（￥％￥４３％
＾＃ＡＳＤ＃２＠￥斯￥％“），
Ｌｉｓｔ．Ｉｔｅｍｓ．Ａｄｄ（Ｔｅｍｐ＾．ＩｐＲｅｍｏｔｅＮａｍｅ＋２）：
Ｉｎｃ（Ｔｅｍｐ）；
Ｅｎｄ；
Ｅｎｄ；
Ｒｅｓ：＝ＷＮｅｔＣＩｏｓｅＥｎｕｍ（ＩｐｈＥｎｕｍ）；／／关闭一次列举
ＩｆＲｅｓ＜＞ＮＯ—ＥＲＲＯＲＴｈｅｎｅｘｉｔ；／／执行失败
Ｒｅｓｕｌｔ：＝Ｔｒｕｅ；
ＦｒｅｅＭｅｍ（Ｂｕｆ）；
Ｅｎｄ：
并通过如下语句，调用上面的函数，将本工作组所有已连接的计算机名称例举在一个ｌｉｓｔｂｏｘ框中。

代码如下：ｐｒｏｃｅｄｕｒｅＴＦｏｒｍｌ．ＢｕｔｔｏｎｌＣｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｄ）：
ｂｅｇｉｎ
ｉｆｅｄｉｔｌ．Ｔｅｘｔ＝”ｔｈｅｎ
ｓｈｏｗｍｅｓｓａｇｅ（。

请输入工作组名’）
ｅｌｓｅｉｆｎｏｔＧｅｔＵｓｅｒｓ（ｅｄ．１１．ｔｅｘｔ，ｌｉｓｔｂｏｘｌ）ｔｈｅｎ
ｌｉｓｔｂｏｘｌｉｔｅｍｓ．ａｄｄ（’此工作组中无已连接的计算机’）ｅｎｄ；
以下要对列举出的每台机器搜索出所有共享资源。

２．２列举计算机中的共享资源
在ＷＮｅｔＯｐｅｎＥｎｕｍ函数中，将参数ｌｐＮｅｔＲｅｓｏｕｒｃｅ中的ｌｐＲｅｍｏｔｅＮａｍｅ指定为一个计算机名称（如”＼＼ｊｓｊ２６”），可以获取一个句柄，在ＷＮｅｔＥｎｕｍＲｅｓｏｕｒｃｅ中利用这个句柄，获取一个ＮｅｔＲｅｓｏｕｒｃｅ类型的数组，每个ＮｅｔＲｅｓｏｕｒｃｅ元素的ｌｐＲｅｍｏｍ—Ｎａｍｅ即为计算机中的共享资源名称（可以是共享目录、文件名称和共享打印机名称等，如“＼＼ｊｓｊ２６＼共享文件”）。

代码如下：ＦｕｎｃｔｉｏｎＧｅｔＵｓｅｒＲｅｓｏｕｒｃｅ（ＵｓｅｒＮａｍｅ：ｓｔｒｉｎｇ：ｖａｒＬｉｓｔ：ＴＬｉｓｔＢｏｘ）：Ｂｏｏｌｅａｎ；
ｔｙｐｅ
ＴＮｅｔＲｅｓｏｕｒｃｅＡｒｒａｙ＝“ＴＮｅｔＲｅｓｏｕｒｃｅ；ＩＩ网络类型的数组Ｖａｒ
ＮｅｔＲｅｓＯｕｒｃｅ：ＴＮｅｔＲｅｓｏｕｒｃｅ；
Ｂｕｆ：Ｐｏｉｎｔｅｒ；
Ｃｏｕｎｔ，ＢｕｆＳｉｚｅ，Ｒｅｓ：ＤＷｏｒｄ；
Ｉｎｄ：Ｉｎｔｅｇｅｒ；
ＩｐｈＥｎｕｍ：ＴＨａｎｄｌｅ；
Ｔｅｍｐ：ＴＮｅｔＲｅｓｏｕｒｃｅＡｒｒａｙ；
Ｂｅｇｉｎ
Ｒｅｓｕｌｔ：＝Ｆａｌｓｅ；
Ｌｉｓｔ．Ｃｌｅａｒ；
ＦｉｌｌＣｈａｒ（ＮｅｔＲｅｓｏｕｒｃｅ，ＳｊＺｅＯｆ（ＮｅｔＲｅｓｏｕｒｃｅ），０）；
／／初始化网络层次信息
ＮｅｔＲｅｓｏｕｒｃｅ．ＩｐＲｅｍｏｔｅＮａｍｅ：＝＠ＵｓｅｒＮａｍｅ［１］；
，，指定计算机名称
／／获取指定计算机的网络资源句柄
Ｒｅｓ：＝ＷＮｅｔＯｐｅｎＥｎｕｍ（ＲＥＳＯＵＲＣＥ—ＧＬＯＢＡＬＮＥＴ，ＲＥＳＯＵＲＣＥＴＹＰＥ＿ＡＮＹ，
ＲＥＳＯＵＲＣＥＵＳＡＧＥ—ＣＯＮＮＥＣＴＡＢＬＥ，＠ＮｅｔＲｅｓｏｕｒｃｅ，
ＩｐｈＥｎｕｍ）；
ＩｆＲｅｓ＜＞ＮＯ—ＥＲＲＯＲＴｈｅｎｅｘｉｔ；／／执行失败
ＷｈｉｌｅＴｒｕｅＤｏ／／列举指定工作组的网络资源
Ｂｅｇｉｎ
Ｃｏｕｎｔ：＝￥ＦＦＦＦＦＦＦＦ；／／不限资源数目
ＢｕｆＳｉｚｅ：＝８１９２；／／缓冲区大小设置为８Ｋ
ＧｅｔＭｅｍ（Ｂｕｆ，ＢｕｆＳｉｚｅ）；／／申请内存，用于获取工作组信息
／／获取指定计算机的网络资源名称
Ｒｅｓ：２ＷＮｅｔＥｎｕｍＲｅｓｏｕｒｃｅ（ＩｐｈＥｎｕｍ，Ｃｏｕｎｔ，
Ｐｏｉｎｔｅｒ（Ｂｕｆ），ＢｕｆＳｉｚｅ）；
　万方数据
·２４·ＣｏｍｐｕｔｅｒＥｒａＮｏ．７２００４
ＩｆＲｅｓＥＲＲＯＲ－Ｎｏ＿ＭＯＲＥ—ｎＥＭｓｈｅｎｂｒｅａｋ；
，，资源列举完毕
Ｉｆ（ＩＲｅｓ＜＞ＮＯ－＿ＥＲＲＯＲ）ｔｈｅｎＥｘｉｔ；／／＇执行失败
Ｔｅｍｐ：＝ＴＮｅｔＲｅｓｏｕｒｃｅＡｒｒａｙ（Ｂｕｆ）：
ＦｏｒＩｎｄ：＝０ｔｏＣｏｕｎｔ－１ｄｏ
Ｂｅｇｉｎ
／／获取指定计算机中的共享资源名称，＋２表示删除”、（￥％￥４３％“社ＡＳＤ＃２＠￥坩￥％“），
Ｌｉｓｔ．Ｉｔｅｍｓ．Ａｄｄ（Ｔｅｍｐ＾．ＩｐｉＲｅｍｏｔｅＮａｍｅ＋２）：
Ｉｎｃ（Ｔｅｍｐ）；
Ｅｎｄ；
Ｅｎｄ；
Ｒｅｓ：＝ＷＮｅｔＣＩｏｓｅＥｎｕｍ（ＩｐｈＥｎｕｍ）；／／关闭一次列举
ＩｆＲｅｓ＜＞ＮＯ—ＥＲＲＯＲＴｈｅｎｅｘｉｔ；／／执行失败
Ｒｅｓｕｌｔ：＝Ｔｒｕｅ；
ＦｒｅｅＭｅｍ（Ｂｕｆ）；
Ｅｎｄ；
使用如下语句，调用上面的函数，可以将本工作组中已连接的每一台机器的共享资源全部列举出来。

ｐｒｏｃｅｄｕｒｅＴＦｏｒｍｌ．Ｂｕｔｔｏｎ２Ｃ¨ｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｉ：ｉｎｔｅｇｅｒ；
ｂｅｇｉｎ
ｉｆｎｏｔＧｅｔＵｓｅｒｓ（ｅｄｉｔｌ．ｔｅｘｔ，ｌｉｓｔｂｏｘｌ）ｔｈｅｎ
（上接第１９页）
ｐｒｉｖａｔｅｓｔａｔｉｃｖｏｉｄｅｎｃｒｙｐｔ（ｃｈａｒ［］ｐａｓｓｗｏｒｄ，ＳｔｒｉｎｇｉｎＦｉｌｅ，ＳｔｒｉｎｇｏｕｔＦｉｌｅ）ｔｈｒｏｗｓＥｘｃｅｐｔｉｏｎ（
／，将明文加密成密文
Ｋｅｙｋｅｙ＝ＩｏａｄＫｅｙ（ｐａｓｓｗｏｒｄ）；
Ｃｉｐｈｅｒｃｉｐｈｅｒ＝
Ｃｉｐｈｅｒ．ｇｅｔｌｎｓｔａｎｃｅ（”ＡＥＳ／ＥＣＢ，ＰＫＣＳ５Ｐａｄｄｉｎｇ”）：
ｃｉｐｈｅｒ．ｉｎｉｔ（Ｃｉｐｈｅｒ．ＥＮＣＲＹＰＴ＿ＭＯＤＥ，ｋｅｙ）；／／加密模式
Ｆ¨ｅｌｎＤｕｔＳｔｒｅａｍｆｉｓ＝ｎｅｗＦｉｌｅｌｎｐｕｔＳｔｒｅａｍ（ｉｎＦｉｌｅ）；
ＦｉｌｅＯｕｔｐｕｔＳｔｒｅａｍｆｏｓ＝ｎｅｗＦｉｌｅＯｕｔｐｕｔＳｔｒｅａｍ（ｏｕｔＦｉｌｅ）；
ＣｉｐｈｅｒＯｕｔｐｕｔＳｔｒｅａｍＣＯＳ
ｎｅｗＣｉｐｈｅｒＯｕｔｐｕｔＳｔｒｅａｍ（ｆｏｓ，ｃｉｐｈｅｒ）；／／加密的输出流ｉｎｔｔｈｅＢｙｔｅ＝０：
ｗｈｉｌｅ（（ｔｈｅＢｙｔｅ＝ｎｓｒｅａｄ（））！＝一１）｛
ＣＯＳ．ｗｒｉｔｅ（ｔｈｅＢｙｔｅ）；
）
ｆｉｓ．ｃｌｏｓｅ（）；
ＣＯＳ．ｃｌｏｓｅ（）；
）
ｐｒｉｖａｔｅｓｔａｔｉｃｖｏｉｄｄｅｃｒｙｐｔ（ｃｈａｒ［］ｐａｓｓｗｏｒｄ，ＳｔｒｉｎｇｉｎＦｉｌｅ，ＳｔｒｉｎｇｏｕｔＦｉｌｅ）ｔｈｒｏｗｓＥｘｃｅｐｔｉｏｎ｛
／／将密文解密成明文
Ｋｅｙｋｅｙ＝ＩｏａｄＫｅｙ（ｐａｓｓｗｏｒｄ）；
Ｃｉｐｈｅｒｃｉｐｈｅｒ＝
Ｃｉｐｈｅｒ．ｇｅｔｌｎｓｔａｎｃｅ（”ＡＥＳ，ＥＣＢ，ＰＫＣＳ５Ｐａｄｄｉｎｇ”）：
ｂｅｇｉｎ
ｉｉｓｔｂｏｘ２．Ｃｌｅａｒ；
ｌｉｓｔｂｏｘｌ．ｉｔｅｍｓ．ａｄｄ（’此工作组中无计算机’）：
ｅｎｄ
ｅｌｓｅｂｅｇｉｎ
ｌｉｓｔｂｏｘ２．Ｃｌｅａｒ；
ｆｏｒ｝：＝０ｔｏｌｉｓｔｂｏｘｌ．Ｃｏｕｎｔ．１ｄＯ
ＧｅｔＵｓｅｒＲｅｓｏｕｒｃｅ（。

＼＼＇＋ｌｉｓｔｂｏｘｌ．Ｉｔｅｍｓ［ｉ］，ｌｉｓｔｂｏｘ２）
ｅｎｄ；
ｉｆｌｉｓｔｂｏｘ２．Ｉｔｅｍｓ．Ｔｅｘｔ＝”ｔｈｅｎ
ｌｉｓｔｂｏｘ２．Ｉｔｅｍｓ．Ａｄｄ（’此工作组的所有计算机无共享！’）ｅｎｄ；
３结束语
将本工作组中的所有计算机的所有共享资源全部列举在ｌｉｓｔｂｏｘ２框中，通过ｌｉｓｔｂｏｘ２中列举出的机器共享目录或文件，监考教师可以有效地防止学生利用网络共享，相互拷贝作弊，实现利用计算机监考的目的。

参考文献：
［１】汤庸．Ｄｅｌｐｈｉ编程范例与元件库参考．海潮出版社，１９９９．
［２】新智工作室Ｄｅｌｐｈｉ基础与提高．电子工业出版社，１９９９
【３】ｈｔｔｐ：／／ｗｗｗ．ｊｓｊ９２．ｃｏｍ／ｃｘｇ／ｄｅｌｐｈｉ／ｎｅｔ／ｎｅｔ２．ｈｔｍｌ．２００３．１０．
【４】ｈｔｔｐ：／／ｗｗｗ．ｐｉｅｃｕｓｔ．ｊｓ０１．ｎｅｔ／ｊｉｎｊｏｈｎ／ｐｒｏｇｒａｍ／ｄｅｌｐｈｉ／ｗｔｊ／ｎｅｔｗｏｒｋ／ｎｅｔ０００９．ｈｔｍ．２００３．１１．鞠
ｃｉｐｈｅｒ．ｉｎｉｔ（Ｃｉｐｈｅｒ．ＤＥＣＲＹＰＴ＿ＭＯＤＥ，ｋｅｙ）；／／解密模式
ＦｉｌｅｌｎｐｕｔＳｔｒｅａｍｆｉｓ＝ｎｅｗＦｉｌｅｌｎｐｕｔＳｔｒｅａｍ（ｉｎＦｉｌｅ）；
ＦｉｌｅＯｕｔｐｕｔＳｔｒｅａｍｌｏｓ＝ｎｅｗＦｉｌｅＯｕｔｐｕｔＳｔｒｅａｍ（ｏｕｔＦｉｌｅ）；
ＣｉｐｈｅｒｌｎｐｕｔＳｔｒｅａｍｃｉｓ＝
ｎｅｗＣｉｐｈｅｒｌｎｐｕｔＳｔｒｅａｍ（ｆｉｓ，ｃｉｐｈｅｒ）；
／／加密的输入流
ｉｎｔｔｈｅＢｙｔｅ＝０：
ｗｈｉｌｅ（（ｔｈｅＢｙｔｅ＝ｃｉｓ．ｒｅａｄ（））Ｉ－－１）（
ｆｏｓ．ｗｒｉｔｅ（ｔｈｅＢｙｔｅ）；
）
ｃｉｓ．ｃｌｏｓｅ（）；
ｌｏｓ．ｃｌｏｓｅ（）；
）
）
６结束语
对称加密的密钥本身也要秘密保存，因为加密和解密都使用相同的密钥。

做好这个工作是非常困难的。

基于口令的加密在一定程度上解决了这个问题。

更好的方法是采用非对称密钥加密。

参考文献：
［１】ＪｅｓｓＧａｒｍｓ等著．ＰｒｏｆｅｓｓｉｏｎａｌＪａｖａＳｅｃｕｒｉｔｙ．ＷｒｏｘＰｒｅｓｓ，２００１．［２】ＢｒｕｃｅＳｃｈｎｅｉｅｒ著，吴世忠等译．应用密码学（协议算法与Ｃ源程序）机械工业出版社，２０００．潮
　万方数据
用Delphi设计网络监视器实现计算机监考
作者：胡开明
作者单位：广东松山职业技术学院,广东,韶关,512126
刊名：
计算机时代
英文刊名：COMPUTER ERA
年，卷(期)：2004，(7)
引用次数：0次
1.汤庸Delphi编程范例与元件库参考 1999
2.新智工作室Delphi基础与提高 1999
3.查看详情 2003
4.查看详情 2003
1.期刊论文王艳萍.张锐在Delphi下用Windows API函数实现串行通信-宁夏工程技术2003,2(2)
简单说明了在Msdos和Windows下的编程差别及怎样用Windows API函数在Delphi下建立串行通信机制,着重论述了在Windows下基于串行通信的API函数的功能及使用方法,讨论了怎样打开、设置、读写和关闭串行端口,并给出了Windows API函数在使用时应重点注意的几个问题.通过具体的实例给出了在Delphi下利用Windows环境的通信编程技术实现串行通信的程序设计.
2.期刊论文唐绍华.曾凡秩WIN32 API函数在软件开发中的应用研究-科技信息(学术版)2008(36)
本文从实际情况出发,在用户需求分析的基础上,提出利用WIN32 API函数在TDBGRID中嵌入CHECKBOX组件的方法,并运用Delphi开发工具结合实例对实现方法进行探讨.
3.期刊论文朱毅.ZHU Yi基于Delphi的计算机电源定时管理软件的实现-贵州师范大学学报（自然科学版）2008,26(2)
在阐述电源定时管理的概念、应具备的功能和Windows环境下用于电源管理的Api函数的基础上,利用Delphi实现了具有较强功能的电源定时管理程序.经过实践证明,该程序在节约能源、减少软硬件的损坏几率、提升系统稳定性、降低管理计算机的工作强度等方面有明显的作用.
4.期刊论文徐向阳.曹帮琴.XU Xiang-yang.CAO Bang-qin在DELPHI中实现中英文输入法自动切换-南阳师范学院学报2006,5(9)
针对中文应用系统中普遍存在的因中英文数据项并存引发的输入法切换问题,提出了在Delphi中通过调用Windows API函数实现中英文输入法自动切换的思路和解决方案,并通过一个简化的示例展示了在实际应用系统中的实现途径.
5.学位论文吴燕基于局域网的远程监控技术2002
该论文主要阐述了应用于局域网的远程监控软件的开发.这套远程监控软件以Delphi 6作为开发工具,采用C/S编程模式,分为服务器软件和客户机软件两部分,本地控制端安装客户机软件;安装在远程受控端的服务器软件利用注册表的启动加载项目而自动运行,并通过自我拷贝法始终运行在系统目录下以达到隐藏的目的.为使服务器进程不出现在任务栏和任务管理器中,将其注册为系统服务;并采用写注册表的方式让服务器程序与Txt文件关联,使被监控机上的用户无法将其删除.位于同一局域网内的服务器和客户机之间采用用户数据报协议(UDP)作为运输层通信协议,论文作者还制定了功能编码,使得服务器能够解释客户机通过网络发送的命令,并根据命令进行操作;论文以建立在面向对象基础上的抽象数据类型"流"作为传送数据的载体,通过Delphi提供的NMUDP控件进行"流"的发送和接收以实现服务器和客户机之间的交互.论文应用了大量的Windows的API函数实现了控制远程计算机的鼠标、键盘,限制其系统功能(如关机、重启等);还通过读注册表获取远程计算机的系统信息,并利用Delphi提供TRegistry类实现远程操作注册表;设置了日志钩子以记录并回放远程计算机的键盘操作.
6.期刊论文王静.赵怀林.孙玉强Delphi 环境中的串口通信程序设计方法-微机发展2002,12(4)
主要讨论了在Delphi 5.0程序设计中串行通信程序设计方法,介绍了与串行通信有关的部分Win32 API函数以及Mscomm控件属性,并给出了分别使用查询和事件驱动方式操作串口的例子.
7.期刊论文马晓晨利用文件接口调用Delphi编写的API函数-承德石油高等专科学校学报2002,4(3)
在研究Windows操作系统API函数的基础上,深入分析了不同开发工具所编写的API函数的调用过程,通过事例提出了在VB环境中开发的应用程序利用文件接口调用Delphi编写的API函数的方法.
8.期刊论文黄新革基于Delphi的Windows2000服务器定时关机程序-信息技术2003,27(3)
针对编程关闭Windows2000系统需要取得相关权限这一问题作了一定阐述,详细介绍了解决这一问题的具体实现方法,并列出了部分API函数的原型和相关参数的说明.同时,文中也对怎样定时关闭系统这一问题作了一定介绍.
9.期刊论文胡开明.陈建华.Hu Kaiming.Chen Jianhua基于Delphi的网络监考系统设计-计算机与数字工程2009,37(4)
考试是教学过程中的一个重要环节,随着计算机进一步的普及,越来越多的考试在计算机机房进行,机房考试作弊跟传统笔试作弊有很大区别,具有很强的隐蔽性.如何有效的防止学生作弊,保证考试的公平公,提出用delphi设计网络监考系统的思路和解决办法.达到防止作弊行为,保证考试的公平公正目的,从而实现计算机监考.
10.学位论文马红麟CAD网络教学系统的研究与应用2004
随着计算机和信息技术的发展,知识更新日益加快,传统的教学方式已经满足不了现代教育的需求,这就迫切需要一种全新的知识传播方式.课题"CAD网络教学系统的研究与应用"正是在这种背景下,来源于北京轻工职业技术学院的实际教学需求.该文首先对多媒体网络技术对教学的影响进行了分析
,说明了开发纯软件控制的"CAD网络教学系统"的必要性.分析了网络通信协议的构成、多媒体数据的特点及多媒体数据压缩方法.用Delphi程序设计语言开发了CAD网络教学系统.该系统是一种专用的教学平台,它利用一套软件,在现有的电脑网络设备上,实现了实时动态地传输教学过程.开发工作主要完成如下内容.1.实现教师机对学生机的屏幕广播控制.可自动检测学生机的在线情况,利用UDP协议,实现了教师机屏幕广播等功能.2.实现教师机对学生机的远程控制.利用Delphi中调用API函数技术,实现教师机对学生机的远程关机、远程重启的功能.3.实现教师机对学生机的监看控制.利用端口技术和轮循机制,实现监看学生屏幕、学生操作示范等功能.所开发的系统,现已在北京轻工职业技术学院CAD计算机教室使用.系统运行稳定,传输的画面清晰稳定,使用效果较好.
本文链接：/Periodical_jsjsd200407011.aspx
下载时间：2010年3月18日。