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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
5 D$ J7 f; C: _- o/ ^
看不懂的直接绕过
加密前为:hwy123456: P% N$ W8 T% }, x
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================  O" `* Y$ y1 D8 E9 G
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法+ j5 |1 e# k( U
以下是RSA算法文件( b+ A- z) a$ f. t% e( S$ l5 `/ _
0 t; _8 J% C4 a) W. }; k0 v
文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 5 H! Q4 Q. K* n
Dim lLngMod % l# R  _% ~1 W! q# I) H& [
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ! F! e+ Q# D. x: h# M+ s
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 * D+ O4 e7 B+ E" ?2 ]" x
lLngMod = (pLngMessage ^ 2) Mod Modulus 7 {* |, q/ Q* N. D% h
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 R( q; _, z+ d% D: x
If Err Then Exit Function
Next
End If
Crypt = lLngResult ; |! E! \) A( W2 v, n2 [  ?
End Function( P5 m. z8 F/ e% k; t

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ; y# {0 E  \- x2 d( f1 v
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 5 s( M: U2 W5 B  G2 t. c3 r* o
End Function 0 }  E4 w+ H# {# }1 z" p1 x6 F6 f
Public Function Decode(ByVal pStrMessage) " V/ k, F" d+ `2 p6 t; X6 t  `
Dim lBytAscii 7 ^* a) G& E+ |/ A
Dim lLngIndex
Dim lLngMaxIndex # [/ ?: b# U" Y( W6 z
Dim lLngEncryptedData ( |8 P% k, {/ s  T& {3 B
Decode = ""
lLngMaxIndex = Len(pStrMessage) 8 D. k$ \8 `, S+ ^& z  t+ P
For lLngIndex = 1 To lLngMaxIndex Step 4 ! H+ D  B1 R9 b0 U: {* I
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; g+ B' O. u4 F  q
Decode = Decode & Chr(lBytAscii) 9 W% {0 Q' T) V
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) % M, s& c% L; O' {% ^
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) / ?5 S9 b0 y, o7 p
End Function
End Class
function Encryptstr(Message) $ O5 V1 M. {+ {) M0 f. @
Dim LngKeyE 1 V3 h3 h8 d0 o
Dim LngKeyD & c4 O, y: \% ~/ M
Dim LngKeyN
Dim StrMessage ! G" P" [& }( `7 N
Dim ObjRSA   j; h1 A9 {1 b6 d
LngKeyE = "32823" ' \6 `( L- K( U2 C1 N3 m/ ~
LngKeyD = "20643" 7 w4 ?7 _2 m) z( ]& X- A7 s# {1 z
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE . |( R9 o8 s! t- R8 {
ObjRSA.Modulus = LngKeyN $ j! C7 K# W" f! ]2 G6 n
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing : P0 I: d) H4 [  {# \& x8 _; ]# K
end function5 k) V6 c, [" ^  j* ~  z
Function Decryptstr(Message)
Dim LngKeyE 6 v) l' j/ N' e# c- n
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 0 \0 j1 ?6 ?: P0 K  ]& K+ p
LngKeyD = "20643" # ]% y$ k1 k9 V7 y1 Z; w7 L
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD , y4 w5 D, q+ [- w/ b; M
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 2 y% v3 S+ Y% Z$ G1 e
Set ObjRSA = Nothing ! d1 O/ O! ]9 h; ~4 c
end function & t8 L6 q& E+ f* r4 V% s( r5 D: ]. R
%>" v& \' w# I5 _% Y. N$ i; }& ^
===============================================
/ O! ?1 l3 w  X3 d- p
还有一个用于测试这段代码的test.asp0 e! _3 N1 z/ B1 F. k2 m
有兴趣的自己搭建个IIS测试下9 N5 |" |) h3 D

<%) J- w5 A& L& s
function Encryptstr(Message) 2 N3 Y$ F5 g1 v1 I' p
Dim LngKeyE
Dim LngKeyD + A5 m  \6 I8 ?) ^
Dim LngKeyN
Dim StrMessage . `& i0 z& M6 `$ ]# H
Dim ObjRSA ; U& X% |: @0 m3 N
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) & o  s" A) A, J& i8 \$ I
Set ObjRSA = Nothing   g7 X. t1 R" M) v  h% a
end function
function decryptstr(Message) 4 {( A) A! n" x, f9 k7 F# U4 M& S
Dim LngKeyE ! v" E$ _: F5 c$ W  u
Dim LngKeyD . V# D" a: x0 _* ?5 C  F9 B7 k
Dim LngKeyN " q! R0 `0 C1 n" q  [8 f
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 7 d5 }0 D/ M+ w/ t# u6 C8 r
LngKeyD = "20643" & l: H' e6 a* W
LngKeyN = "29893"   O. j8 U6 [+ U2 a
StrMessage = Message
Set ObjRSA = New clsRSA 7 P8 q' z# _& W1 o4 U6 \; B0 f
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 7 p/ s( x# f' \8 l) B1 \2 x, X+ @
decryptstr=ObjRSA.Decode(StrMessage)   z% H0 i: D5 l# B; I+ r
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" $ P. b) Y5 ?- J! C' T/ j
Response.Write "加密前为:"&first
last=Encryptstr(first) , }5 C% g3 W* `9 ~7 a! ^$ l
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 5 a/ z  o9 f, {, Z
%> ==============================================
剩下的就是字符的对照表了1 N7 |) R1 `- U
===================字符集================
1_____6EBB
2_____5C1F' h) g0 w2 e; I  q9 w' u! e7 b
3_____4D751 A. \% S; ~/ j% J- [. A
4_____26CC7 d( t3 S9 I) }# H4 z" M3 g! V
5_____4F88' \! X3 w' f: a( v! H) h  J- ?
6_____3F4E
7_____0A9D( i' [; O. M( X! s  s
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C4 x  B! L7 _6 b: R3 d6 Q7 t- \2 }
f_____556F8 m2 \# n% t* v
g_____2B7F/ l3 u  U$ {. L, h. r) y% K9 J
h_____0F9C
i_____00FA
j_____5A50+ x! `+ N0 D* z9 e: C
k_____28500 \0 s) `$ F/ i" [( ^- W  s% d1 X! {
l_____3E7B
m_____71C5- p/ M& e7 W7 t% N6 f3 d" F
n_____1FC8
o_____74C1
p_____5FB87 w# e7 E$ g% S3 E9 U3 Q3 p9 g
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010. J  B( w  K1 l5 d$ p
v_____0B42" m( V2 i( I8 w/ {/ E
w_____1C7A: B" {6 ]" G+ [' p% o1 ^5 }
x_____16F85 Y0 n) n8 B  H
y_____2EE7
z_____5CF3; [. p4 c$ Y! N
!_____62336 ^# R4 T# A" i" r
@_____3A45
#_____22913 A' h( c" @% W& z
$_____5D5C$ b6 R1 ]/ N! `  L8 ~! F2 [9 j
%_____09B9! h% u' L9 y& X7 P$ a% ]" n
^_____43EA: G/ L, I2 C; p  p
&_____62B9/ Y9 {0 Q7 {$ Y4 Y
*_____6301! x! e* K; v0 s
(_____4659; U8 {. F: g. k7 c; A
)_____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 分享给朋友]