ʹÓÃASP¼ÓÃÜËã·¨¼ÓÃÜÄãµÄÊý¾Ý£¨Ò»£© 2000-07-06 00:00:00¡¤
²»Ïꡤyesky p>¼ò½é
¡¡¡¡Ê×Ïȼòµ¥½éÉÜÒ»ÏÂÓйؼÓÃܵı³¾°¡£ÓÉÓÚÃÀ¹ú½ûÖ¹¼¸ÖÖÃÜÂëËã·¨µÄ¶ÔÍâ³ö¿ÚµÄ¼ÓÃÜλÊý£¨ÀýÈçSSLµÄ40λ¼ÓÃÜÏÞÖÆ£©£¬±¾ÎĽ«½éÉÜÒ»ÖÖASP¿ÉÒÔʹÓõļòµ¥×Ö·û¼ÓÃÜËã·¨£¬¶ø²»ÊÇÄÇЩÊÜÏÞÖÆµÄ¼ÓÃÜËã·¨¡£Æäʵ£¬ÕâÀï½éÉܵļÓÃÜËã·¨¶ÔÓÚÒ»°ãµÄÔËÓÃÀ´ËµÒѾ×ã¹»½âÃÜÈËÂé·³Ò»Õó×ÓµÄÁË¡£ËüµÄ¼ÓÃÜ»ù´¡ÊÇ×î¼òµ¥µÄVernumÃÜÂë·½·¨£¬ÎÒ½«ÔÚÏÂһƪÎÄÕÂÖнéÉÜÕâÖÖÃÜÂë¡£
¡¡¡¡ËüµÄ»ù±¾ÔÀíÊÇ£¬ÐèÒªÓÐÒ»¸öÐèÒª¼ÓÃܵÄÃ÷ÎĺÍÒ»¸öËæ»úÉú³ÉµÄ½âÃÜÔ¿³×Îļþ¡£È»ºóʹÓÃÕâÁ½¸öÎļþ×éºÏÆðÀ´Éú³ÉÃÜÎÄ¡£
(Ã÷ÎÄ) ×éºÏ (ÃÜÔ¿) = ¼ÓÃܺóµÄÃÜÎÄ
¡¡¡¡ËùÒÔ±¾ÎĽéÉܵÄÊÇÉú³ÉÃÜÔ¿µÄ´úÂë¡£ÎÒÃǼÙÉèÎÒÃÇÉú³ÉµÄÃÜԿΪ512볤µÄÃÜÔ¿£¬ËüÒѾ×ã¹»À´¼ÓÃÜÒ»¸öÎı¾×Ö·ûÁË¡£´úÂëÈçÏ£º
KeyGeN.aspÎļþ
$#@60;%
******************************
KeyGeN.asp
******************************
Const g_KeyLocation = "C:\key.txt"
Const g_KeyLen = 512
On Error Resume Next
Call WriteKeyToFile(KeyGeN(g_KeyLen),g_KeyLocation)
if Err $#@60;$#@62; 0 Then
Response.Write "ERROR GENERATING KEY." & "$#@60;P$#@62;"
Response.Write Err.Number & "$#@60;BR$#@62;"
Response.Write Err.Description & "$#@60;BR$#@62;"
Else
Response.Write "KEY SUCCESSFULLY GENERATED."
End If
Sub WriteKeyToFile(MyKeyString,strFileName)
Dim keyFile, fso
set fso = Server.CreateObject("scripting.FileSystemObject")
set keyFile = fso.CreateTextFile(strFileName, true)
keyFile.WriteLine(MyKeyString)
keyFile.Close
End Sub
Function KeyGeN(iKeyLength)
Dim k, iCount, strMyKey
lowerbound = 35
upperbound = 96
Randomize Initialize random-number generator.
for I = 1 to iKeyLength
s = 255
k = Int(((upperbound - lowerbound) + 1) * Rnd + lowerbound)
strMyKey = strMyKey & Chr(k) & ""
next
KeyGeN = strMyKey
End Function
%$#@62;
¡¡¡¡ÔÚIISÏÂÔËÐÐÉÏÃæµÄKeyGeN.aspÒ³Ãæ¡£ÄãÖ»ÐèÒªÈç´Ë×öÒ»´Î£¬Ëû½«°ÑÃÜԿдÈëÎļþc:\key.txtÖÐ
(Èç¹ûÄãÔ¸ÒâµÄ»°£¬ÄãÒ²¿ÉÒÔ°ÑÕâ¸öÎļþ·Åµ½ÁíÍâÒ»¸ö¸ü¼Ó°²È«µÄµØ·½).È»ºóÄã¿ÉÒÔ´ò¿ªÕâ¸ökey.txtÎļþ£¬Ëü½«°üº¬512¸ CIIÂëÔÚ35µ½96Ö®¼äµÄ×Ö·û.²¢ÇÒÓÉÓÚÊÇËæ»úÉú³ÉµÄ£¬ËùÒÔÿ¸öÈ˵Ä˽ÈËÃÜÔ¿Îļþkey.txt½«ÊDz»Ò»ÑùµÄ£¬ÏÂÃæÊÇÒ»¸öÀý×ÓÃÜÔ¿Îļþ£º
IY/;$$#@62;=3)?^-+7M32#Q]VOII.Q=OFMC`:P7_B;$#@60;R/8U)XFHC$#@60;SR_E$.DLG=I+@5%*+OP:F_=;NSY`-^S.`AA=BJ3M0.WF#T5LGK(=/$#@60;:+C2K/^7AI$;PUOME2+T8ND?W$C(J\,;631M-LD5F%%1TF_&K2A-D-54[2P,#*JU%6`0RF3CMF0(#T07UFZ=$#@62;#,+.AW_/+]DIB;2DTIA57TT&-)O/*FM$#@62;H.XH5W^0Y*=71+5*^`^PKJ(=E/X#7A:?,S$#@62;R&T;+B#$#@60;:-*\@)X9F`_`%QA3Z95.?_T#1,$2#FWW5PBH^*$#@60;])A(S0@AVD8C^Q0R^T1D?(1+,YE71X+.*+U$:3XO^Q].KG&0N0];[LJ$#@60;OZ6IN?7N4$#@60;GTL?(M4S8+3JMK5]HC%^1^+K;\$WBXPA?F&5^E\D$7%*O/U[1/?8(5:1OVWV*1Z-%`:K&V?X1,1KURD@3W0^D)$#@60;OG40?(VJ4EWL5A5M$#@60;$A);CQ36R9I]*U#Q%1$#@60;Y\&SA%#1$#@60;V
¡¡¡¡ÏÂÃæÔÙ×Ðϸ·ÖÎöÒ»ÏÂÉÏÃæµÄ³ÌÐò£¬ÎÒÃÇ·¢ÏÖÆäÖеÄlowerboundºÍupperboundµÄÊýÖµÆäʵ¾ÍÊÇÄãÏëʹÓÃÀ´¼ÓÃܵÄASCII×Ö·û·¶Î§¡£ºóÃæÒ»ÆªÎÄÕÂÖн«½éÉÜÈçºÎʹÓÃÕâ¸öÃÜÔ¿À´¼ÓÃܺͽâÃÜÒ»¸ö×Ö·û´®
|