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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy1234563 F$ r" Y3 B& m# \: o
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
  }) L' J" x$ ?5 y
============================================# k) D6 s; k* I/ ]
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法& U& R, s7 R7 R) l; _; M# O8 o. x
以下是RSA算法文件
# A4 f& _( B! H, q3 ]2 t
文件名RSA.ASP8 s* ]9 ~+ I% U$ D" Z; {; V
===============================================  O& w5 ]8 O; ^$ U4 ~$ V* W! i
<%
Class clsRSA , g2 v) H" i, `# H6 p1 I5 _
Public PrivateKey
Public PublicKey
Public Modulus * B% V) F$ c4 k& B
Public Function Crypt(pLngMessage, pLngKey) / [/ i5 b5 u* `- Q
On Error Resume Next 4 O5 w  e( t- j
Dim lLngMod
Dim lLngResult 4 L! p9 v/ L9 A4 D2 }3 G( X7 F. ~
Dim lLngIndex
If pLngKey Mod 2 = 0 Then % N$ f& f! F+ ]/ o8 U
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 2 ~& ?5 w# S9 a6 q2 P7 c6 V/ o
lLngMod = (pLngMessage ^ 2) Mod Modulus & j! P( S+ {, p" c$ S9 Z
' Mod may error on key generation 0 l3 \$ j; p4 Q, |% V
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 2 ~  T- n- E2 O7 }' u6 w
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 8 {( Y4 U& {: x0 ]
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation % y* D% Z& K1 h7 e" w$ s+ m
lLngResult = (lLngMod * lLngResult) Mod Modulus ( Q+ }& o) z5 H2 G$ G  v2 r0 j
If Err Then Exit Function $ h2 {# N  U& @
Next ' I4 J4 x( T. k
End If # U1 v, U2 I, H; q' R
Crypt = lLngResult
End Function
4 j% K5 y1 V0 k! ?& k: T; x
Public Function Encode(ByVal pStrMessage) , f% J  E# E) h/ a$ o8 \+ L- H
Dim lLngIndex ( M- ?: ~" `# s$ h; L( P
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 9 {3 Z& v% v& C/ c4 v6 J
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ) Q0 w0 C! u& ^( @7 W: g3 @
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function * r6 D4 Q3 O1 E" f$ x; ?
Public Function Decode(ByVal pStrMessage) ' r5 [) b8 p4 ~7 a, J: D! p
Dim lBytAscii 4 D' D% Y9 M) o" ^$ \* Q
Dim lLngIndex
Dim lLngMaxIndex : ^3 w9 a2 ~9 w- u( [
Dim lLngEncryptedData
Decode = "" 7 N! B: C* N7 i; L& V
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 2 Q3 I6 D! ]9 f( Z
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 0 \; |4 L& M9 m- _9 K- @. I
Next
End Function ! {3 A, N) w3 s' e% w
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) $ ~( g" U# }1 F" J0 {: l
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 5 A# X3 w9 a# K" {& |
End Function & T, X9 \) |7 B  _2 U. a
Private Function HexToNumber(ByRef pStrHex) " w* f1 G" J: c. A3 K5 d
HexToNumber = CLng("&h" & pStrHex)
End Function ; o5 }0 [9 P% I( j0 ~% J- K
End Class
function Encryptstr(Message) ' Z% U6 C! h7 I
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ' @, h' s" a+ Z& r, p% z1 z) Q& U( j. E
Dim StrMessage
Dim ObjRSA % u' c) ?; @: M
LngKeyE = "32823" 4 S' l" l* D6 A" V. Y: ]) D) o. _
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 7 ]8 b2 A/ u/ S$ e+ ]' ]0 F! V
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 8 D' ~- t' C/ l5 J8 G0 |' F
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) + r( ]- k. A) V# X/ @, n
Set ObjRSA = Nothing ( }- i  F& f# n# [% ]+ h
end function
Function Decryptstr(Message) 5 W+ B2 k' n  ~6 V" F
Dim LngKeyE + E& I- d& D3 z3 a0 W
Dim LngKeyD
Dim LngKeyN 7 Z( ^! [, E( K$ j+ |1 @9 c
Dim StrMessage ' L8 e3 h* x( r
Dim ObjRSA - k0 U* n  k  f+ L8 Z9 |5 n1 E' G( \
LngKeyE = "32823" * x& R: A; i& b1 w& y% P
LngKeyD = "20643" 3 q( {( _5 X' O& J. l/ Z
LngKeyN = "29893" ' ~# }2 n. D6 l8 o
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================; V) p( z  _/ F

还有一个用于测试这段代码的test.asp8 a% {. ~) X2 n& q
有兴趣的自己搭建个IIS测试下) L- T' I2 e  u2 q# f: ]8 q& V- _

<%
function Encryptstr(Message) ; t- B2 ?, k( s8 Y9 Z# V- T4 h- Z/ x
Dim LngKeyE
Dim LngKeyD % q. M6 Q/ a$ j3 @! B* n  u$ `
Dim LngKeyN : W, Y, Y( w# W7 Z9 n
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" # a4 n* ~; J2 `; o5 R8 R5 n/ }- t4 l
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message % S; N! w1 ?7 z! L: H- u
Set ObjRSA = New clsRSA 6 D9 f* H$ f& b0 Z7 s
ObjRSA.PublicKey = LngKeyE 9 X- A% g5 w+ ]2 \+ q9 e  f
ObjRSA.Modulus = LngKeyN 2 l" U! G- Z( o: J
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function & M2 m0 H3 x; m( F
function decryptstr(Message) ) M) @6 I5 `! K: `. o* N5 ?
Dim LngKeyE
Dim LngKeyD * w4 @5 {) Y* a' |4 R% v+ G9 [/ W
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ' r: T; D1 X  y8 h7 ^2 f: P
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ; j! `: r3 z  w7 k6 f" d; U& g
StrMessage = Message
Set ObjRSA = New clsRSA 4 x$ A% \) v( e6 @1 W6 S4 M# H
ObjRSA.PrivateKey =LngKeyD ; R7 C/ ]1 l, W1 U4 ~7 ^1 a
ObjRSA.Modulus=LngKeyN ' F) s" i" O' O& {( v
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" : V; D' E" I  d4 O5 g  [( B
Response.Write "加密前为:"&first ! d9 f6 Y. b2 K, ^/ j$ Q7 [# T7 y
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================6 `8 f% ~1 P; Y, y3 u3 [/ |
剩下的就是字符的对照表了
===================字符集================# a" A; g& s% D$ P+ J4 E/ E
1_____6EBB
2_____5C1F% M' Q+ _7 J* f# {
3_____4D75$ K: U- j* W! n: U
4_____26CC
5_____4F88, _6 {$ j% q( S. d. }  G
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E5 w* @7 K( [" \- S5 |3 o4 c
b_____31596 p) H  e0 `0 s5 w
c_____35172 x* P+ e; x/ ~( W# o' z' Z
d_____419C
e_____615C6 d, ~$ |; A) E7 b( s
f_____556F
g_____2B7F$ k4 C. D+ k* X) A, T
h_____0F9C& Y* ]+ {% K3 C3 U
i_____00FA
j_____5A50- @# T  x) S* O  I9 p  A
k_____2850
l_____3E7B  X- }6 O! X/ P/ B
m_____71C5$ U! W" B; J' J  B* i1 {" [# N
n_____1FC8# r' w# |6 W9 M+ }% U3 e' U
o_____74C1, I2 E9 R# R' W' y  T& h8 g
p_____5FB8# `. P6 T3 {0 k' Y$ E9 c
q_____6085
r_____3AC4* q; h; W5 c" v: |8 ~
s_____2F50
t_____36F8
u_____7010( `( K( D" h! H6 m8 t1 b
v_____0B42
w_____1C7A
x_____16F8$ {# V4 b8 W2 G  Q- N/ d
y_____2EE7
z_____5CF3! X; d4 K1 d* @& s  I8 Y
!_____6233
@_____3A45
#_____2291  t! e; x  {) O
$_____5D5C% g2 f- _& X4 L7 S
%_____09B9
^_____43EA7 |, x' Z) U2 F
&_____62B9
*_____63011 m# j# ]8 \# X) o3 J8 S2 D2 J" k6 V
(_____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 分享给朋友]