寻求一种简单的加密方法?

Question

我做了个vb的应用程序,现在急需加密?请各位高手教我一种简单的加密方法,但必须好用,且不同机器有不同的密码.?如取得cpu的信息或硬盘信息来制作加密方法,我前些时候找了一段取得cpu信息的代码,但不能使用,谁有现成的\可执行的代码发给我一份好吗?谢谢

Answer 1

取得cpu的信息
http://www.applevb.com/sourcecode/cpuinfo.zip

Answer 2

一个简单实用的 vb 加密/解密算法     Function UserCode(password As String) As String
'用户口令加密
    Dim il_bit, il_x, il_y, il_z, il_len, i As Long
    Dim is_out As String
    il_len = Len(password)
    il_x = 0
    il_y = 0
    is_out = ""
    For i = 1 To il_len
        il_bit = AscW(Mid(password, i, 1))    'W系列支持unicode
        
        il_y = (il_bit * 13 Mod 256) + il_x
        is_out = is_out & ChrW(Fix(il_y))  '取整 int和fix区别: fix修正负数
        il_x = il_bit * 13 / 256
    Next
    is_out = is_out & ChrW(Fix(il_x))
    
    password = is_out
    il_len = Len(password)
    il_x = 0
    il_y = 0
    is_out = ""
    For i = 1 To il_len
        il_bit = AscW(Mid(password, i, 1))
        '取前4位值
        il_y = il_bit / 16 + 64
        is_out = is_out & ChrW(Fix(il_y))
        '取后4位值
        il_y = (il_bit Mod 16) + 64
        is_out = is_out & ChrW(Fix(il_y))
    Next
    UserCode = is_out
End Function
Function UserDeCode(password As String) As String
'口令解密
    Dim is_out As String
    Dim il_x, il_y, il_len, i, il_bit As Long    il_len = Len(password)
    il_x = 0
    il_y = 0
    is_out = ""
    For i = 1 To il_len Step 2
        il_bit = AscW(Mid(password, i, 1))
        '取前4位值
        il_y = (il_bit - 64) * 16
        '取后4位值
        'dd = AscW(Mid(password, i + 1, 1)) - 64
        il_y = il_y + AscW(Mid(password, i + 1, 1)) - 64
        is_out = is_out & ChrW(il_y)
    Next    il_x = 0
    il_y = 0
    password = is_out
    is_out = ""    il_len = Len(password)
    il_x = AscW(Mid(password, il_len, 1))       For i = (il_len - 1) To 1 Step -1
        il_y = il_x * 256 + AscW(Mid(password, i, 1))
        il_x = il_y Mod 13
        is_out = ChrW(Fix(il_y / 13)) & is_out
    Next
    UserDeCode = is_out
End Function

Answer 3

其它加密算法可考虑base64,或md5搜索一下，有很多答案的

Answer 4

lihonggen0:http://www.applevb.com/sourcecode/cpuinfo.zip
中的哪个参数是cpu 的序列号

Answer 5

可以使用当前的高级分组加密标准----AES