关于3desvb.net的信息

VB6中实现3DES

"我有一个确认无错的程序"

其实它把数据先压缩成16进制bcd值（数据长度为原先一半），处理完后把结果再展开成16进制串（长度加倍，即16个字符）

有dll函数可用（和你的确认无错的程序一样效果）：

Private Declare Function icePub_desEncryptionHex Lib "icePubDll.dll" (ByVal strInputHexstring As String,ByVal strOutputHexstring As String,ByVal strKeyHexstring As String) As Integer

Private Declare Function icePub_desDecryptionHex Lib "icePubDll.dll" (ByVal strInputHexstring As String,ByVal strOutputHexstring As String,ByVal strKeyHexstring As String) As Integer

Private Declare Function icePub_3desEncryptionHex Lib "icePubDll.dll" (ByVal strInputHexstring As String,ByVal strOutputHexstring As String,ByVal strDoubleKeyHexstring As String) As Integer

Private Declare Function icePub_3desDecryptionHex Lib "icePubDll.dll" (ByVal strInputHexstring As String,ByVal strOutputHexstring As String,ByVal strDoubleKeyHexstring As String) As Integer

Dim str1 As String

str1 = Space(1024)

a2 = icePub_desEncryptionHex("6060606060606060", str1, "6060606060606060")

MsgBox str1

str1 = Space(1024)

a2 = icePub_desDecryptionHex("6060606060606060", str1, "6060606060606060")

MsgBox str1

str1 = Space(1024)

a2 = icePub_3desEncryptionHex("6060606060606060", str1, "60606060606060606565656565656565")

MsgBox str1

str1 = Space(1024)

a2 = icePub_3desDecryptionHex("6060606060606060", str1, "60606060606060606565656565656565")

MsgBox str1

'icePubDll.dll收邮件即可

'或下载即可

netbox怎么用？

毕业设计做网站时看到有同学用NetBox把网站源码封包展示~先还搞不懂是什么东西~后来也就没管了~反正是个封包的软件~网上多的是~~今天一想~哈哈~不知道~不是自己的错~不知道自己学才是自己的错啊~呵呵~所以到网上来查了一下相关资料~

资料如下:

NetBox 是北京综艺达软件技术有限公司自主研制的一个使用脚本语言进行应用软件开发与发布的开发环境和运行平台，它是除了apache和微软的IIS和PWS之外的第四个可以运行ASP的应用服务器。

该软件不仅仅可以将自己的电脑搭建成一个网络服务器，还可以将应用服务器和ASP（内含ASP解释器）全部封装成一个标准的Win32下可执行的.EXE文件，尺寸大小一般在1MB以内以后我们只要在服务器上运行这个封装的exe文件，就可以访问该EXE文件内的网页了。方便了移植。

使用NetBOX编译后可以100%取代IIS，它的效率在Windows2000　Server下较IIS5.0提高50%以上，在Windows98/NT/2000/Me/XP下都可以直接运行。使用NetBOX编译后的系统和我们日常运行一个标准的Windows应用程序没有任何区别，彻底解决了Web应用的安装、维护和知识产权保护难题。更加难能可贵的是，比起iis和pws那庞大的身躯，netbox那只有440KB的大小实在是太小巧精悍了！

产品介绍

NetBox 是一个全新概念的开发平台，它提供了业界最快速的用于开发 Internet 商业应用的开发和编译工具。NetBox 支持包括 Java 等目前应用最为广泛的脚本语言来构建功能强大和性能稳定的应用服务器、网络服务器以及 HTML- 应用。NetBox 支持目前最为流行的 XML 和 Web Service 工业标准和 ASP、COM、.NET 等流行标准，NetBox 对第三方数据库的完美支持使您新构建的商务应用可以容易的将已有的应用系统整合进来，从而充分利用现有的 IT 资源，大大的节约投资。NetBox 提供的 SSL、TLS 安全协议、RSA、DES 等加密算法和独立于应用程序的虚拟机技术使您的数据得到最大限度的保护。NetBox 提供将应用部署到无线设备的能力。NetBox 提供将您的应用编译成独立可执行文件的能力，极大的加快运行速度和代码安全性。使用 NetBox 开发，大大提高了应用系统的可扩展性、稳定性和安全性。NetBox 的出现也首次让应用软件开发商能够如此快速和容易的构建完整的基于 Internet 强大应用。

NetBox Development Plat lication 和 Desktop Application，编译 Web 应用成独立可执行文件：

支持 Java 、VB 、Perl 等脚本语言

支持 XML 和 Web Service

兼容 Active Server Pages

支持 COM 和 .NET 组件

支持 SSL 3.0、TLS

内置 RSA、DES、3DES、SHA、MD5

提供可编程的安全虚拟机用于运行第三方程序

支持通过 ADO 和 ODBC 访问几乎所有的大型数据库

