高手请进！！！！！！一定加分！！！！！！！

[weiasp]

把数据添加到一个文本文件后，怎么对这个文本进行编码或加密？

[weiasp]

期待！关注！

[weiasp]

?????

[shadowkiss]

其实要难有难的办法，要简单有简单的办法，
我在这里告诉你一个思路吧

如下是一个简单地不能再简单的加密和解密过程

假设我有几个字节的数据是这样的.

eg: FF F0 A9 00 01

现在我要加密保存一下， 就可以对每个字节进行一下位移

如最后一字节 01(16进制) 为00000001(二进制) 我把它向左循环移一位变为00000010
就是前面的那个0拿到后面去了

等解密的时候再向右循环移一位就ok了. 呵呵，这个简单的都不好意思写出来，只是提供你一个思路而已，当然如果想要更好的效果就一定要用背包加密啦....太多了，　先学一下不可逆函数吧，这可是加密的基础.

所谓师傅... 修行... 呵呵呵~~~

[wzy9645]

怎么样才能写成控件啊？

[xuchu]

<%
'******************************
' KeyGeN.asp
'******************************
Const g_KeyLocation = "C:\key.txt"
Const g_KeyLen = 512

On Error Resume Next

Call WriteKeyToFile(KeyGeN(g_KeyLen),g_KeyLocation)

if Err <> 0 Then
Response.Write "ERROR GENERATING KEY." & "<P>"
Response.Write Err.Number & "<BR>"
Response.Write Err.Description & "<BR>"
Else
Response.Write "KEY SUCCESSFULLY GENERATED."
End If

Sub WriteKeyToFile(MyKeyString,strFileName)
Dim keyFile, fso
set fso = Server.CreateObject("scripting.FileSystemObject")
set keyFile = fso.CreateTextFile(strFileName, true)
keyFile.WriteLine(MyKeyString)
keyFile.Close
End Sub

Function KeyGeN(iKeyLength)
Dim k, iCount, strMyKey
lowerbound = 35
upperbound = 96
Randomize ' Initialize random-number generator.
for I = 1 to iKeyLength
s = 255
k = Int(((upperbound - lowerbound) + 1) * Rnd + lowerbound)
strMyKey = strMyKey & Chr(k) & ""
next
KeyGeN = strMyKey
End Function

%>

'******************************
' Crypt.asp
'******************************
<%
Dim g_Key

Const g_CryptThis = "Now is the time for all good men to come to the aid of their country."
Const g_KeyLocation = "c:\key.txt"

g_Key = mid(ReadKeyFromFile(g_KeyLocation),1,Len(g_CryptThis))

Response.Write "<p>ORIGINAL STRING: " & g_CryptThis & "<p>"
Response.Write "<p>KEY VALUE: " & g_Key & "<p>"
Response.Write "<p>ENCRYPTED CYPHERTEXT: " & EnCrypt(g_CryptThis) & "<p>"
Response.Write "<p>DECRYPTED CYPHERTEXT: " & DeCrypt(EnCrypt(g_CryptThis)) & "<p>"

Function EnCrypt(strCryptThis)
Dim strChar, iKeyChar, iStringChar, I
for I = 1 to Len(strCryptThis)
iKeyChar = Asc(mid(g_Key,I,1))
iStringChar = Asc(mid(strCryptThis,I,1))
' *** uncomment below to encrypt with addition,
' iCryptChar = iStringChar + iKeyChar
iCryptChar = iKeyChar Xor iStringChar
strEncrypted = strEncrypted & Chr(iCryptChar)
next
EnCrypt = strEncrypted
End Function

Function DeCrypt(strEncrypted)
Dim strChar, iKeyChar, iStringChar, I
for I = 1 to Len(strEncrypted)
iKeyChar = (Asc(mid(g_Key,I,1)))
iStringChar = Asc(mid(strEncrypted,I,1))
' *** uncomment below to decrypt with subtraction
' iDeCryptChar = iStringChar - iKeyChar
iDeCryptChar = iKeyChar Xor iStringChar
strDecrypted = strDecrypted & Chr(iDeCryptChar)
next
DeCrypt = strDecrypted
End Function

Function ReadKeyFromFile(strFileName)
Dim keyFile, fso, f
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile(strFileName)
set ts = f.OpenAsTextStream(1, -2)

Do While not ts.AtEndOfStream
keyFile = keyFile & ts.ReadLine
Loop

ReadKeyFromFile = keyFile
End Function

%>

[xuchu]

如果要写成com的话，我可以告诉你怎么写。

[weiasp]

请高手指点一二。

[sundna]

你可以先对要添加的数据加密,然后在存入文本文件呀

[weiasp]

请问怎么做呢？
关注！

[XinZi]

去查各种加密算法的资料吧。一般不是非常要紧的，只两三张置换表就行了

[weiasp]

问题是我要用到ASP里面，进行简单的编码，还是很容易解决。查看的时候怎么办呢？
望高手指点。