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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm! j& `/ k2 W8 R
) d+ w( L) ~7 o9 |9 J# E; Z$ {
看不懂的直接绕过
加密前为:hwy123456+ U% B3 C: J* X3 @2 b/ d1 |
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================+ e6 [# J8 W2 W- t
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法* D* D0 n0 i! G. {* X% z9 t) x' A
以下是RSA算法文件
! r. r+ k" U' E8 q$ J( J6 k
文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey , Y7 ~4 o! r6 ?$ J% f/ I2 @
Public PublicKey 5 [6 n0 `6 h9 ]1 G
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 4 ~/ O- i! I8 o. n; e2 o
Dim lLngMod   P3 z& \( e7 X
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ; z$ o. u& k$ e9 R; `0 b( j1 b, H
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ' T* L; W" O& p7 Z1 l9 p
lLngMod = (pLngMessage ^ 2) Mod Modulus 4 l0 l! j& r% Q- g: E
' Mod may error on key generation * o  h, f4 X3 n! f' W- U$ Y2 i
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function   e# L; i6 f7 ?; `- ~
Next # v( K! E7 W" L$ t3 F6 R  b
Else + f$ X8 F! c, z2 `- Z# c# `
lLngResult = pLngMessage ! a$ f; O/ h( |: r, a5 E7 v+ a
For lLngIndex = 1 To pLngKey / 2 5 h: o4 M, S' J$ }1 H7 Y/ l* e
lLngMod = (pLngMessage ^ 2) Mod Modulus # `4 N; m# G& a7 |# ^0 t2 Q
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus % E4 Y9 X4 Y; i8 P5 L9 q- L3 H0 ?9 |
If Err Then Exit Function 0 W1 V* }/ I! s0 J1 I1 Z3 A/ l" B1 B
Next
End If
Crypt = lLngResult 1 X! a8 H3 F- n: a
End Function$ P2 I8 x# |2 T3 p% h( X
" i8 q5 k9 J4 F8 s5 r) k* q! q
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ' i& b' G% v3 Z% {6 D
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted , p, N! W* U! ^* u
lLngMaxIndex = Len(pStrMessage) # E  J5 z# B+ q
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex " E& s: ]; J- ]  P
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 1 J* s0 w/ g1 t; b0 w7 t
Encode = Encode & NumberToHex(lLngEncrypted, 4) ; M8 B; w& S- K9 [) J
Next 9 |) t% O9 G5 Q* m# {$ Q7 Z& n
End Function   f/ \6 c0 ?8 L1 y8 Y
Public Function Decode(ByVal pStrMessage) 8 M: P& s# Y9 _, N) `
Dim lBytAscii
Dim lLngIndex   E! v4 C7 I9 D; T1 K; J" k
Dim lLngMaxIndex
Dim lLngEncryptedData & i0 C. l  R- C. c4 R
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 / o  f! X( j; L, D) U, K: H* W. O/ R
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) * y; `8 V1 @1 T
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ( m/ E9 }' C* ]5 u! g* B8 R: S
Decode = Decode & Chr(lBytAscii) 3 L# o' ?: v0 [! D1 A" S) G  [
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 6 T9 e1 l" c8 ~
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function , t" w% p1 V/ y: X2 r: i
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function , g* R$ d9 r  w# W
End Class
function Encryptstr(Message) " s, M- u+ v& c6 @5 R9 D3 [
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 3 r1 V! L  _* {0 {0 q
Dim StrMessage " ?( g* K+ `/ a3 o% b9 \
Dim ObjRSA $ {. ~; k) N1 h" f1 e
LngKeyE = "32823" ' e8 ]8 P# C/ F" v7 h( w$ r3 D
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 9 _* i- M. o( p7 K# a; \
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 7 z7 o" x, R: Q+ X) g; j" c  W; H
Set ObjRSA = Nothing
end function. W% u) n5 g7 K5 F" R! w. F& ^
Function Decryptstr(Message)
Dim LngKeyE , A# z3 m4 {4 ?1 ]3 S
Dim LngKeyD : J1 l+ h- b% o% {
Dim LngKeyN : O& s' O. f$ D* n
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"   ?5 @! t5 n' A! I$ q& N- H$ k
LngKeyD = "20643"
LngKeyN = "29893" 9 S& ^5 P; ^1 ?4 [& H
StrMessage = Message 0 K. m9 J1 S8 ?* V" ]) L2 H2 U% d/ n& v
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 6 I6 w+ W+ o$ X- b/ m2 k. B0 w
decryptstr=ObjRSA.Decode(StrMessage) * V/ F5 S( k( N# i+ L4 R6 P
Set ObjRSA = Nothing
end function
%>% V* [. B' l4 K2 I  a+ L6 {
===============================================
) T8 n+ R! F0 Z3 Y) [! S8 s- E8 Z
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%# o$ V- `$ F. M: h. Q2 _" _( @
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 5 c  v1 D& l4 f4 W) c
Dim StrMessage 5 B4 x/ _7 Y$ {+ m/ {. E
Dim ObjRSA
LngKeyE = "32823" - c5 X5 B# I9 W4 L
LngKeyD = "20643"
LngKeyN = "29893" ( n1 l1 V# V" `. M) v4 a3 R9 O* O& I
StrMessage = Message
Set ObjRSA = New clsRSA , G2 J  S' a! _6 ]
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN : o8 @$ t8 l" f. o7 I4 z) G% I
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) . H6 R% J( g  O; _3 {
Dim LngKeyE
Dim LngKeyD * z( ~: h8 `; d2 |
Dim LngKeyN
Dim StrMessage ! Q* ]0 o3 i' e2 |: K" z& v
Dim ObjRSA & K, v% \; D- x: {
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" : ~1 @/ h/ \6 T9 Q: }  \+ d
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 5 H/ V4 B- e0 N( L& Q
decryptstr=ObjRSA.Decode(StrMessage) ' i  H% a, k. a+ z& n& N8 I( s' }3 W
Set ObjRSA = Nothing
end function
dim last,first ! B' Y. q) f% i0 A7 L# P
first="!@#$%^&*()" ; W7 [5 P% ?0 p2 F% z+ ~
Response.Write "加密前为:"&first
last=Encryptstr(first) - D* [6 P/ O1 I; Q$ v
Response.Write "加密后为"&last 0 g. K- S  M% l: c1 n4 F. g0 [
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了4 p0 y7 c0 e( g' e8 o' K6 q+ c$ y
===================字符集================
1_____6EBB
2_____5C1F, v$ V* O0 U! Y0 m0 a+ A
3_____4D756 j0 c, l: A- b2 u3 g$ ], W
4_____26CC* o5 O  f8 S2 w& d$ H0 u
5_____4F88
6_____3F4E. B; m$ |. c; G: Q  m% n
7_____0A9D7 q0 z1 l. @/ H, l8 c
8_____1A1C
9_____6D20
0_____1089: {$ V! `( ^; Q% g' L4 ]5 t
a_____0F3E
b_____31595 }: U3 V; ~9 `1 x6 v7 R
c_____3517
d_____419C, Q( G; m: Z/ p+ U- E! ^
e_____615C
f_____556F
g_____2B7F' N" e% z& X9 U- r! L. I
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C59 F1 I) _* H7 |# G
n_____1FC8; @2 l" C. C3 z0 }8 n
o_____74C1+ m, m, J& {( z/ ?/ P
p_____5FB8+ [* Z! w( o1 W6 N8 ]* {
q_____6085: V+ ?! N: T+ r( H9 Q8 g
r_____3AC4
s_____2F504 |6 f, m. i4 e& G9 f( m
t_____36F85 S; X) ?6 O9 ^: N
u_____7010
v_____0B42" H+ I9 {7 `, g0 n7 p: k' B
w_____1C7A- r* U) ~( y( ]. f0 Q
x_____16F8# p4 k& [) g5 F. @0 X
y_____2EE7
z_____5CF3; X% ~$ `' i+ L; G/ `
!_____6233
@_____3A45
#_____2291
$_____5D5C6 D1 }4 Q9 C' b5 F
%_____09B9: E( I5 K  J; o0 j: h4 r
^_____43EA6 x# S- {" M; t, P8 a1 s
&_____62B9$ e, F6 L8 }# @" X% I1 w
*_____63018 `' E# Y! C: c2 m+ K% F
(_____4659
)_____5C82

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

返回列表

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

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

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