支持系统硬件设备 RS232、RS485 等

支持基于 Microsoft、CISCO 和其他厂商的群集技术

兼容 Windows Components 并提供编译支持

支持 WAP、WML

构建 Web Service 和 Internet 应用程序

NetBox 提供一套完整的脚本语言开发环境，提供超轻量脚本引擎和极快的 Web Server，桌面应用对象轻松开发出基于 HTML 界面整合多种媒体的 XML 桌面应用。

NetBox 提供 Microsoft IIS 5.0 兼容的 Active Server Pages 模块，不用修改代码直接将已经存在的使用 ASP 开发的应用程序移植到 NetBox 平台上来，也可以直接使用已经存在所有 COM 组件。通过修改一部分代码，用 NetBox 的高性能对象大大的提高运行速度。区别于 IIS，NetBox 在 ASP 中加入对 .NET 对象的直接支持，并且可以编译 ASP 引擎和代码到独立执行文件中。

通过 ADO 和 ODBC，NetBox 开发的应用可以访问几乎所有的大型数据库和桌面数据库。通过对XML的集成，加强了和外部应用和数据的集成能力，新加入的对 SOAP、UDDI、WSDL，方便构建出下一代 Internet 应用程序。

无论是开发简单的桌面应用，或是复杂的 Internet 应用，还是下一代的 Web Service 应用，你都可以从 NetBox 中得到巨大的帮助。

下面是 使用方法，简单介绍一下：

一、安装

1、先将NETBOX安装。跟普通软件安装没有什么两样的！略过！

2、我们首先创建一个空目录，如 D:\web（或随便什么目录都行，桌面下都行，但最好是空的，因为方便打包），然后在在目录中创建一个新文件，并命名为：main.box，修改其内容如下：

Dim httpd

Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"

Sub OnServiceStart()

Set httpd = Create er")

If httpd.Create("", 80) = 0 Then

Set host = httpd.AddHost("", "\www")

host.Enable true

host.AddDefault "index.htm"

host.AddDefault "index.asp"

host.AddDefault "default.htm"

host.AddDefault "default.asp"

httpd.Start

else

Shell.Quit 0

end if

End Sub

Sub OnServiceStop()

httpd.Close

End Sub

Sub OnServicePause()

httpd.Stop

End Sub

Sub OnServiceResume()

httpd.Start

End Sub

最后保存！

说明：

（1）：如果你成功安装了网络盒子，那么他的后缀是可以被识别的，图标 为红色 .b 的样子

（2）：我把上面代码的主要内容讲一下：

httpd.Create("", 80)是指使用80端口开设服务器，如果不喜欢，可以更改为别的！

那么访问地址后面必须加 :端口号 才能正常访问

Set host = httpd.AddHost("", "\www") 中的www就是你放网站程序的目录。也就是一定要与第二步将建立的目录名称相同！

host.AddDefault "index.htm" --\

host.AddDefault "index.asp" | 这些就是指设置默认首页文件，

host.AddDefault "default.htm" | 你可以自己更改，添加删除一行一个

host.AddDefault "default.asp" --/

二、然后在D:\WEB下面创建一个名为 www 的目录，如：d:\web\www

其下创建一个 index.asp 文件，编辑内容如下：

%

response.write "I Love You！"

%

然后保存！

或者将你的asp程序 放到这个目录下比如bbsxp论坛程序！

三、调试运行

然后，我们双击运行 main.box，这时候，系统托盘处应该出现一个红色的 .b 样的小图标。

好，我们打开浏览器，地址栏输入：127.0.0.1，或 localhost 看看：

如果出现了 I Love You！ ，说明成功了！

四、运行为服务

因为这个例程是以服务方式创建的 Web 服务器，所以你可以使用：myapp -install

将应用安装成为服务，这样，系统无须手动运行便可以自动运行了。

如果需要卸载服务，则可以执行下面的命令：myapp -remove 来删除服务

五、编译

编译的过程是简单的，执行 nbdw.exe（NetBox Deployment Wizard就是部署向导）。

1 点 选择文件夹 按钮，找到刚才我们建立的目录 d:\web，

2 然后点 浏览 按钮，

3 输入要生成的执行文件的目录和名称，

4 点 Build...，开始编译。

成功喽……

最后，我们得到了编译成功的那个执行文件，就是封装好的程序，可以复制到其它电脑上直接运行。很方便吧！

说明：

（1）：把自己的电脑搭建成网络服务器是免费的，2.8版封装成EXE文件，也完全免费了，好像连免费注册都取消了。

（2）：网络盒子的功能远远不止这些，我仅仅说了一些关于如何搭建能支持ASP的网络服务器，网络盒子的真正功能还等着大家去发掘呢？要知道，网络盒子才440KB，而它的说明文件却有5.63MB啊！