分手快乐 发表于 2015-2-16 00:24:00

ASP教程之ASP.Net及Asp中的MD5加密-16位32位

ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了. 关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用asp.net|加密   asp.net
援用内容:public string md5(string str,int code)
{
if(code==16) //16位MD5加密(取32位加密的9~25字符)
{
return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str,"MD5").ToLower().Substring(8,16) ;
}
else//32位加密
{
return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str,"MD5").ToLower();
}
}

asp
援用内容:Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)
Private m_l2Power(30)

Private Function LShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
      LShift = lValue
      Exit Function
    ElseIf iShiftBits = 31 Then
      If lValue And 1 Then
            LShift = &H80000000
      Else
            LShift = 0
      End If
      Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
      Err.Raise 6
    End If

    If (lValue And m_l2Power(31 - iShiftBits)) Then
      LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
    Else
      LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
    End If
End Function

Private Function RShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
      RShift = lValue
      Exit Function
    ElseIf iShiftBits = 31 Then
      If lValue And &H80000000 Then
            RShift = 1
      Else
            RShift = 0
      End If
      Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
      Err.Raise 6
    End If
   
    RShift = (lValue And &H7FFFFFFE)m_l2Power(iShiftBits)

    If (lValue And &H80000000) Then
      RShift = (RShift Or (&H40000000m_l2Power(iShiftBits - 1)))
    End If
End Function

Private Function RotateLeft(lValue, iShiftBits)
    RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function

Private Function AddUnsigned(lX, lY)
    Dim lX4
    Dim lY4
    Dim lX8
    Dim lY8
    Dim lResult

    lX8 = lX And &H80000000
    lY8 = lY And &H80000000
    lX4 = lX And &H40000000
    lY4 = lY And &H40000000

    lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)

    If lX4 And lY4 Then
      lResult = lResult Xor &H80000000 Xor lX8 Xor lY8asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。

飘飘悠悠 发表于 2015-2-16 00:50:29

不能只是将它停留在纸上谈兵的程度上。

若相依 发表于 2015-2-22 19:03:08

Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")

只想知道 发表于 2015-2-26 17:35:11

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。

第二个灵魂 发表于 2015-3-8 16:14:27

Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

莫相离 发表于 2015-3-13 09:10:12

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。

小魔女 发表于 2015-3-13 23:07:33

不能只是将它停留在纸上谈兵的程度上。

变相怪杰 发表于 2015-3-22 05:07:53

它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。

海妖 发表于 2015-4-21 22:13:08

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。

admin 发表于 2015-4-24 19:53:02

交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。

老尸 发表于 2015-5-1 09:10:34

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。

再现理想 发表于 2015-5-6 08:10:34

Session:这个存储跟客户端会话过程的数据,默认20分钟失效

因胸联盟 发表于 2015-5-12 14:32:52

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

兰色精灵 发表于 2015-6-6 10:49:37

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

活着的死人 发表于 2015-6-6 12:11:37

以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。

乐观 发表于 2015-7-21 08:46:20

不能只是将它停留在纸上谈兵的程度上。

深爱那片海 发表于 2015-7-24 11:25:23

以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

小妖女 发表于 2015-7-25 01:52:21

ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。

冷月葬花魂 发表于 2015-7-27 05:15:37

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
页: [1]
查看完整版本: ASP教程之ASP.Net及Asp中的MD5加密-16位32位