今天給各位分享卡密生成系統(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ù)多出一位。

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

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

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

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

發(fā)到你郵箱去了

procedure TForm1.Button1Click(Sender: TObject);

const

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

var

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

GreateCount,IncNum : Integer;//隨機號碼,生成數(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;//初始化隨機原子

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=隨機的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)注本站。