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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm9 Y0 A  O' B: h6 v
. T9 Y% m1 U& A( h8 }# g/ y& ~
看不懂的直接绕过
加密前为:hwy123456) K9 N: f5 b: E) ?- c: R0 j
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E7 S0 R7 B& h- Y8 q7 x. }3 A

============================================# D8 C2 N; u, t
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法; b8 H4 a6 u5 M) y$ H0 d
以下是RSA算法文件

文件名RSA.ASP
===============================================
<%
Class clsRSA $ l( P2 ~+ Y0 [
Public PrivateKey
Public PublicKey , H+ P; h( H3 m: |) s# ]
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) / @# q0 I3 ?, Z! R* R6 y1 p
On Error Resume Next   Q  p3 R( {0 G8 t, w% @/ q
Dim lLngMod " n5 f' `8 L$ m8 J
Dim lLngResult 0 t% T" l* `6 c  u4 x: T
Dim lLngIndex 4 J2 h4 Q0 u- L! Q0 P3 l
If pLngKey Mod 2 = 0 Then
lLngResult = 1 9 b4 c& H: X, b# O
For lLngIndex = 1 To pLngKey / 2 , j  E$ j' n! ?6 X$ f7 H$ {
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation " C3 h/ ~  U4 U- [: g9 z% B
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function   x( t4 B7 K) X7 ~. |
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ; i! R% J4 q/ h* B1 H$ T, w
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus & P! T' u$ o/ k
If Err Then Exit Function
Next
End If " `2 V# `3 `( o& b$ g4 H
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) & v, ~) v9 I. k) G
Dim lLngIndex 3 `/ Z" Y; V9 f
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function - P2 S+ j( e' ?9 G0 r4 V
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) , z1 h; h9 y9 Y/ P: _: \
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next / g/ ~4 c7 A! h2 ?" Q
End Function 5 C/ m2 ^. w3 D- V% V
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii ( ~" ~' w* l5 `$ }
Dim lLngIndex ( V1 t  s8 Q3 L3 p' c
Dim lLngMaxIndex
Dim lLngEncryptedData 9 N# q: x, m9 F2 a* x& m0 R2 T3 U3 u2 h
Decode = "" ; ?1 Y* a( \- c+ A! Q# A
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 + U, W+ E6 p, j9 I& u. I
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next + C* u- z, V8 v5 z+ h
End Function / ~2 A6 w2 D# t* |5 r% L) a. f
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) + z4 ?1 q* v/ b% f
End Function , k5 u( I! E5 J8 K  A+ y7 K1 }3 I
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) $ e8 O- V9 N+ X# S' L: ~1 Z
End Function * ]% s+ Z  c+ n8 A) B2 @
End Class 0 `/ N7 B! P$ i+ v, h: F' F
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" # d4 q* b3 d, m. ^& e6 l; Y
LngKeyD = "20643" ) n1 ?( |4 D' ]# j4 i
LngKeyN = "29893" 9 H: n5 s7 L3 I' g& u; j: u: b/ D
StrMessage = Message
Set ObjRSA = New clsRSA 7 O6 S' }' w3 `$ C
ObjRSA.PublicKey = LngKeyE + ^/ [+ A+ x) u6 A6 Q5 u
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function) q# K! J( f6 S: @$ o
Function Decryptstr(Message)
Dim LngKeyE 0 @  V8 E( D* ^8 M6 w; o$ X; C6 `* y4 z
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 3 y, q7 W/ [7 ?) w4 l( F
StrMessage = Message 3 l9 O( A& }' e
Set ObjRSA = New clsRSA $ v0 M. o' f4 N3 l$ B$ z
ObjRSA.PrivateKey =LngKeyD 8 K" M& ?2 I" Z; q4 t- y
ObjRSA.Modulus=LngKeyN 9 a# \# }+ X) U
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>+ n; r5 J# C% C0 m
===============================================
; g$ o+ \7 k4 @8 C! ^/ v
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 6 _7 X9 _6 C" k! k9 w
<%
function Encryptstr(Message) 2 b/ r- R; n# j( M; K1 c
Dim LngKeyE 3 e  k9 ~8 g" v9 N1 @* x6 q) J
Dim LngKeyD
Dim LngKeyN ) g" Z% U# j1 A5 i
Dim StrMessage
Dim ObjRSA $ Y4 H' [% E! \$ X! t: Y6 w3 y
LngKeyE = "32823" 0 `# [8 ?) R+ r) c% ~
LngKeyD = "20643" 1 ^- P& p% A  D$ t% A9 N' P
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 8 y: K% s, }$ U9 k9 P; t/ b
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) : O1 B5 r7 G" n6 J9 m. n/ o
Set ObjRSA = Nothing 5 }6 ~7 i) [- g: \, c
end function : G- P1 l* j' j1 X  h
function decryptstr(Message)
Dim LngKeyE % C& }* v0 p- a; R1 D
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA + C; m, {! C/ b$ t- U0 Q! }- L0 u
LngKeyE = "32823"
LngKeyD = "20643" * P. O3 E) q2 \( i+ H0 p" g+ ^
LngKeyN = "29893" 5 ^; j) p  j. L
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing * T4 m+ \- u( e, ]+ d# d0 h; w
end function 7 o0 }- a+ X( Z1 Z% M
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first , z& d& f' Q* L, V. t2 ]* m) A
last=Encryptstr(first) % \5 v) O- ?; M! `- E: l0 T
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) $ Z$ @2 x3 o: a( \% u: ]
%> ==============================================
剩下的就是字符的对照表了& r5 h% H" A- O, ~5 I  Z
===================字符集================% R3 u0 v) }0 f1 v7 L' [3 N
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089+ s( w9 |$ S$ A
a_____0F3E
b_____3159, z( V, N" J$ p7 L
c_____3517
d_____419C
e_____615C
f_____556F2 a7 ~( i$ i, C. s
g_____2B7F
h_____0F9C5 o4 M1 k. l# @/ x2 |5 u- W
i_____00FA2 r! Y( h4 x0 F$ Q# X6 i6 h
j_____5A50% Z9 y" q$ }9 K7 m
k_____2850
l_____3E7B6 {& X/ {% S5 K  f0 U
m_____71C54 O9 z1 L) @3 c8 K; N6 |
n_____1FC8! ~7 d: c+ h+ C  O
o_____74C1
p_____5FB80 `+ x! o: G( |, m2 c- i
q_____6085
r_____3AC4) }& T: Y! ?1 `! |: c2 @' \
s_____2F50
t_____36F8$ o5 G$ T6 c( I! n) u; ~0 m
u_____7010
v_____0B42
w_____1C7A
x_____16F8% h9 Q) c: F- p5 z" D8 `* v: w
y_____2EE7; O& S+ o6 j/ f) X! R% L6 t" Y3 k
z_____5CF3( v# K3 z+ e4 I3 j7 T& m
!_____6233
@_____3A45
#_____2291
$_____5D5C6 w$ I3 m# ^; q* T2 ~' n
%_____09B9
^_____43EA  v; `$ `0 z- Q8 r9 I
&_____62B9% M* Y5 M5 x' W9 o* ~
*_____6301, }1 S/ v1 t0 J# S
(_____46593 T4 ?4 q2 b+ }0 C, u( R1 _( W
)_____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 分享给朋友]