K3YK4Y 字符串哈希器

• 下载源代码 - 0.7 KB

引言

一种快速简便的密码加密解决方案。 就像 MD5、SHA1 等一样，它会创建一个冗长、混乱且半无意义的数字字符串，无法解密。

与某些哈希函数不同，目前还没有可能在没有相同字符串的情况下重新创建相同哈希值的方法（除非您使用的是基本的加密）。

使用代码

这个程序只有两个类，您会发现的。 有三种不同的字符串加密方法：基本、有效和高级（应该可以说是无法破解的）。

Public Class K3YK4Y
    Public Class encode
        Public Shared Function basic(ByVal str As String)
            'Possibly hackable, although not very likely. Would require a LOT of maths.
            Dim k3yk4y As Int32 = Nothing
            For Each number As Byte In Text.ASCIIEncoding.ASCII.GetBytes(str)
                k3yk4y += number
            Next
            Return k3yk4y
        End Function

        Public Shared Function effective(ByVal str As String)
            '9999/10000 chance of ever being hacked
            '9998/10000 if they know the formula
            Dim k3yk4y As Int32 = Nothing
            Dim order As String = Nothing
            For Each number As Byte In Text.ASCIIEncoding.ASCII.GetBytes(str)
                order &= Convert.ToInt64(number) / 4
                k3yk4y += number
            Next
            Return Convert.ToInt64(k3yk4y) & order
        End Function

        Public Shared Function advanced(ByVal str As String)
            'Lmao ;).
            Dim k3yk4y As String = Nothing
            Dim order As String = Nothing
            For Each number As Byte In Text.ASCIIEncoding.ASCII.GetBytes(str)
                order &= Convert.ToInt64(number) / 4
                k3yk4y &= Hex(number / 2)
            Next
            Dim orderLength As Int32 = order.Length / 2
            Dim halfOrder As String = order.Substring(orderLength, 4)
            Dim endEncode As Decimal = Convert.ToDecimal(halfOrder) * 2
            Return k3yk4y & order & endEncode
        End Function
    End Class
End Class

每个加密级别都会返回一个不同的字符串，其中添加或删除了某些内容以提高安全性。 我想您可以将此过程应用于文件，但想象一下它会变得有多大：S。 考虑到您无法解密它，这也很无意义。

关注点

我真正喜欢的是我所做的一切小而无意义的事情。 它们使它看起来很大且令人困惑，而您真正需要使用的只是基本的加密，瞧！ 虽然，如果字符串使用相同的字母，基本的加密往往会返回相同的结果。

历史

• 2008-08-18：发布版本 1。