能力值:
( LV9,RANK:610 )
|
-
-
2 楼
我编辑的代码:
procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2:string;
e,n:tfgint;
begin
str1:=edit3.text;
Base10StringToFGInt(edit1.Text, e);
Base10StringToFGInt(edit2.text, n);
RSAEncrypt(str1, e, n,str1);
ConvertBase256to64(str1,str2);
edit4.text:=str2;
FGIntDestroy(e);
FGIntDestroy(n);
end;
|
能力值:
( LV9,RANK:610 )
|
-
-
4 楼
好象不是的,
我编的这个东西可以用来计算happytown斑竹文章里所说的那个软件的注册码~~
|
能力值:
( LV9,RANK:610 )
|
-
-
5 楼
用OD跟了下,我用FGInt库编辑出来的那个东西出现二进制形式的结果了(和windows优化大师的一样,在M前加了"111"),可是不知道怎么回事,突然又把这些二进制的数字串分成6位一个的,然后找出这6位对应的一个表中的字符连接起来就是我编写的这个东西的结果了
那个表是什么东西???
和RSA什么关系???
|
能力值:
( LV2,RANK:10 )
|
-
-
8 楼
我编辑的代码:
procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2:string;
e,n:tfgint;
begin
str1:=edit3.text;
Base10StringToFGInt(edit1.Text, e);
Base10StringToFGInt(edit2.text, n);
RSAEncrypt(str1, e, n,str1);
ConvertBase256to64(str1,str2);
edit4.text:=str2;
FGIntDestroy(e);
FGIntDestroy(n);
end;
这个是RAS的一个加密的使用方式,还有另外的使用方式
|
能力值:
( LV9,RANK:610 )
|
-
-
9 楼
我想写一个用到RSA算法的注册机~
那FGInt库能用吗???
|
能力值:
( LV9,RANK:850 )
|
-
-
10 楼
晕死,不同的库它选择的输出结果形式并不一样。怎么能通用?
CryptoCalc 1.2 以十进制形式输出
你用的那个库:用FGInt库编辑得到的结果是:aiBGj2u 是因为它将结果进行了处理,以可见字符显示。如下:
chr64 : Array[1..64] Of char = ('a', 'A', 'b', 'B', 'c', 'C', 'd', 'D', 'e', 'E', 'f', 'F',
'g', 'G', 'h', 'H', 'i', 'I', 'j', 'J', 'k', 'K', 'l', 'L', 'm', 'M', 'n', 'N', 'o', 'O', 'p',
'P', 'q', 'Q', 'r', 'R', 's', 'S', 't', 'T', 'u', 'U', 'v', 'V', 'w', 'W', 'x', 'X', 'y', 'Y',
'z', 'Z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', '=');
ConvertBase256to64(str1,str2);
数学数学都是数,一般在编程中,会把它当作ASCII码转化成字符显示。每个人的喜好不一样,会有不同的结果。
例如:
而MD5('wofan')=778F10F730CD28A38BE724735B6E2BAC
如果像如下这样输出:
W????S[N+s[n+
谁都不知道它是什么意思。
为了全部可见:
BASE64('W????S[N+s[n+')=Vz8/P6OLP1NbTitzW24r
就好看多了。
要写RSA的Keygen,你得找个合适的库,或者自已改编一下。并非它这个库不行。HappyTown找到的这个库正是软件作者用到的库。所以他很爽,你很委曲。也许另一个作者会对结果再进行一次BASE64处理输出。而解密的时候,先来个Base64解码,你能说他出错了吗。
|
能力值:
( LV9,RANK:610 )
|
-
-
11 楼
[QUOTE='wofan[OCN];302686']晕死,不同的库它选择的输出结果形式并不一样。怎么能通用?
CryptoCalc 1.2 以十进制形式输出
你用的那个库:用FGInt库编辑得到的结果是:aiBGj2u 是因为它将结果进行了处理,以可见字符显示。如下:
chr64 : Array[1..64] Of char = ('a', ...[/QUOTE]
收到了,多谢兄弟指点,我最后决定修改这里的函数用来写RSA(实在找不到Delphi)可用的RSA源码了,
哪位朋友有的话能否发给我个:
goqq2008#gmail.com
多谢了~~
|