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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm( b! N9 z% a! g5 R& r
原始出处：http://www.3ast.com.cm9 x3 F0 Z) V: W, w

看不懂的直接绕过
加密前为:hwy123456- t7 t! N9 z  ^% E
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家) r- K  \2 K. s% o0 I( a; Y
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
) Z6 A! W8 N! ]% C  o' ^
文件名RSA.ASP
===============================================+ C7 ?: B% j7 n8 t/ U* I
<% 7 q, }8 D# E+ [# r2 _3 _7 o5 `2 X
Class clsRSA 9 y! @. j, m# w) i
Public PrivateKey
Public PublicKey # q) j: n9 l- f3 ~
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 2 {+ E! n2 q- [& w' o0 \
Dim lLngMod ; `9 R8 T2 p! h; C2 C  N0 G
Dim lLngResult 6 \- t" m6 w; I3 k! w
Dim lLngIndex & d1 R8 C/ x$ Y( ~+ x: ^
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 - ~+ P% A$ U( {& Z) i0 l
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 1 B6 k! X  f" i; Y/ v# }
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function % A9 Z- u, i+ c# ^
Next : ?  c* u" P) C4 P
Else 8 V9 R2 i* q/ I- ^" L, _8 K
lLngResult = pLngMessage / X+ z9 k% ^3 x1 I+ V7 y. J
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 9 n0 y/ [. }7 R1 b" r
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus - K  L% F3 W: T1 x
If Err Then Exit Function 7 L" D8 d# k2 A; q0 w  Y
Next
End If . I5 ^! o( N$ C! j- w; o. {. B
Crypt = lLngResult
End Function" l6 x. x" P1 l' ^) T( [5 f
6 E# |" y3 R5 {- P, [4 \
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ( o7 [- E. a" ]$ z( A* h
Dim lLngMaxIndex # A% ~. t% F& h, B" b
Dim lBytAscii
Dim lLngEncrypted + u! t9 e  `& {! a
lLngMaxIndex = Len(pStrMessage) & T' X8 m) _& l5 v  T& r
If lLngMaxIndex = 0 Then Exit Function 4 y# `. ^5 |7 g% Y/ L* D
For lLngIndex = 1 To lLngMaxIndex + H9 y4 c. b& s& \% Y
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) , C3 j  t* Q5 v3 r' P; I% Z
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next $ y8 _  T" j. |1 H* u6 ?
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex % n- q+ l% w; C, t2 o) X# @
Dim lLngEncryptedData ' }( c0 C' ~7 [+ v0 b
Decode = "" 4 x* z, z) `% y
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 / {5 V, {6 X$ p8 U
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)   g# Y8 w4 ~( g  z
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) . e. Y. S, }# K( ]
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) - y& y% V  \4 a* O+ P
End Function % ^/ {( Q  z8 a8 F, u# C& @% _. k
Private Function HexToNumber(ByRef pStrHex) 1 }/ l+ @$ p7 u& |* @$ Q8 o
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE 2 Y( ^0 P7 H, A" `6 b6 {; V2 B% @
Dim LngKeyD
Dim LngKeyN , U; \- n, i" L! r* t5 W
Dim StrMessage 7 b0 |: c$ w0 I, O
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message   H7 a' T0 u: G# V+ `% U9 a
Set ObjRSA = New clsRSA 0 D. ?4 R$ H% X. H  @2 G
ObjRSA.PublicKey = LngKeyE 9 j4 i% o& m: F& Q* O: Y
ObjRSA.Modulus = LngKeyN ) `1 g% I% c3 a/ ?+ Q( a# b
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing - U* `" ]9 J: x1 E3 b, V- N. v6 k
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 9 Y/ o+ G4 C2 m% t: x
Dim LngKeyN , h+ }) l! M8 ]' f/ V6 Q: M/ n' V
Dim StrMessage
Dim ObjRSA ' A1 [5 @- n+ T3 L) v; g5 P
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA + a9 j* a- I: Y% A( _
ObjRSA.PrivateKey =LngKeyD   @; ]9 p( B/ t" ^( O) }, D; j/ {2 W
ObjRSA.Modulus=LngKeyN / X) e; s9 }9 o: Q8 [  c; c
decryptstr=ObjRSA.Decode(StrMessage) / S& a2 l: f1 s, t$ A: y$ Z$ S
Set ObjRSA = Nothing
end function 9 ^$ S) `0 u7 U5 Z
%>' q/ `* ]* s. G; t' O! H: {8 R4 z
===============================================
5 b% ~  i- F0 o4 [, C' ]# b7 ?: H
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下) Z& w+ e! x; I- i( [
 0 X1 K% w  A) T! D) d, L
<%8 q" {# C/ q$ f2 ], [
function Encryptstr(Message)
Dim LngKeyE 2 S7 J* v9 x. A/ ?3 e
Dim LngKeyD ' h0 n  E% e. A- t
Dim LngKeyN ! f- E% x3 z) G" E, {
Dim StrMessage
Dim ObjRSA * j: s. N2 Z0 h( \9 m
LngKeyE = "32823" 3 v) Q; d. Q, B
LngKeyD = "20643" , h& t& B/ l- m$ f; c* X
LngKeyN = "29893" 0 O5 L: f# ^3 d& `, d# }9 l" k( g' w
StrMessage = Message
Set ObjRSA = New clsRSA 0 w6 K2 d) ]9 P8 D
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN $ Z" z- @8 ?* a8 s0 K! C- I# S
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 1 |: t7 d5 @. r! F4 v
function decryptstr(Message) / i4 r5 j+ S) l' l& S
Dim LngKeyE 5 ?$ g5 W, Y. U; d0 e
Dim LngKeyD ! h6 n  c; [5 Q" R5 Y. A
Dim LngKeyN " H# ?# V5 t, e* M' @- }+ |% q8 ]
Dim StrMessage 1 @5 V. p1 I+ L2 i0 Q
Dim ObjRSA 4 |) {# q7 w) {& v; D8 Y
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 0 \9 h# D1 p0 x* }
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD " {5 |" C$ E9 S( S* d! I0 {) I
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 6 c$ M) h; S. q3 K: \) e: ?
Set ObjRSA = Nothing " T) x) N5 J2 A( `
end function
dim last,first
first="!@#$%^&*()" 6 a) g) f% ~! J" y
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last " P. D7 y7 b- h$ f5 |
Response.Write "解密后为" &decryptstr(last)   K: ?+ y7 t- H  N/ O/ O. T
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D758 Q9 [/ a9 f$ V4 X' j9 n! \" J
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D% V0 o  h/ e; @
8_____1A1C
9_____6D20; l0 y' O# P/ O3 n: L) ]
0_____10892 p! {  j* ]  @" I$ d5 w
a_____0F3E- K3 l  l( w: t2 @# }( D
b_____3159
c_____3517
d_____419C0 k  j/ b5 J9 P1 k
e_____615C" x! v* b! s, t# H6 Y3 T9 @
f_____556F& @. @) W# X! K6 Y! Z) ?2 b7 v7 h
g_____2B7F+ k( N- Y1 E( ~% j9 S0 ~) Y
h_____0F9C; D6 t' z4 T. U/ b( A2 S: ]
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8% _8 i$ Y+ {( g2 E( o( Z
o_____74C1
p_____5FB8  _/ l& L) a' e% y) H/ x: P
q_____6085
r_____3AC4
s_____2F50! x; p- A4 d! G% d  j
t_____36F8
u_____7010  r7 X$ Y4 |; U& f# `
v_____0B42
w_____1C7A8 N3 x9 r. X& A' w# R
x_____16F8
y_____2EE7' H  }$ w! k' {/ {. m. t4 D, b
z_____5CF37 j. C( s1 s& u3 J
!_____6233# g7 ]4 Z" q% p# S, N3 ~- b
@_____3A45) d0 s! O5 ^" w5 I! X
#_____2291
$_____5D5C
%_____09B9/ `- P% n& }) T- }% d' s( `
^_____43EA) g, a2 B' I5 k% `- A
&_____62B9
*_____6301
(_____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 分享给朋友]