探讨对任意一串数字加密的方法

2004-10-10 09:55:47 452 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

算法2_非对称加密算法之ECDSA(椭圆曲线数字签名算法) ECDSA(椭圆曲线数字签名算法) AES(高级加密标准): =>对称加密对业务数据进行加密,防止他人可以看见 ECDSA(椭圆曲线数字签名算法):=>非对称加密算法(公钥和私钥) 验证数据的真实性,防止业务数据被篡改 SHA(安全哈希算法)=>哈希算法 1. 作用: 因为ECDSA椭圆曲线数字签名算法获得公钥和私钥对是一一对应的,不存在"不同私钥但是公钥相同的情况"所有伪造ECDSA签名是根本不可能的 2. 解释ECDSA ECDSA当中有两个词要注意:Curve(曲线阅读详情

看网上对字符加密的代码很多但是没有对数字加密的（当然解密后也是数字）。

不知各位有何高见

异或是最简单的了。

...全文

加密总结【OpenSSL、对称加密（DES、3DES、AES）|非对称加密(RSA)、HASH散列、HMAC加密方案、数字签名、自签证书】一、OpenSSL 二、Mac终端加密解密演示桌面有点乱，先创建一个空的文件夹，生成的数据放在此文件夹中 1、生成私钥和公钥获取到当前文件夹： cd /Users/caomaoxiaozi/Desktop 生成RSA秘钥，长度为1024bit openssl genrsa -out private.pem 1024 从私钥中提取公钥 openssl rsa -in priva... 阅读详情

neo40

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

neo40 2004-10-15

打赏
举报

md5加密后是一串乱码，不能返回数字。各位有没有有关数字加密的文章。

guxizhw 2004-10-12

打赏
举报

那种是很白痴的加密算法，已知明文可以直接推算出密钥

jam021 2004-10-12

打赏
举报

关注,帮你顶!

落伍者 2004-10-12

打赏
举报

rsa
md5
或者简单的做个密码表

常遇道 2004-10-11

打赏
举报

ycxf 2004-10-11

打赏
举报

和任意一组数字相异或,再异或一次就解密了

还想懒够 2004-10-11

打赏
举报

任意一串数字乘以15+2.5：）

lxcc 2004-10-10

打赏
举报

一些常见的加密算法的VB版本
http://www.china-askpro.com/msg1/qa88.shtml
http://dev.csdn.net/develop/article/8/8353.shtm
http://www.itonline.gd.cn/ittech/list.asp?id=69
http://dev.csdn.net/develop/article/8/8356.shtm

DerryZhang 2004-10-10

打赏
举报

tztz520 2004-10-10

打赏
举报

'这个可以对数字或字母或汉字加密解密
Public Function Encode(ByVal S As String) As String '加密
On Error GoTo acd
If Len(S) = 0 Then Exit Function
Dim Buff() As Byte
Buff = StrConv(S, vbFromUnicode)
Dim i As Long
Dim j As Byte
Dim k As Byte, m As Byte
Dim mstr As String
mstr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz"
Dim outs As String
i = UBound(Buff) + 1
outs = Space(2 * i)
Dim Temps As String
For i = 0 To UBound(Buff)
Randomize Time
j = CByte(5 * (Math.Rnd()) + 0) '最大产生的随机数只能是5，不能再大了,再大的话，就要多用一个字节
Buff(i) = Buff(i) Xor j
k = Buff(i) Mod Len(mstr)
m = Buff(i) \ Len(mstr)
m = m * 2 ^ 3 + j
Temps = Mid(mstr, k + 1, 1) + Mid(mstr, m + 1, 1)
Mid(outs, 2 * i + 1, 2) = Temps
Next
Encode = outs
Exit Function
acd:
End Function

Public Function Decode(ByVal S As String) As String '解密
On Error GoTo acd
Dim i As Long
Dim j As Byte
Dim k As Byte
Dim m As Byte
Dim mstr As String
mstr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz"
Dim t1 As String, t2 As String
Dim Buff() As Byte
Dim n As Long
n = 0
For i = 1 To Len(S) Step 2
t1 = Mid(S, i, 1)
t2 = Mid(S, i + 1, 1)
k = InStr(1, mstr, t1) - 1
m = InStr(1, mstr, t2) - 1
j = m \ 2 ^ 3
m = m - j * 2 ^ 3
ReDim Preserve Buff(n)
Buff(n) = j * Len(mstr) + k
Buff(n) = Buff(n) Xor m
n = n + 1
Next
Decode = StrConv(Buff, vbUnicode)
Exit Function
acd:
Decode = ""
End Function

探讨对任意一串数字加密的方法

相关推荐