Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPµÄDES¼ÓÃܽâÃÜ

ASPµÄDES¼ÓÃܽâÃÜ
2007-05-18 09:49
Ô­ÎÄ£ºhttp://hi.baidu.com/myfav/blog/item/3ebc58828edd79a30cf4d290.html
ǰÁ½Ììѧµ½¶Ô³ÆÃÜÂëDESËã·¨£¬È»ºó¾Í×Ô¼ºÇ×ÊÖдÁ˸öʵÏÖ³ÌÐò³öÀ´£¬ºÃ¶àµØ·½ÓõÃ×ÅÄÅ¡£ÕâÀïÊÇÓÃASPʵÏÖ£¬µ±È»Ò²¾ÍÊÇ¿ÉÒÔÒÆµ½VBÀ²¡£¶®µÃÔõÑùдºóд³ÉʲôÓïÑÔ¶¼ÐÐÀ²£¬Ö»Òª¶®µÃÄÇÃÅÓïÑÔ¡£Èç¹ûÓÐÅóÓÑÏëÖªµÀ¾ßÌåDESËã·¨¹ý³ÌÊÇÔõÑùµÄ£¬¿ÉÒÔµ½ÍøÉϲéÕÒ¡£
£¨ÕâÁ½ÌìÓÖ°ÑËü¸Ä½øÁËһϣ¬¼ÓÃÜ×Ö·û´®²¢ÇÒʹÓÃÊ®Áù½øÖÆ£¬ÕâÑù¼ÓÃܺóµÄ×Ö·û´®»á¶ÌЩ~~~      —— 2007Äê5ÔÂ2ÈÕ£©
<%
Class Cls_DES
     Private IPRule, CPRule, EPRule, PRule, SBox(7), PCRule(1), MvRule
     Private K(16), L(16), R(16)
     Private FillCode, DesStatus
    
     Private Sub Class_Initialize()
         DesStatus = -1
         FillCode = "0001101"
         IPRule = "58,50,42,34,26,18,10,2," &_
             "60,52,44,36,28,20,12,4," &_
             "62,54,46,38,30,22,14,6," &_
             "64,56,48,40,32,24,16,8," &_
             "57,49,41,33,25,17, 9,1," &_
             "59,51,43,35,27,19,11,3," &_
             "61,53,45,37,29,21,13,5," &_
             "63,55,47,39,31,23,15,7,"
         CPRule = "40, 8,48,16,56,24,64,32," &_
             "39, 7,47,15,55,23,63,31," &_
       &


Ïà¹ØÎĵµ£º

ÔÚÏß²éÕÒ/ÕýÔòÌæ»»ÎļþÖÐÎı¾µÄÍøÒ³½Ó¿Ú(asp)

<%
response.Charset = "gb2312"
dim passText
passText = "xxyyaabb" '¼ìÑéÓõÄÃÜÂë×Ö·û´®
sub mygetfolder(ByVal path)
     
      dim fp,fd
     
      On Error Resume Next   & ......

asp¼°asp.netµÄurlencodeÎÊÌâ

ÎÒÏëÔÚaspÖмÓÒ»¸öÁ´½Ó£¬Ö¸Ïòasp.netÍøÒ³£¬µ«asp.netµÄÍøÖ·ÊǾ­¹ýHttpUtility.UrlEncode±äÐκÍHttpUtility.UrlDecode±ä»ØµÄ£¬¶øaspµÄserver.urlencodeÈ´²úÉú²»Á˺ÍHttpUtility.UrlEncodeÒ»ÑùµÄ±àÂ룬ÇëÎÊÓÐûÓнâ¾ö°ì·¨
²¹³ä£ºÔ­À´asp.netµÄÊÇ"web.aspx?str="+HttpUtility.UrlEncode(str)
ºÍHttpUtility.UrlDecode(Requ ......

aspÁ´½ÓsqlÊý¾Ý¿â ´úÂë

 dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")'´´½¨Ò»¸öÊý¾Ý¿âÁ´½Ó¶ÔÏóconn£¬·½±ãºóÃæµ÷ÓÃ
connstr="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=111;User ID=sa;Password=1234;" '´´½¨Ò»¸öÊý¾Ý¿âµÄrecordset¶ÔÏ󣬷½±ãÒÔºóµ÷ÓÃ
conn.Open connstr'´ò¿ªÊý¾Ý¿â ......

ASPÓëÊý¾Ý¿âÓ¦ÓÃ(¸ø³õѧÕß)

ASPÓëÊý¾Ý¿âÓ¦ÓÃ(¸ø³õѧÕß)
--------------------
¼û×î½üÐí¶àÍøÓÑѯÎÊһЩ¹ØÓÚÊý¾Ý¿â²Ù×÷µÄ»ù´¡ÎÊÌ⣬ÏÖ°ÑÎÒÒÔǰдµÄһƪ¼òµ¥½Ì³ÌÌùÉÏÀ´£¬ºÃÈÃһЩ³õѧÕß×î¿ìµÄÈëÃÅ£º
ASPÓëÊý¾Ý¿âÓ¦Ó㨸ø³õѧÕߣ©
Ò»°ãÀ´Ëµ£¬Ò»¸öÕæÕýµÄ¡¢ÍêÕûµÄÕ¾µãÊÇÀë²»¿ªÊý¾Ý¿âµÄ£¬ÒòΪʵ¼ÊÓ¦ÓÃÖУ¬ÐèÒª±£´æµÄÊý¾ÝºÜ¶à£¬¶øÇÒÕâЩÊý¾ÝÖ®¼äÍùÍù»¹ ......

´î½¨¼òÒ×µÄasp·þÎñÆ÷ ÓÃÓÚÊÖ»ú°²×°²âÊÔ³ÌÐò

À¶ÑÀ»µµôÁË£¬ÕâÑùÒ»À´ ÊÖ»ú°²×°³ÌÐò±äµÃºÜ²»·½±ãÁË¡£Ò»¿ªÊ¼ÊÇÏȰÑÒª°²×°µÄ³ÌÐòÒÔ¸½¼þµÄÐÎʽ·¢µ½ÓÊÏä ÔÙÔÚÊÖ»úÉÏÅäÖÃÓÊÏä ÈúóÏÂÔØ¸½¼þ°²×°£¬ÕâÑùËäÈ»½â¾öÁËÎÊÌâ  µ«ÊÇ»¹ÊÇÓкܶ಻·½±ãµÄµØ·½¡£ ÓÚÊÇ  ×Ô¼ºÏë´î½¨Ò»¸ö·þÎñÆ÷ Ö±½ÓʵÏÖÔÚÏß°²×°¡£Ç°ÌáÊÇÊÖ»úÖ§³Öwifi£¬¾ÍÊÇ˵ÐèÒªÊÖ»ú·ÃÎÊÄÚÍøµØÖ·£¬·ñÔòµÃ»° ¾Í±È½Ï ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