如何用asp进行base64加密

<%
     OPTION EXPLICIT
     const BASE_64_MAP_INIT =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
     dim nl
     ' zero based arrays
     dim Base64EncMap(63)
     dim Base64DecMap(127)

     ' must be called before using anything else
     PUBLIC SUB initCodecs()
          ' init vars
          nl = "<P>" & chr(13) & chr(10)
          ' setup base 64
          dim max, idx
             max = len(BASE_64_MAP_INIT)
          for idx = 0 to max - 1
               ' one based string
               Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1)
          next
          for idx = 0 to max - 1
               Base64DecMap(ASC(Base64EncMap(idx))) = idx
          next
     END SUB

     ' encode base 64 encoded string
     PUBLIC FUNCTION base64Encode(plain)

          if len(plain) = 0 then
               base64Encode = ""
               exit function
          end if

          dim ret, ndx, by3, first, second, third
          by3 = (len(plain) \ 3) * 3
          ndx = 1
          do while ndx <= by3
               first  = asc(mid(plain, ndx+0, 1))
               second = asc(mid(plain, ndx+1, 1))
               third  = asc(mid(plain, ndx+2, 1))
               ret = ret & Base64EncMap(  (first \ 4) AND 63 )
               ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16)
AND 15 ) )
               ret = ret & Base64EncMap( ((second * 4) AND 60) + ((third \ 64)
AND 3 ) )
               ret = ret & Base64EncMap( third AND 63)
               ndx = ndx + 3
          loop
          ' check for stragglers
          if by3 < len(plain) then
               first  = asc(mid(plain, ndx+0, 1))
               ret = ret & Base64EncMap(  (first \ 4) AND 63 )
               if (len(plain) MOD 3 ) = 2 then
                    second = asc(mid(plain, ndx+1, 1))
                    ret = ret & Base64EncMap( ((first * 16) AND 48) +
((second \
16) AND 15 ) )
                    ret = ret & Base64EncMap( ((second * 4) AND 60) )
               else
                    ret = ret & Base64EncMap( (first * 16) AND 48)
                    ret = ret & "="
               end if
               ret = ret & "="
          end if

          base64Encode = ret
     END FUNCTION

     ' decode base 64 encoded string
     PUBLIC FUNCTION base64Decode(scrambled)

          if len(scrambled) = 0 then
               base64Decode = ""
               exit function
          end if

          ' ignore padding
          dim realLen
          realLen = len(scrambled)
          do while mid(scrambled, realLen, 1) = "="
               realLen = realLen - 1
          loop
          dim ret, ndx, by4, first, second, third, fourth
          ret = ""
          by4 = (realLen \ 4) * 4
          ndx = 1
          do while ndx <= by4
               first  = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
               second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
               third  = Base64DecMap(asc(mid(scrambled, ndx+2, 1)))
               fourth = Base64DecMap(asc(mid(scrambled, ndx+3, 1)))
               ret = ret & chr( ((first * 4) AND 255) +   ((second \ 16) AND 3)
)
               ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND
15) )
               ret = ret & chr( ((third * 64) AND 255) +  (fourth AND 63) )
               ndx = ndx + 4
          loop
          ' check for stragglers, will be 2 or 3 characters
          if ndx < realLen then
               first  = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
               second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
               ret = ret & chr( ((first * 4) AND 255) +   ((second \ 16) AND 3)
)
               if realLen MOD 4 = 3 then
                    third = Base64DecMap(asc(mid(scrambled,ndx+2,1)))
                    ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND
15) )
               end if
          end if

          base64Decode = ret
     END FUNCTION

' initialize
     call initCodecs

' Testing code
'    dim inp, encode
'    inp = request.QueryString("input")
'    encode = base64Encode(inp)
'    response.write "Encoded value = " & encode & nl
'    response.write "Decoded value = " & base64Decode(encode) & nl
%>

时间: 2024-09-17 02:32:46

如何用asp进行base64加密的相关文章

昨天有人问如何用asp进行base64加密,这个就是

加密 <%     OPTION EXPLICIT     const BASE_64_MAP_INIT ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"     dim nl     ' zero based arrays     dim Base64EncMap(63)     dim Base64DecMap(127)      ' must be called before using

如何使用asp进行base64加密

