c1.vb

asp+sql2000做的oa软件＋vb制作的组件源码

Option Strict Off
Option Explicit On
<System.Runtime.InteropServices.ProgId("c1_NET.c1")> Public Class c1
	
	Dim xgKey As String
	
	Public Function Encrypt(ByRef s As String) As Object
		Dim i As Object
		Dim j As Byte
		Dim rs As String
		'UPGRADE_WARNING: 未能解析对象 i 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
		i = 1
		j = 1
		For i = 1 To Len(s)
			'UPGRADE_WARNING: 未能解析对象 i 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
			rs = rs & Chr(Asc(Mid(s, i, 1)) Xor Asc(Mid(xgKey, j, 1)))
			j = j + 1
			If j > Len(xgKey) Then j = Len(xgKey)
		Next i
		'UPGRADE_WARNING: 未能解析对象 Encrypt 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
		Encrypt = rs
	End Function
	
	Public Function dEncrypt(ByRef s As String) As Object
		Dim i As Object
		Dim j As Byte
		Dim rs As String
		'UPGRADE_WARNING: 未能解析对象 i 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
		i = 1
		j = 1
		For i = 1 To Len(s)
			'UPGRADE_WARNING: 未能解析对象 i 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
			rs = rs & Chr(Asc(Mid(s, i, 1)) Xor Asc(Mid(xgKey, j, 1)))
			j = j + 1
			If j > Len(xgKey) Then j = Len(xgKey)
		Next i
		'UPGRADE_WARNING: 未能解析对象 dEncrypt 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
		dEncrypt = rs
	End Function
	
	'UPGRADE_NOTE: Class_Initialize 已升级到 Class_Initialize_Renamed。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1061"”
	Private Sub Class_Initialize_Renamed()
		FileOpen(1, "C:\WINNT\system32\xgcript\xgkey.xgk", OpenMode.Input)
		Input(1, xgKey)
		FileClose(1)
	End Sub
	Public Sub New()
		MyBase.New()
		Class_Initialize_Renamed()
	End Sub
End Class