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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm4 S( Z. p4 a% G; S" f
原始出处：http://www.3ast.com.cm
- z% Q4 q* D3 c$ ?$ b' ]. v$ y
看不懂的直接绕过
加密前为:hwy123456: T, Y4 K" \  q$ V7 Q2 H
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
0 X9 P1 L6 P7 [& ]' k( z( l1 }4 n
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家/ G: |# s+ q7 A" p) V" `) C+ m
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法. H- p; ?" r( \2 e- y3 N# q
以下是RSA算法文件
/ R0 K; O  x' S- U5 y9 U* c% R
文件名RSA.ASP( z* g0 y5 _9 x
===============================================: ^5 c) q, F( F5 f3 V- H/ g/ l
<%
Class clsRSA
Public PrivateKey
Public PublicKey : G* S6 s8 K/ D; J" B) q1 y1 X, m6 V
Public Modulus   p. p& b# a) H, I5 X; J5 T
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod 8 S5 d+ p0 P  X# P' C( `
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 0 u' Q( u, w- b9 R% J
For lLngIndex = 1 To pLngKey / 2 9 S8 p0 X0 A# @
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function & |) z& M* }& b( a4 F+ \6 R0 J2 s
Next
Else / r: a3 c2 U* z
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 : C9 s! q( o$ l2 v7 C) `% B9 W2 u
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next - c3 f- F0 @/ j+ f
' Mod may error on key generation % Q' g; J* c: @- t& A8 [
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function & `2 u( x6 t* }/ v! k
Next
End If ; B6 j0 s2 v" I% _5 X2 V' ]
Crypt = lLngResult 6 T$ d- [2 K  T% h+ d
End Function
+ U* b( ^' d8 ^4 \, X
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) & S: w, U! o& L
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 3 ?. F3 R  ~5 v
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 7 L6 A- R1 R# B& j/ B% y+ E# l
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 5 q! Q) j: B7 k0 J  r
Dim lLngMaxIndex
Dim lLngEncryptedData - L* b! B  c$ _8 Z0 N; f6 B$ V
Decode = ""
lLngMaxIndex = Len(pStrMessage) 9 a& F0 h% `2 P: \
For lLngIndex = 1 To lLngMaxIndex Step 4 " f- X' W- U+ s" R
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 9 p, }3 F% N9 ]* U" v7 l
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) , t4 V$ d: i: }: _4 A
Next
End Function ; O( Q' c/ o6 C- `) P
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 8 H0 j$ s# t3 z  i8 a0 p* ?, E
HexToNumber = CLng("&h" & pStrHex) % g! d  H7 y3 J( Q# c( A9 k/ \7 m
End Function
End Class & \( k) X5 c: s% s$ x0 f( j. V% ]
function Encryptstr(Message) # _. J4 k" j  \4 z2 f1 g
Dim LngKeyE
Dim LngKeyD & [& _. t+ \" F( I2 }
Dim LngKeyN
Dim StrMessage / X) {4 ?! L0 d/ }
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ' Z' N  {0 i$ O
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ) ?4 B% k% `, Z- i- E8 g
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 7 D: L) H) m7 O& j; M
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 4 e, G5 i1 y2 w2 Z
Dim LngKeyE + k( Z4 A) E7 g/ j- `
Dim LngKeyD
Dim LngKeyN 9 l' d( a( h/ t- g9 U4 Z
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" : _6 L: O: z. i' b, g* ]
LngKeyD = "20643" 5 A! I  y# n) v0 Z
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA * Z4 w. i2 c+ R  ?* z2 V  X) o
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN # \* ^5 O8 g2 Q6 N, X! M& |( ^
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp2 O( T. O5 A4 R% X# J
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) . n$ n4 ?; G6 ~& I
Dim LngKeyE
Dim LngKeyD $ a+ y: w: }+ L- x2 ~6 t
Dim LngKeyN 6 o8 \! P8 n4 l' E! Q
Dim StrMessage 7 p' I: \, O6 w2 g
Dim ObjRSA " g8 [+ G  X' X# I. Y# C0 }
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 1 ]# h7 [# v2 V$ a- r0 z( g9 {* J
ObjRSA.Modulus = LngKeyN ; }5 X; P& ~$ }/ f$ ^2 s
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing % L9 H; f7 U% Q1 M0 F9 f& m  V' Y
end function ; A( [1 C& p* G. J7 [
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN % V6 I( g: p! x+ U3 x
Dim StrMessage 1 Z: U9 W  h, O& z9 \$ o; S7 J
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" " ^3 ~9 m6 a# S  a" M& t5 y
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) # R* x5 h1 r& z0 }: o
Set ObjRSA = Nothing 9 c3 Z& K$ f5 u( v* a
end function $ I9 z2 z) F. Y9 E1 @) J
dim last,first - f5 m; ?# W1 R, I
first="!@#$%^&*()"
Response.Write "加密前为:"&first 1 a2 `7 H% z# \7 [5 G2 p9 c
last=Encryptstr(first)
Response.Write "加密后为"&last $ q0 B2 _  `5 C! s0 [! U
Response.Write "解密后为" &decryptstr(last) 6 R4 e# j9 V& i" e# t* T
%> ==============================================' e  t8 I) h, B# [
剩下的就是字符的对照表了
===================字符集================- x) m- N- ]  m# @
1_____6EBB
2_____5C1F2 x5 v6 K% E6 b
3_____4D75! g) l- ~, |" u+ _2 ?5 ~
4_____26CC, k1 `) v/ c' i0 D
5_____4F881 s% y) n1 Z+ f0 Z& r5 y. ?3 K
6_____3F4E2 H! \# q( q: g$ J+ G1 h
7_____0A9D. _/ ]" v: A5 [% g" f
8_____1A1C
9_____6D20
0_____1089
a_____0F3E; g0 F. ~9 E. [% k
b_____31592 ]* o: s6 A2 s7 k  ?5 J( z
c_____3517
d_____419C" q% U, k/ O3 u; M4 n' d
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50& G7 B/ E& z) R* A: ]8 y
k_____28502 J5 t6 D2 a; b5 [; }
l_____3E7B
m_____71C58 _6 Q/ e' B& Y" _5 o2 J8 n
n_____1FC8
o_____74C1
p_____5FB8& [' C) v* X' Q, K/ r
q_____6085& I9 {1 y0 M3 D% f- N
r_____3AC40 f4 o" P: a! u0 b
s_____2F50
t_____36F8
u_____7010
v_____0B42( x; i; I! G3 ]8 F' J8 J. w
w_____1C7A
x_____16F8/ x5 B7 N/ Z8 i# d
y_____2EE7
z_____5CF3
!_____62334 m8 j* i+ ]/ Z0 Q, j
@_____3A45# E9 [) f, {- j1 D' \2 ~
#_____2291$ n$ L; `: F, r( i
$_____5D5C
%_____09B9
^_____43EA) {, L* d; ?) V% J" [: `0 |' }
&_____62B9
*_____6301
(_____4659: k, b+ J/ G, m% C3 Z7 }
)_____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 分享给朋友]