加密 bigeagle 于 2000-11-9 10:48:18 加贴在 Joy ASP ↑: <% OPTION EXPLICIT const BASE_64_MAP_INIT ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim nl ' zero based arrays dim Base64EncMap(63) dim Base64DecMap(127) ' must be call

ASP.NET网站链接字符串Base-64加密怎么破解,或者我想不用Base-64加密,怎么破?

问题描述 小弟下载了个ASP.NET的网站源码,发现config中数据库链接字符串是Base-64加密的,百度破解的都是乱码,伤心--小弟要求能破解这个Base-64,让我更改链接字符串,或者,重新自定义链接字符串,不读他加密的那个字符串Key.请问怎么解决?需要详细资料可以加我QQ476635337.添加时注明CSDN.拜谢!!! 解决方案 解决方案二: 解决方案三:楼主是想让大家照着图片自己打一遍那个base64字符串么解决方案四:帮顶!解决方案五:想知道先把分给我解决方案六:首先找到他的数

利用ASP给主页加密之一

利用ASP给主页加密 Active server pages (动态服务器主页,简称ASP),能够让我们产生动态的.互动性.高效能的WEB应用程序,使我们能用非常简单的方法通过网页查询和修改数据库,现在已被越来越多的WEB设计人员所接受.但是我们在开发中往往遇到这样一种情况,即希望让某些页面受到保护,只让经过受权的用户访问,对一般用户则拒绝访问. 下面我就向大家介绍如何用ASP来创建一个简单的,但是却相当有效的登录方案,从而保证WEB应用程序的安全性.只要你按照以下的步骤做,你将会拥有一个安全的

如何用ASP编写网站统计系统(四) (转自gaoshan)

统计 如何用ASP编写网站统计系统(四) 本文只做方法探讨. 能采集数据我们都能采到了,那么我们就开始编制ASP的统计页面. 这一页我们叫计数页,counter.asp 这段asp代码我们需要让它按如下的流程进行采集数据并保存数据和更新数据: 采集用户名,判断用户名是否合法,采集访问者的信息,对信息进行加工,进行保存和更新数据库,返回logo图标. 调用这个ASP用counter.asp?user=abc这个方式. 采集用户名我们可以用Request对象的相应方法取得,然后检查用户表判断用户是否

如何用ASP编写网站统计系统(三) (转自gaoshan)

统计 如何用ASP编写网站统计系统(三) 设计表结构是一项极其重要的工作,它的合理与否与程序的编制紧密相关. 一个网站统计系统应该有一个用户表,统计值表. 这个用户表也就是保留注册用户信息的表,统计值表就是记录用户的每一项统计指标值的表.在统计值的表中我们可以指定用户的统计指标,我们可把每一个指标用一个ID值来表示,这里我们简单举例. 用户表: Table Name:regist_table Field type username C 用户名 password C 密码 regdate C 注册

如何用ASP编写网站统计系统(二) (转自gaoshan)

统计 如何用ASP编写网站统计系统(二) 1.取得用户的操作系统. 在ASP中使用如下语句可以得到访问者的http_user_agent字符串. Dim StrUserAgent StrUserAgent=Request.ServerVariables("HTTP_USER_AGENT") 这个字符串一般是如下格式: Mozilla/4.0 (compatible; MSIE 4.01; Windows 98) 上面的字符串可以说明访问者使用的操作系统是Windows98,浏览器是MS

如何用ASP编写网站统计系统(一) (转自gaoshan)

统计 如何用ASP编写网站统计系统(一) 在目前的网站统计系统决大部分都是CGI的,但编写起来特别复杂,而ASP学起来简单,更有和数据库结合的优点,所以结合自己曾经做过的网站统计系统,和大家探讨一下ASP编写网站统计系统. 大家都看过网易的网站统计系统,它可以统计总访问量,每日平均访问量,当日访问量,最高访问量,最高访问日期,日流量分析,月流量分析,周流量分析,浏览器分析,等等. 其实要做一个ASP的访问统计系统关键是系统表结构的设计.以及如何来采集用户的CGI变量,如何来显示用户的信息.也就是

如何用ASP建立图表

图表 现在我们针对EXCEL举另外一个例子,大家都询问如何用ASP建立图表的问题,以下就是解决方案<BR><BR>First we set the type of script<BR>首先设定脚本类型<BR><%@ LANGUAGE="VBSCRIPT" %><BR><BR>Make the object, and set the object to an Excelsheet<BR>建立E