今天給各位分享卡密生成系統(tǒng)源碼的知識，其中也會對卡密生成與激活源碼進(jìn)行解釋，如果能碰巧解決你現(xiàn)在面臨的問題，別忘了關(guān)注本站，現(xiàn)在開始吧！

本文目錄一覽：

• 1、軟件的卡密怎么制作
• 2、用易語言制作卡密，用卡密激活軟件，還請把思路說明白點，也可以給源碼！謝謝
• 3、求高手用delphi7寫一個批量卡密生成器，謝謝

軟件的卡密怎么制作

按照你的業(yè)務(wù)需求，設(shè)計卡號的前綴、后綴，并預(yù)估今后生成卡密對兒的數(shù)量。例如，你的業(yè)務(wù)估計需要2萬張卡，而前期只需要生成1000張卡就可以了，那么你需要將卡的序號留出一位最為前綴的一部分，以便后面生成序號10000以上時不至于卡號的位數(shù)多出一位。

用易語言制作卡密，用卡密激活軟件，還請把思路說明白點，也可以給源碼！謝謝

思路就是，你要制作一個注冊機(jī)，就是通過獲取的硬盤序列號或者CPU序列號，經(jīng)過一系列的計算，得到一個字符串，這個字符串就是驗證軟件的是不是正版的。

你的程序一運行就獲取用戶的序列號，然后讓用戶找你購買字符串，你通過用戶提供的序列號用注冊機(jī)計算出字符串，給予用戶，用戶輸入到軟件上面，軟件通過注冊機(jī)上面一樣的反向算法得到序列號和運行電腦的序列號比較，如果相同就驗證通過，不想同就不通過。最好是驗證CPU的序列號，因為這個不容易換，如果別人把硬盤換到其他電腦上，就可以運行了。這樣的容易被od破解，需要加多重的驗證機(jī)制。

求高手用delphi7寫一個批量卡密生成器，謝謝

發(fā)到你郵箱去了

procedure TForm1.Button1Click(Sender: TObject);

const

MaxRandom = 99999999; //最大的隨機(jī)8位數(shù)字

var

StrA,strB,StrC,strD,strE,StrResult : string; //A,B,C,D,E,結(jié)果

GreateCount,IncNum : Integer;//隨機(jī)號碼,生成數(shù)量,遞增號碼

i : integer;

begin

if (edit1.Text ='')or (edit2.Text ='')or (edit3.Text ='')or (edit4.Text ='')or (edit5.Text ='')then

begin

showmessage('請完整填寫edit');

exit;

end;

Randomize;//初始化隨機(jī)原子

GreateCount := StrToint(edit5.Text); //生成數(shù)量

IncNum := StrToInt(Edit3.text); //初始遞增號碼

for i := 1 to GreateCount do

begin

strA := format('%3.3d',[StrToInt(Edit1.Text)]) +format('%8.8d',[StrToInt(Edit2.Text)])+ format('%5.5d',[IncNum]); //A=16位數(shù)字.....

strB := format('%8.8d',[Random(MaxRandom)]); //B=隨機(jī)的8位數(shù)字

StrC := format('%3.3d',[StrToInt(Edit1.Text)]); //C=Edit1.text（自己填寫的3位數(shù)字）

StrD := format('%3.3d',[StrToInt(Edit4.Text)]); //D=Edit4.text（自己填寫的3位數(shù)字）

StrE := '0'; //E=數(shù)字0

StrResult := StrA+','+StrB+','+StrC+','+StrD+','+StrE; //A,B,C,D,E

memo1.Lines.Add(StrResult);

Inc(IncNum);

end;

StrA := edit1.Text+edit2.Text;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

//設(shè)置最大輸入位數(shù)

Edit1.MaxLength := 3;

Edit2.MaxLength := 8;

Edit3.MaxLength := 5;

Edit4.MaxLength := 3;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

//只允許輸入0..9的數(shù)字,#8為Backspace(回退鍵)

if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', #8]) then

key := char(0);

end;

關(guān)于卡密生成系統(tǒng)源碼和卡密生成與激活源碼的介紹到此就結(jié)束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關(guān)注本站。