 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
通过机器码获得注册码的完整方案（转贴过来,留着看看） - Read
下载积分：600
内容提示：通过机器码获得注册码的完整方案（转贴过来,留着看看） - Read
文档格式：DOC|
浏览次数：1627|
上传日期： 01:41:38|
文档星级：
该用户还上传了这些文档
通过机器码获得注册码的完整方案（转贴过来,留着看看） -
官方公共微信请问下已知机器码和注册码，怎么能知道算法_百度知道
请问下已知机器码和注册码，怎么能知道算法
机器码 2E6B214395EACD96BB2D7 注册码 0B750CAE710F027ABA060F747DDFF047C7EF7B7C747AB020E730CABD0E0B760BFADB20BB047F007EC737A0AE7B07A80EDDD747C0F760D027CBB017ECE030D040EE7404CAB这注册码太长了就是不知道怎么算的
我有更好的答案
序你有么，把程序逆向分析一下，发我邮箱里，要是不太懂，在里面就能找到算法了
你邮箱多少啊
加Q吧，发我Q邮箱里，
麻烦看看 谢谢
其他类似问题
为您推荐：
机器码的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁有谁帮我注册下机器码FF7DCEA269D_百度知道
有谁帮我注册下机器码FF7DCEA269D
！！！！！！！机器码FF7DCEA269D
跪求用户名和注册码
急！！！！！！！！
机器码：FF7DCEA269D用户名：linxiaoli5428注册码：78
其他类似问题
为您推荐：
您可能关注的推广
机器码的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁二次元同好交流新大陆
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成代码3、用户在程序中输入该注册码，程序逆算该注册码，与机器码核对，查看是否相符。注册码逆算、核对代码，4、如果用户安装后没有得到注册码，在N天后部分功能不可用。不要太容易被改（虽然说安装后也只有少部份功能能用）。时限功能代码，zw8-12-2 23:8)&function GetHDNumber(Drv : String): DWORD; //得到硬盘序列号varVolumeSerialNumber : DWORD;MaximumComponentLength : DWORD;FileSystemFlags : DWORD;beginif Drv[Length(Drv)] =':' then Drv := Drv + '\';GetVolumeInformation(pChar(Drv),nil,0,@VolumeSerialNumber,MaximumComponentLength,FileSystemFlags,nil,0);Result:= (VolumeSerialNumber);function Serial(Num:DWORD): //这个号码是用户给你生成注册码的，它通过对硬盘序列号编码而来。var sNum: inChar:array[1..4]beginNum:=Num xor ;sNum:=inttostr(Num);inChar[1]:=char(((integer(sNum[1])+integer(sNum[2]))mod 5)+integer('a'));inChar[2]:=char(((integer(sNum[3])+integer(sNum[4]))mod 5)+integer('a'));inChar[3]:=char(((integer(sNum[5])+integer(sNum[6]))mod 5)+integer('a'));inChar[4]:=char(((integer(sNum[7])+integer(sNum[8])+integer(sNum[9]))mod 5)+integer('a'));insert(inChar[1],sNum,1);insert(inChar[4],sNum,3);insert(inChar[2],sNum,5);insert(inChar[3],sNum,9);Result:=sNfunction encode(License:string):var str,sNum: number: byte,byte1:array[1..4]inChar:array[1..3]beginstr:=delete(str,1,1);delete(str,2,1);delete(str,3,1);delete(str,6,1);number:=strtoint64(str);number:=number:=number xor $;byte[1]:=(number and $0ff000000) shr 24;byte[2]:=(number and $0ff0000) shr 16;byte[3]:=(number and $0ff00) shr 8;byte[4]:=(number and $0ff);byte1[1]:=((byte[1]and $0c0)+(byte[2]and $0c0)shr 2)+((byte[3]and $0c0)shr 4)+((byte[4]and $0c0)shr 6);byte1[2]:=((byte[1]and $30)shl 2)+(byte[2]and $30)+((byte[3]and $30)shr 2)+((byte[4]and $30)shr 4);byte1[3]:=((byte[1]and $0c)shl 4)+((byte[2]and $0c)shl 2)+(byte[3]and $0c)+((byte[4]and $0c)shr 2);byte1[4]:=((byte[1]and $03)shl 6)+((byte[2]and $03)shl 4)+((byte[3]and $03)shl 2)+(byte[4]and $03);number:=((byte1[1])shl 24)+((byte1[2])shl 16)+((byte1[3])shl 8)+(byte1[4]);byte[1]:=((number and $0ff000000)shr 24);//右移24位byte[2]:=((number and $0ff0000)shr 16);byte[3]:=((number and $0ff00)shr 8);byte[4]:=(number and $0ff);byte[1]:=(((byte[1] and $f0))shr 4)+(((byte[1] and $0f))shl 4);byte[2]:=(((byte[2] and $f0))shr 4)+(((byte[2] and $0f))shl 4);byte[3]:=(((byte[3] and $f0))shr 4)+(((byte[3] and $0f))shl 4);byte[4]:=(((byte[4] and $f0))shr 4)+(((byte[4] and $0f))shl 4);number:=((byte[2])shl 24)+((byte[1])shl 16)+((byte[4])shl 8)+(byte[3]);sNum:=inttostr(Number);inChar[1]:=char(((integer(sNum[1])+integer(sNum[2]))mod 5)+integer('a'));inChar[2]:=char(((integer(sNum[3])+integer(sNum[4]))mod 5)+integer('a'));inChar[3]:=char(((integer(sNum[5])+integer(sNum[6]))mod 5)+integer('a'));insert(inChar[1],sNum,1);insert(inChar[2],sNum,5);insert(inChar[3],sNum,9);result:=sNfunction decode(code:string):var str: number: byte,byte1:array[1..4]beginstr:=delete(str,1,1);delete(str,4,1);delete(str,7,1);number:= strtoint64(str);byte[1]:=(number and $0ff000000) shr 24;byte[2]:=(number and $0ff0000) shr 16;byte[3]:=(number and $0ff00) shr 8;byte[4]:=(number and $0ff);////0123 --& 1032byte[1]:=(((byte[1] and $f0))shr 4)+(((byte[1] and $0f))shl 4);byte[2]:=(((byte[2] and $f0))shr 4)+(((byte[2] and $0f))shl 4);byte[3]:=(((byte[3] and $f0))shr 4)+(((byte[3] and $0f))shl 4);byte[4]:=(((byte[4] and $f0))shr 4)+(((byte[4] and $0f))shl 4);number:=((byte[2])shl 24)+((byte[1])shl 16)+((byte[4])shl 8)+(byte[3]);byte[1]:=((number and $0ff000000)shr 24);//右移24位byte[2]:=((number and $0ff0000)shr 16);byte[3]:=((number and $0ff00)shr 8);byte[4]:=(number and $0ff);byte1[1]:=(byte[1]and $0c0)+((byte[2]and $0c0)shr 2)+((byte[3]and $0c&oceanwave ( 7:28)&谢先！试试看，可以后马上开贴给分。&妙兔无花 ( 7:41)&分&sxd02-12-3 7:50)&good!&oceanwave ( 8:1)&to zw84611:试了你的代码后，有几个问题请教：1、用GetHDNumber取得硬盘序列号后，用Serial生成注册码。那encode和decode如何用呢？2、如何将serial逆算成为硬盘序列号与原序列号相核对？3、Serial函数中第一行的应该就是一个加密转换的常量吧？还有inChar的Index值？oceanwave ( 8:35)&看了一篇这方面的文章，是VC++的，不过思路一样/develop/vc/article/.htmyouth[dfw] ( 8:37)&1、利用RSA算法2、在功能函数中进行校验3、多处进行校验4、利用线程、消息、延时5、监测软件关键点，防止强行跳过、、、飘摇客 ( 9:25)&可行，使用GUID，放在注册表中，同时把这个GUID发回给你，你可以使用这个进行注册码和注册码验证。获得GUID，&var&guid:TGUID;CoCreateGUID(guid);&ShowMessage(GuidToString(guid));yczjs ( 10:19)&用SoftSentry加密软件搞定Delphi园地飘摇客 ( 13:40)&其实任何的加密基本上都能被破解，这里给你一个思路。1、用户第一次运行软件后，生成一个GUID，保存在注册表中，另外存储在文件中或者写入系统已有的文件尾部。此为机器码，让用户发回，如果用户在注册表中删除了，就从文件中读取GUID，然后写入注册表。当然应该还需用户发回用户的相关信息，保证在重新安装机器时能向你索回注册码;2、根据此GUID写一个验证序列号的过程（软件中）;3、写一个注册机，根据用户邮寄回的GUID得到注册码，发给用户用于注册;4、最好提供在线更新功能，更新时记录用户机器码（GUID），如发现有同一个GUID对同一个版本进行更新，就发布新的版本，使该GUID对应的注册码不可用。&zbsfg ( 13:52)&oceanwave ( 14:16)&前面我有给过一个网址：/develop/vc/article/.htm这里就有提到：------------------------------------------------------------------------------为了确保注册码的唯一性，在注册源的采集上应当尽量选取一些唯一的、不易复制的软、硬件信息作为原始信息。而硬件由于其不可复制性和物理唯一性成为了我们的首选目标，而且多数计算机配件在出厂时都有一个唯一的标识号，我们可以将其作为识别的依据。符合上述条件的标识号大致有硬盘的序列号、网卡的序列号、BIOS中的主版序列号或主机出厂日期和标志等几种，考虑到硬件通用性、实现起来的难易程度以及系统安全性等多种因素以硬盘序列号为佳，因为网卡随说唯一性最好但不能保证每台计算机都装有网卡，而ROM BIOS中F000H-FFFFH区域虽存有与硬件配置有关的信息、F000H:FFF5H-F000H:FFFFH存有主机出厂日期和主机标志值等参数，但在Windows 9x的保护模式下编程实现是比较困难的。虽然在Windows 9x保护模式下对硬盘序列号也不能按通常在DOS模式下的通过硬盘端口1F6H和1F7H直接读取，但Windows API函数中提供的下面这个函数可以非常简单的获取到指定磁盘驱动器的序列号：&GetVolumeInformation("C:\\",NULL,NULL,&dwIDESerial,NULL,NULL,NULL,NULL);&第一个参数设为"C:\\"表示我们要读取C盘驱动器的序列号。之所以选C盘，是因为我们不能保证用户有多个分区，而C盘却是每一个用户都具有的。该函数成功调用完毕后，在DWORD型的变量dwIDESerial中就存储了获取到的32位长的磁盘序列号。注册信息采集到后，关键的问题就是如何让用户将其返回给开发者。一种较简单的方法是把采集到的硬盘序列号与用户输入的注册名经过位操作的简单加密后存放到一个文本中通过邮件传送给开发者。&------------------------------------------------------------------------------&oceanwave ( 11:20)&软件加密系列问题2：加密算法/delphibbs/dispq.asp?lid=1487410软件加密系列问题3：注册信息的保存/delphibbs/dispq.asp?lid=1487438oceanwave ( 11:23)&软件加密系列问题0：注册流程/delphibbs/dispq.asp?lid=1487449&zbsfg ( 9:23)&crc32算法，保证能用UNIT CRC32;INTERFACEUSESW // DWORD for D3/D4 compatibilityTYPE{$IFDEF VER130} // This is a bit awkward// 8-byte integerTInteger8 = Int64; // Delphi 5{$ELSE}{$IFDEF VER120}TInteger8 = Int64; // Delphi 4{$ELSE}TInteger8 = COMP; // Delphi 2 or 3{$ENDIF}{$ENDIF}PROCEDURE CalcCRC32 (p: ByteCount: DWORD; VAR CRCvalue: DWORD);PROCEDURE CalcFileCRC32 (FromName: STRING; VAR CRCvalue: DWORD;VAR TotalBytes: TInteger8;VAR error: WORD);IMPLEMENTATIONUSES{$IFDEF StreamIO}SysUtils, // SysErrorMessage{$ENDIF}Dialogs, // ShowMessageC // TMemoryStreamCONSTtable: ARRAY[0..255] OF DWORD =($, $, $EE0E612C, $990951BA,$076DC419, $706AF48F, $E963A535, $9E6495A3,$0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988,$09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91,$1DB71064, $6AB020F2, $F3B97148, $84BE41DE,$1ADAD47D, $6DDDE4EB, $F4D4B551, $83D385C7,$136C9856, $646BA8C0, $FD62F97A, $8A65C9EC,$14015C4F, $63066CD9, $FA0F3D63, $8D080DF5,$3B6E20C8, $4C69105E, $D56041E4, $A2677172,$3C03E4D1, $4B04D447, $D20D85FD, $A50AB56B,$35B5A8FA, $42B2986C, $DBBBC9D6, $ACBCF940,$32D86CE3, $45DF5C75, $DCD60DCF, $ABD13D59,$26D930AC, $51DE003A, $C8D75180, $BFD06116,$21B4F4B5, $56B3C423, $CFBA9599, $B8BDA50F,$2802B89E, $5F058808, $C60CD9B2, $B10BE924,$2F6F7C87, $58684C11, $C1611DAB, $B6662D3D,$76DC4190, $01DB7106, $98D220BC, $EFD5102A,$71B18589, $06B6B51F, $9FBFE4A5, $E8B8D433,$, $0F00F934, $9609A88E, $E10E9818,$7F6A0DBB, $086D3D2D, $91646C97, $E6635C01,$6B6B51F4, $1C6C6162, $, $F262004E,$6C0695ED, $1B01A57B, $, $F50FC457,$65B0D9C6, $12B7E950, $8BBEB8EA, $FCB9887C,$62DD1DDF, $15DA2D49, $8CD37CF3, $FBD44C65,$4DB26158, $3AB551CE, $A3BC0074, $D4BB30E2,$4ADFA541, $3DD895D7, $A4D1C46D, $D3D6F4FB,$4369E96A, $346ED9FC, $AD678846, $DA60B8D0,$44042D73, $33031DE5, $AA0A4C5F, $DD0D7CC9,$5005713C, $270241AA, $BE0B1010, $C90C2086,$, $206F85B3, $B966D409, $CE61E49F,$5EDEF90E, $29D9C998, $B0D09822, $C7D7A8B4,$59B33D17, $2EB40D81, $B7BD5C3B, $C0BA6CAD,$EDB88320, $9ABFB3B6, $03B6E20C, $74B1D29A,$EAD54739, $9DD277AF, $04DB2615, $73DC1683,$E3630B12, $94643B84, $0D6D6A3E, $7A6A5AA8,$E40ECF0B, $9309FF9D, $0A00AE27, $7D079EB1,$F00F9344, $, $1E01F268, $6906C2FE,$F762575D, $806567CB, $196C3671, $6E6B06E7,$FED41B76, $89D32BE0, $10DA7A5A, $67DD4ACC,$F9B9DF6F, $8EBEEFF9, $17B7BE43, $60B08ED5,$D6D6A3E8, $A1D1937E, $38D8C2C4, $4FDFF252,$D1BB67F1, $A6BC5767, $3FB506DD, $48B2364B,$D80D2BDA, $AF0A1B4C, $36034AF6, $41047A60,$DF60EFC3, $A867DF55, $316E8EEF, $4669BE79,$CB61B38C, $BC66831A, $256FD2A0, $,$CC0C7795, $BB0B4703, $, $5505262F,$C5BA3BBE, $B2BD0B28, $2BB45A92, $5CB36A04,$C2D7FFA7, $B5D0CF31, $2CD99E8B, $5BDEAE1D,$9B64C2B0, $EC63F226, $756AA39C, $026D930A,$9C0906A9, $EB0E363F, $, $,$95BF4A82, $E2B87A14, $7BB12BAE, $0CB61B38,$92D28E9B, $E5D5BE0D, $7CDCEFB7, $0BDBDF21,$86D3D2D4, $F1D4E242, $68DDB3F8, $1FDA836E,$81BE16CD, $F6B9265B, $6FB077E1, $18B74777,$88085AE6, $FF0F6A70, $66063BCA, $11010B5C,$8F659EFF, $F862AE69, $616BFFD3, $166CCF45,$A00AE278, $D70DD2EE, $4E048354, $,$A7672661, $D06016F7, $4969474D, $3E6E77DB,$AED16A4A, $D9D65ADC, $40DF0B66, $37D83BF0,$A9BCAE53, $DEBB9EC5, $47B2CF7F, $30B5FFE9,$BDBDF21C, $CABAC28A, $53B39330, $24B4A3A6,$BAD03605, $CDD70693, $54DE5729, $23D967BF,$B3667A2E, $C4614AB8, $5D681B02, $2A6F2B94,$B40BBE37, $C30C8EA1, $5A05DF1B, $2D02EF8D);// Use CalcCRC32 as a procedure so CRCValue can be passed in but// also returned. This allows multiple calls to CalcCRC32 for// the "same"&建议注册码采用CpuID+HD_SER+MAC，只有这些东东是不会常改变的，这样可以减少作者的一些工作，否则常给别人换注册码很累，最好还能做到网上较验，否则一个用户多个注册码的话也是挺棘手的事。tohappy ( 8:14)&关注下列问题，一定对你有益：/delphibbs/dispq.asp?lid=1743719/delphibbs/dispq.asp?lid=1742072/delphibbs/dispq.asp?lid=1655569/delphibbs/dispq.asp?lid=1786356&3cs ( 15:29)&得到硬盘物理号及简单的算法：我贴出，我都是用它，挺好的，哈哈！unit ISDNUNIT;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtypeTSrbIoControl=packed recordHeaderLength: ULONG;Signature: Array[0..7]Timeout: ULONG;ControlCode: ULONG;ReturnCode: ULONG;Length: ULONG;END;SRB_IO_CONTROL=TSrbIoCPSrbIoControl=^TSrbIoCTIDERegs=packed recordbFeaturesReg: BbSectorCountReg: BbSectorNumberReg:bCyllowReg:bCylhighreg:bDriveHeadReg:bCommandReg:bReserved:IDEREGS=TIDERPIDERegs=^TIDERTSendCmdInParams=packed recordcBufferSize: DWORD;irDriveRegs: TIDEREGS;bDriveNumber:bReserved: Array[0..2]dwReserved: Array[0..3] of DWORD;bBUFFER: array[0..10]SENDCMDINPARAMS=TSendCmdInPPSendcmdinparams=^TTIdSector=packed recordwGenConfig:wNumCyls:wReserved:wNumHeads:wBytesPerTrack:wBytesPerSector:wSectorsPerTrack:wVendorUnique: array[0..2]sSerialNumber: Array[0..19]wBufferType:wBufferSize :wECCSize:sFirmwareRev: array[0..7]sModelNumber: array[0..39]wMorevendorUnique:wDoubleWordIO: WORD;wcapabilities:wreservedL:wPIOTiming:wDMATiming:wBS:WORD;wNUMcurrentCYls:wNUMcurrentHeads:wNUMCurrentsectorsPerTRACK:WORD;ulCurrentSectorCapacity:ULONG;wMultSectorStuff:WulTotalAddressableSectors:ULONG;wSingleWordDMA:WwMultiwordDMA:bReserved: Array[0..127]PIdSector=^TidSECTOR;typeTForm1 = class(TForm)Label1: TLLabel2: TLprocedure FormActivate(Sender: TObject);private{ Private declarations }public{ Public declarations }// procedure ChangeByteorder( Size:INTEGER);// Function readhdserial:// FUNCTION ENCRyPT(serial:string):varForm1: TForm1;serial:inputserial:CONSTIDENTIFY_BUFFER_SIZE=512;DataSize=sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;IOCTL_SCSI_MINIPORT=$;IOCTL_SCSI_MINIPORT_IDENTIFY=$001b0501;IDE_ID_FUNCTION=$EC;BufferSize=1280;implementation{$R *.DFM}procedure ChangeByteorder( size:integer);varptr:PCi:INTEGER;C:CHAR;BEGINptr:=@for i:=0 to (size shr 1)-1 dobeginc:=ptr^;ptr^:=(ptr+1)^;(ptr+1)^:=c;Inc(ptr,2);function readhdserial:varhDevice:THcbBYTESReturned:DWORD;pindata:PSendCmdInP//pide:PpOutData:PBuffer:Array[0..BufferSize-1] of BsrbCONTROL:tSrbIoControl absolute Bbeginresult:='';Fillchar(Buffer,buffersize,#0);hDevice:=CreateFile('\\.\Scsi0:',GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0);if hDevice=INVALID_HANDLE_VALUEtrysrbControl.HeaderLength:=sizeof(SRB_IO_CONTROL);System.Move('SCSIDISK',srbControl.signature,8);srbcontrol.timeout:=2;srbcontrol.Length:=srbcontrol.ControlCode:=IOCTL_SCSI_MINIPORT_IDENTIFY;pInData:=PSendCmdInparams(pchar(@buffer)+sizeof(SRB_IO_CONTROL));pOutData:=pInDwith pInDATA^ DObegincBuffersize:=IDENTIFY_BUFFER_SIZE;bDriveNumber:=0;// irDriveRegs:=0;with irDriveRegs dobeginbFeaturesreg:=1;bsectorcountreg:=1;bsectornumberreg:=1;bcyllowreg:=0;bcylhighreg:=0;bdriveheadreg:=$A0;bcommandreg:=IDE_ID_FUNCTION;if not DeviceIoControl(hDevice,IOCTL_SCSI_MINIPORT,@Buffer,BufferSize,@buffer,buffersize,cbbytesreturned,nil) thenwith Pidsector(pchar(poutdata)+16)^ dobeginchangebyteorder(sSerialNUMber,sizeof(sserialnumber));setstring(result,sserialnumber,sizeof(......
阅读(207)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
在LOFTER的更多文章
loftPermalink:'',
id:'fks_',
blogTitle:'Delphi通过机器码获得注册码的完整方案',
blogAbstract:'Delphi通过机器码获得注册码的完整方案 &想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成代码3、用户在程序中输入该注册码，程序逆算该注册码，与机器码核对，查看是否相符。注册码逆算、核对代码，4、如果用户安装后没有得到注册码，在N天后部分功能不可用。不要太容易被改（虽然说安装后也只有少部份功能能用）。时限功能代码，',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:9,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}二次元同好交流新大陆
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(776)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'Delphi通过机器码获得注册码的完整方案',
blogAbstract:'通过机器码获得注册码的完整方案（转贴过来,留着看看）想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成代码3、用户在
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}