求字符串加密的函数(100)

  • 主题发起人 主题发起人 anron
  • 开始时间 开始时间
A

anron

Unregistered / Unconfirmed
GUEST, unregistred user!
自己写了一个简单的字符串加密,解密的函数,大部分应用是可以满足的。但有个应用,在处理字符串时,如果某个byte是小于等于32(asc码)的字符全丢掉。所以要求加密后的每个byte不能小于ASC码32,并且可以解密。谁弄过,给个思路也行。要把byte(0-255)加密成byte(33-255),感觉思路有点不对,除非源字符串长度不等于加密后的字符串。如果是要求源字符串长度等于加密后的字符串长度,就只能处理:要把byte(33-255)加密成byte(33-255),
 
转换成ascii码值,对ascii码值加密,可行否?
 
加密后需要压缩处理,然后进行base64编码
 
必须把单字节转换魏双字节来加密,否则将丢失某些字符!
 
我的经验是,信手拿来一个都比你自己想强百倍,而且简单,不要去自己想加密的方法了:用法: 加密: s:='sfsfsfsfsfsfsdf';//这里当然是你要加密的字串 s:=okject(s,'123');//这里的s就是解密的了,注意123 就是你自己定义的Key一定要和你解密字串时的Key一样,才能正常解密 解密: s:='你加密的字串'; s:=noject(s,'123');//看到没123就是Key要和加密时一样哦,这里的s就是解密后的字串了 简单实用,关键他还快 快去下载,稍等几天就删除了! (另外说一下,下载时,在键接上点右键,另存为,应该能下载,我试过,哈哈) http://mimakongjing.138.io/home/know/DESCrypt.pas
 

Similar threads

后退
顶部