那位大侠有字符串解加密算法(函数)?(5分)

  • 主题发起人 主题发起人 hello
  • 开始时间 开始时间
H

hello

Unregistered / Unconfirmed
GUEST, unregistred user!
如题。
致谢。
 
急!急!急!
 
We have already discussed this topic. You may find it by searching "加密".
 
一位异或加密算法,要不要。
 
到控件库搜索
 
去vcl.vclxx.com有控件
 
其实可以自己写,更具加密效果。例如自己想怎么加就怎么加,
做一个循环,轮流为每个字加一个顺序的字符,再反过来乘以某个数,
我觉得这样更很少人想到。
 
简单的方法(救急正好):
定义一个作为密匙的字符串, 然后把需要转换的字符串的每个字符分别和密匙中的字符
相异或(XOR)就得到加了密的字符串了, 要解密只需要再XOR一次就还原了. 相同字符串
用不同密匙可得到不同的结果. (考究一点的可以对密匙再进一步处理, 如果做到每次的
密匙都不同想破密码也不那么容易)
 
windows osr2.1及以后版本提供CAPI,自己去调用吧.

机械工业出版社的一本"程序设计"系列的书中的一本< ...开发指南>
(记不得了)中有详细的说明.

自己用控件的话主要有如下几个算法, DES , RC1,RC2,RC3,RC4,RC5 ,
还有 BlowFish,128位以上的强加密算法,它的Delphi实现是Open Source
的,非常好.
 
西西,我会的加密方法就是Another_eyes大哥的方法,给个例子你看,我现打的,如果你看着顺眼,就给Another_eye大哥家分:

const keyword='c';//关键字,随便什么一个字符就可以;

function encypt(input:string)string;
var i:integer;
begin
for i:=0 to length(input) do
input:=input xor keyword;
result:=input;
end;

很简单吧,不过最近一直忙于考试,很久(有一两个月了吧)没有摸过程序设计了,写好这段东西心理总是慌慌的,错了千万莫怪。

使用一次是加密,再一次是解密
 
dncryptlib2.zip;

ftp://202.120.100.49/incoming/dncryptlib2.zip
封装了des,rc1-5;

还有一个Blowfish找不到了.自己去dsp看看吧;这种东西好多.

thanks tqz's station.
 
接受答案了.
 

Similar threads

后退
顶部