什么样的算法才能计算出一系列指定位数的数字序列号呢? ( 积分: 20 )

  • 主题发起人 主题发起人 yingyang
  • 开始时间 开始时间
Y

yingyang

Unregistered / Unconfirmed
GUEST, unregistred user!
什么样的算法才能计算出一系列指定位数的数字序列号呢?谢谢!
 
什么样的算法才能计算出一系列指定位数的数字序列号呢?谢谢!
 
function GetNum(Count:Byte):Integer;
var
I:Integer;
begin
Randomize;
if Count>0 then
Result:=Random(10)
else
exit;
for I:=1 to Count-1 do
Result:=Result*10+Random(10);
end;
 
不能通过编译,
[Error] Unit1.pas(36): Incompatible types: 'String' and 'Integer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
我是一个菜鸟,请说清楚点好吗?谢谢!
 
用二楼的！
 
我不知道怎样开写新的问题，借用地方，请见谅！

如果要算出以下的序列号，应该怎样写原码？谢谢！！！
E9098CEA5345966C29DB7A985E653E1BF423C73CE3C1BCCFE00C57E5219DD702
 
回答五楼的，太多方法了：
答案一：
'E'+'9098CEA5345966C29DB7A985E653E1BF423C73CE3C1BCCFE00C57E5219DD702'
答案二：
'E9'+'098CEA5345966C29DB7A985E653E1BF423C73CE3C1BCCFE00C57E5219DD702'
答案三：
'E9098CEA5345966C29DB7A985E653E1B'+'F423C73CE3C1BCCFE00C57E5219DD702'
………………………………
 
我是直接复制你二楼的源码的,但就是不能通过编译啊,不知道为什么?
 
那可是有点菜了，你不会是连复制到什么地方都不知道吧？
 
是这一行不能通过
S:=S+Random(10);
 
仔细看看吧，二楼的代码早都改了！！！！！！！！！！！！！！！！！！
 
s:=s+IntToStr(Random(10))
 
function GetNum(len:integer):string;
var i:integer;
s:string;

function GetRanChar:string;
var c:char;
begin
repeat
c:=char(random(75)+47);
until c in ['0'..'9','A'..'Z'];
Result:=string(c);
end;

begin //构造SN
randomize;
s:='';
for i:=1 to len do
begin
s:=s+GetRanChar;
end;
Result:=s;
end;
 
不是这个问题啊，这个是已经是算出来的序列号，它是通过主板的代码写的，用主板的代码做注册，算出刚才那一串，我就是问，怎样写那样的注册机？谢谢！！！
 
注册机跟算注册码的步骤是一样的啊
 
得到一个注册码的算法有N多，就像6楼说的，有注册码就想要注册机？
 
对啊,我想在另一台机上用那一个软件,所以做一个注册机.
请问有方法可以做到吗?
我可以提供那个软件,谢谢!!!
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
L
今天结贴，分数只给一个人！如何列出一个指定的文件夹下的所有子文件夹名。(38分)
回复
10
查看
230
影 子
影
B
请教：我在得知客户机上的硬盘序列号以后，如何算出软件的注册号呢？(100分)
回复
4
查看
194
aq100
A
S
怎样读取一台计算机安装的所有软件的列表，包括系统自带的！(20分)
回复
4
查看
254
sailorhdx
S
没
Delphi6.0的team source安装为什么要序列号？(25分)
回复
3
查看
208
没理头号
没
后退
顶部