[原创文章] 关于国内某知名大学网站加密算法的研究

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm4 Z9 X( ?& I0 q: g
, W8 B! u2 h7 I  r$ Q1 |
看不懂的直接绕过, x% A$ u, o' o+ W' P
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
" @9 z0 k& G& w
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家" B4 Q' A( M, `% a9 j7 s5 g  T: X
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件0 h- v2 s2 H$ _! r

文件名RSA.ASP1 y. V+ {3 i  G% l( l2 @6 ?" y7 ?, ^
===============================================
<% : F! s/ \$ x: X2 m% W
Class clsRSA
Public PrivateKey
Public PublicKey % x6 g" m1 e5 X. I
Public Modulus - o, v5 y  I% \, |
Public Function Crypt(pLngMessage, pLngKey) * D2 K$ \: ]& C" w. R- ^
On Error Resume Next ) S4 B- Y' t! i: ~
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then + N4 K' R8 p8 O4 P6 z& q$ i4 L
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation # l6 a2 ^* q1 ~7 ~9 \! f
lLngResult = (lLngMod * lLngResult) Mod Modulus $ m) z# z7 k* I( ^4 d' c
If Err Then Exit Function & Y, X# n/ v1 z. r) U' o
Next
Else
lLngResult = pLngMessage ; m, r4 M" R% {
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus . B- P1 g6 I/ o8 g1 U+ m) @6 N1 [
If Err Then Exit Function 0 W: Z7 C: n! g* [1 l% W; `3 t7 s
Next * K6 X# @, U4 r5 L
End If
Crypt = lLngResult
End Function- v  N5 h( _& V2 {

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex 3 D3 Z/ F/ E# a# z1 {. q
Dim lBytAscii + [' E9 m0 U% ^- f. U& r7 ?/ G& ~
Dim lLngEncrypted 3 F$ V9 k6 k/ q8 i4 a7 T, @
lLngMaxIndex = Len(pStrMessage) 3 h+ p+ p' m" p, \' F/ U
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 v7 V0 A, g8 I# k* ?: ^
lLngEncrypted = Crypt(lBytAscii, PublicKey) 5 B7 k$ Q, j% w
Encode = Encode & NumberToHex(lLngEncrypted, 4) % {1 E/ P2 V6 x& _5 l9 f; R
Next 7 R; M/ e$ U4 t  r2 ~6 n9 s
End Function
Public Function Decode(ByVal pStrMessage) 0 F4 n( P0 V' N
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" 4 l4 y9 y! ]! @/ x1 l  k  x
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4   ?0 ]" F- @* k% K) ~# G
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function 4 S6 N* o" Z; ]" s% w
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) : g4 C2 X$ O$ Q# D) x
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) 0 L. `5 d4 [( b6 w8 n
Dim LngKeyE ( S+ Z  f* U8 V0 {( d# j5 Z
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 c1 x3 s4 d5 L: p# @# T/ \
Dim ObjRSA
LngKeyE = "32823" : s1 v; A' T7 G6 G4 |9 {
LngKeyD = "20643" 4 F! E7 b( h& o. N3 ?, o
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE - U% J0 G4 d; s1 C. I6 E
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 1 V& y0 ^: }, l: `1 i( W) N# ^0 |
end function) }/ w& W8 H) B% A9 r8 n; G, I! x: j8 D
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ' E" ^. |# J/ }% b+ T6 _
Dim LngKeyN 2 [! ^: @& H; \0 ~+ T0 |- L
Dim StrMessage 6 D- I% {; g" J
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 3 k! j5 a  A. @/ v; \* t
LngKeyN = "29893" % ^2 e( o4 ?$ f2 S, B2 \) B3 V
StrMessage = Message 2 n# N0 x* d+ h; D4 c: k! b+ C
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD : a. F% S/ @3 p, t; X
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function & v% ^) e% a8 P% n
%>! X, V" g$ K( U4 p2 Z( y3 |
===============================================
$ h$ }7 C6 b, ?2 M' I3 Y
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下1 K  b/ ?; e# N: G0 \
 6 m5 D: ^7 A& `/ T- v. N3 ?7 S
<%0 n$ ~/ B9 {+ K% G! |% H! m' W
function Encryptstr(Message)
Dim LngKeyE & d9 N5 a9 g: L6 w2 K" k
Dim LngKeyD
Dim LngKeyN ' u$ O4 M6 p) z8 q2 ^  v+ |
Dim StrMessage . u9 `/ f  T7 X1 i) X0 A/ F
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ( R& W; A# r& m8 {( V1 {
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN # D& n8 ^  |2 ~
Encryptstr = ObjRSA.Encode(StrMessage) ! u' z% B( [. I! n7 ^
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE ; \6 ^/ W6 l6 I" I7 V
Dim LngKeyD
Dim LngKeyN " Q( F, e: Q# s/ ?$ A8 G0 K
Dim StrMessage # s9 s& p* Q) k+ V
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 2 s" o4 x5 J' D' z9 d
LngKeyN = "29893" / W7 _9 ^; ]6 F( }
StrMessage = Message
Set ObjRSA = New clsRSA ; |) d% C; N4 i' \% Q7 ~. J
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN * k6 b$ [2 E4 c: g$ ^8 B
decryptstr=ObjRSA.Decode(StrMessage) 1 b8 I$ ~# l7 _: c8 m; R6 c, j7 Q
Set ObjRSA = Nothing % L4 I. D0 N$ I) [$ V: Y/ Z6 ?# Y, k
end function 1 @8 W& u4 x0 q; \/ S" Y+ I" m
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了! i( z6 M' x) o# \% A
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75/ [7 A" s4 e2 r  T# n0 {" W& r
4_____26CC# l" J0 G) D* e" ^5 A
5_____4F88
6_____3F4E* H. U# r* v( i& V/ X- T
7_____0A9D0 h' c% h: {. c4 q
8_____1A1C& A, `+ }9 H  V
9_____6D20
0_____10898 d0 c7 j. ~: S. n) W
a_____0F3E5 A$ Y. @) k9 u1 Q( t" b
b_____31596 a# ?1 I3 U6 a( y' \& ?" q/ T0 i! J) r
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F, [2 ]& ?' ?% r
h_____0F9C; _. H4 t1 g" O
i_____00FA; k8 C4 Q/ y; D4 H% }, s
j_____5A50" I' j' V# a# k# l% n( w! [
k_____2850
l_____3E7B
m_____71C5; K. |: {( t7 L+ y
n_____1FC8
o_____74C1
p_____5FB8
q_____6085' c$ C5 P  e! d. |3 S) o) c
r_____3AC4
s_____2F509 n1 U0 N' j4 X, u
t_____36F82 `+ V* Z7 q+ H
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7+ `4 u' _& k. z2 A2 X  N: `- ?
z_____5CF3
!_____6233
@_____3A45
#_____2291" Z3 E/ f+ m( [' l- B, V
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____4659% e0 b4 H. G& Z0 ^# v# u
)_____5C82

希望做站长本人的学生请点击
http://www.3ast.com/viewthread.php?tid=13841
QQ790653916只负责SEO以及收费教学等方面联系，他人勿扰
于智者同行，你会不同凡响；与高人为伍，你会登上巅峰

鱼儿无心

3.A.S.T士兵

Rank: 1

帖子: 22
积分: 22
威望: 22
金钱: 5
在线时间: 0 小时

2楼

发表于 2011-12-4 17:17 | 只看该作者

收藏了。。。。。。。。

TOP

返回列表

[原创文章] 关于国内某知名大学网站加密算法的研究

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]