今天給各位分享卡密生成系統(tǒng)源碼的知識(shí)，其中也會(huì)對(duì)卡密生成與激活源碼進(jìn)行解釋?zhuān)绻芘銮山鉀Q你現(xiàn)在面臨的問(wèn)題，別忘了關(guān)注本站，現(xiàn)在開(kāi)始吧！

本文目錄一覽：

• 1、軟件的卡密怎么制作
• 2、用易語(yǔ)言制作卡密，用卡密激活軟件，還請(qǐng)把思路說(shuō)明白點(diǎn)，也可以給源碼！謝謝
• 3、求高手用delphi7寫(xiě)一個(gè)批量卡密生成器，謝謝

軟件的卡密怎么制作

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

用易語(yǔ)言制作卡密，用卡密激活軟件，還請(qǐng)把思路說(shuō)明白點(diǎn)，也可以給源碼！謝謝

思路就是，你要制作一個(gè)注冊(cè)機(jī)，就是通過(guò)獲取的硬盤(pán)序列號(hào)或者CPU序列號(hào)，經(jīng)過(guò)一系列的計(jì)算，得到一個(gè)字符串，這個(gè)字符串就是驗(yàn)證軟件的是不是正版的。

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

求高手用delphi7寫(xiě)一個(gè)批量卡密生成器，謝謝

發(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ī)號(hào)碼,生成數(shù)量,遞增號(hào)碼

i : integer;

begin

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

begin

showmessage('請(qǐng)完整填寫(xiě)edit');

exit;

end;

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

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

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

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（自己填寫(xiě)的3位數(shù)字）

StrD := format('%3.3d',[StrToInt(Edit4.Text)]); //D=Edit4.text（自己填寫(xiě)的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)注本站。