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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm1 J- f+ x4 ^, h6 e! L  U1 {; u
原始出处：http://www.3ast.com.cm

看不懂的直接绕过5 c, @0 c" ]1 _4 Z
加密前为:hwy123456- V' `% C2 K# t2 t1 N3 d
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E% D0 W! H  Z/ w5 _6 L! y* E/ M
2 V1 E# a# ?( m
============================================0 A* J/ |& g6 r7 l1 o& O
上面是当时自己校内的心情。现在已经解破出来了，分享给大家# Y1 ]  r3 [) U3 f3 f0 g9 `
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
8 j: f6 w& q0 w; d; b7 G+ i0 }$ s
文件名RSA.ASP2 _( j$ g$ y2 c* C4 q
===============================================  V. T: e3 J$ ^' j
<% & i# t" s" i0 G$ B
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus % n1 ^6 u5 N. l; c) ^% i& b! W
Public Function Crypt(pLngMessage, pLngKey) + ]- P0 c4 N$ h' B* g
On Error Resume Next # F0 k$ Z5 h' F' b' s4 k' U
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ) N" N; H2 p, B! d" s2 k0 ^* y
Else
lLngResult = pLngMessage 4 d  r2 L$ S/ H5 r& C
For lLngIndex = 1 To pLngKey / 2 + O* J$ O5 @/ w6 E* k: {
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 4 B( A4 r4 Y. E, Z: B8 d* x
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function " w' M1 Q  `% E% Y( m9 R0 }9 l( h" F6 n
Next
End If
Crypt = lLngResult + O0 k9 T+ f& e; Z  p
End Function

Public Function Encode(ByVal pStrMessage) & m1 k, n; s* E% x
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii 7 O* |5 S- F* w
Dim lLngEncrypted - s9 ?: |7 p! I8 B
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex # E" }' Z4 g+ ]9 v9 j1 e/ [
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ( n) A4 C1 w3 Y
lLngEncrypted = Crypt(lBytAscii, PublicKey) + ~8 ?, Q1 u3 a7 s
Encode = Encode & NumberToHex(lLngEncrypted, 4) 3 F2 K8 F7 W8 ~1 m+ m6 s
Next
End Function 6 R2 o1 H$ B) K. s# W8 ]
Public Function Decode(ByVal pStrMessage) ) r. q" }' y4 ?2 O) i' @7 _; M
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex 5 F. f9 ^2 z- n
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) + ^) C0 ]& a; G& k( B, `
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function * k' |' Z! H0 }* G/ s: X) q* }1 s+ n
Private Function HexToNumber(ByRef pStrHex) & j* E' [- z7 K2 Z! m1 S5 W/ `
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN   [  @  N" H/ v+ b8 t7 }- w
Dim StrMessage 1 h) P7 l( y- W( f! |
Dim ObjRSA
LngKeyE = "32823" 3 N8 {3 D8 s6 E! b
LngKeyD = "20643" 0 d# `  G5 @- h4 O" ?
LngKeyN = "29893"
StrMessage = Message 0 k9 z( L8 _1 _) X' V
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function# [# W4 H, i- U$ h. a# C+ x2 e
Function Decryptstr(Message)
Dim LngKeyE 5 k  {+ U) F- ]
Dim LngKeyD $ \6 _8 N* I4 e4 b6 [, `" z9 i' P- w$ R
Dim LngKeyN
Dim StrMessage
Dim ObjRSA , K) |* q: K* t
LngKeyE = "32823"
LngKeyD = "20643" " [8 V& C* c/ G1 b6 I
LngKeyN = "29893" & t9 h* Q% g4 q: ?
StrMessage = Message # o1 }# N* f* Y
Set ObjRSA = New clsRSA & R  c8 o# v/ I
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ; N: Z. O! ]7 j$ P2 O; \/ L: @
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================
: n8 `2 p8 R4 O* N: N* m
还有一个用于测试这段代码的test.asp5 d- H8 j7 K2 G# V
有兴趣的自己搭建个IIS测试下

<%+ F5 E$ c2 I- X3 \2 V- p
function Encryptstr(Message)
Dim LngKeyE % `' L, k) _3 J: g
Dim LngKeyD
Dim LngKeyN 0 ~7 e% h/ M% G3 s- H
Dim StrMessage - r' o* v1 T2 c; S2 v7 i( v5 w
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" * ~4 N7 K5 b' j3 n* a; ]+ R
LngKeyN = "29893" + G& R! Y; w7 u. s
StrMessage = Message
Set ObjRSA = New clsRSA + E0 c7 l( r7 [
ObjRSA.PublicKey = LngKeyE 7 L0 A3 Q; |/ D1 K8 h8 ]" ~
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) * G: Y* v3 w* R' Q# z
Set ObjRSA = Nothing
end function " e  T+ M7 m( d$ P
function decryptstr(Message) . w% X& e# a7 i
Dim LngKeyE
Dim LngKeyD / r+ N; d5 R& n8 I1 X1 ]) }' w
Dim LngKeyN 4 }$ y. \& x4 c7 s8 D8 B8 C
Dim StrMessage
Dim ObjRSA ) H% D5 P! v5 a9 i/ E* I6 O% p/ g
LngKeyE = "32823" ; O2 L, S) j7 o5 a
LngKeyD = "20643"
LngKeyN = "29893" 5 T' m0 x- E$ ~; B2 I6 B0 A
StrMessage = Message 7 m; V2 c8 R$ Q) K$ E
Set ObjRSA = New clsRSA ) {5 r% {, M2 B: n
ObjRSA.PrivateKey =LngKeyD 7 }$ [* F5 M: z/ R6 H
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 2 W0 [$ n9 p  i2 `9 c
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first . I+ z" S5 b. Y, I# C7 m
last=Encryptstr(first) 1 B: Q) a7 W3 l8 R' h" Q
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================; {2 M2 Q5 t, F
剩下的就是字符的对照表了
===================字符集================$ B( N' ?7 o3 a/ n
1_____6EBB
2_____5C1F
3_____4D757 q1 y- c. r  R5 c2 x6 h0 X5 T
4_____26CC
5_____4F880 x+ J) f" B" {8 X
6_____3F4E" y# E0 B& q0 F& j
7_____0A9D$ l5 B  p7 o! L3 ~1 ?. x& A) I, J
8_____1A1C$ d' _9 a, w, `4 J# |6 M) g
9_____6D20' R2 P4 F3 l2 E+ o
0_____1089  Q- \. ?$ p- b! X3 r  q+ ?! k
a_____0F3E
b_____3159
c_____3517* I6 S( s' y" R
d_____419C
e_____615C
f_____556F4 Y  l1 [: }$ q" @, P# w
g_____2B7F* D# A# J, B2 H" w
h_____0F9C. |/ a/ S! E) F2 A+ y% s
i_____00FA
j_____5A503 }4 F& m! `5 L
k_____28503 W  c2 k  Z* F) n; H. o/ }
l_____3E7B
m_____71C50 ^% ~! z7 z$ L" s+ i' V  J
n_____1FC85 ^) C# M, u/ o( L: ?
o_____74C1
p_____5FB83 F5 i8 I2 q  v, ?" A6 h. [4 ^" r2 ]8 i
q_____60852 F* X/ \# I1 {5 Y. k
r_____3AC4
s_____2F50! _8 I. L# Q) ^0 z6 [% O0 k
t_____36F89 ^( S# i, z2 p6 s# a* o
u_____7010( D$ ~. H  \( \
v_____0B42
w_____1C7A/ S7 b  p- }% h9 Z, y
x_____16F81 v* B2 l1 e$ Y' i* u
y_____2EE7
z_____5CF3  l; S) i. m5 I) ^4 w) s* O7 Q- Z
!_____62339 Z  }8 C1 y( i9 U
@_____3A45" k2 [" l% b1 S" O+ B2 p
#_____22910 ?  d" C  W3 h* P+ X/ W4 I
$_____5D5C+ Y7 y% ]$ A- u3 O$ ]
%_____09B9& L6 b9 K9 s) K. B. y1 A& ?
^_____43EA; B( `9 O' J4 K9 J8 q
&_____62B9
*_____6301" I- Q4 O4 J, ~0 }( r: d
(_____4659
)_____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 分享给朋友]