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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
% j2 l( ?# W- t% ]9 ^$ d
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E4 d9 r, z! H- d( Y8 x
1 g" V3 `- U0 a) Y0 F  D! s
============================================7 A  X! ^2 X0 d- U. ?% k
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法( u2 q. [; W' [
以下是RSA算法文件
  B$ u" I+ ^# s& S( ~4 `) |$ |
文件名RSA.ASP
===============================================- ]% g" j8 H( T+ C* X
<%
Class clsRSA
Public PrivateKey 5 Q# M; @" k1 S" B! P) o
Public PublicKey + x" ^" ?4 u4 y. |! k% o
Public Modulus / x& K6 @% [' O; t  c1 I5 S# F8 m
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex $ G- V0 A, X3 p( _: U* y
If pLngKey Mod 2 = 0 Then
lLngResult = 1 ; f4 s9 ]& a4 w( T$ |, f( {
For lLngIndex = 1 To pLngKey / 2 : e9 B8 R9 d; k2 o: d, d
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 8 L( @. r) P2 B4 p" P: x4 A
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus % j% i; t- x* |
On Error Resume Next 4 k# X6 V% G: W0 ?3 [" \
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult 7 F8 \' D" [$ ~  f' I9 t0 d0 K: M
End Function
6 B; r% g, Q3 z7 q7 M' z' ^: f& r
Public Function Encode(ByVal pStrMessage) 0 G; M6 @) N* n9 c3 H' t5 v
Dim lLngIndex 2 i' @, k  }0 |# G% p  k
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted , U# D$ X) r; r. b, Q
lLngMaxIndex = Len(pStrMessage) 5 d7 [' {# `  [* r4 P2 o
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ) O; h6 z/ X7 q; r$ d" Z# F
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ' q+ S" @0 S! P; A; A. }5 W
lLngEncrypted = Crypt(lBytAscii, PublicKey) ( h5 D- `3 E9 Z* l1 {) V0 o
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ; Z/ _6 T% R) |: ^( H
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii : ?5 w$ D. v* N" b9 n; T
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" + V5 \* L8 }( |% h
lLngMaxIndex = Len(pStrMessage) 2 V8 ?. s8 U1 @7 r. p! q) ]4 n
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) # r7 l2 F! z6 P& O0 i* b
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 7 j2 ~- c( u! b. V, z7 Z5 W
End Function ( ~5 o5 H7 p9 q& {; L; T3 |
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 1 ]5 n7 S5 s) v- |' G8 x" s
End Function 3 d7 f8 R- u; ~' Y% o; W/ O
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE & H% Y5 J# b; o6 _  m# z
Dim LngKeyD
Dim LngKeyN / z  a1 d. C+ {4 ?  `  V
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" - ]' A: p7 v4 B% R5 o& ~4 f
LngKeyD = "20643" 8 e8 Q8 d2 n* T4 c! L
LngKeyN = "29893" - p& `2 c0 Q! c
StrMessage = Message
Set ObjRSA = New clsRSA 0 r- a! R. {$ v; G8 p
ObjRSA.PublicKey = LngKeyE 9 r  u; |" y# C- ?) m
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ' p0 x) h! N& l" n  Z
Set ObjRSA = Nothing % p& l  R5 h  }
end function
Function Decryptstr(Message) % k$ y' O: Q1 L, Z
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN / t( W4 }3 |8 a$ F( i; y( D
Dim StrMessage
Dim ObjRSA $ h) i6 e4 u4 l7 `" s
LngKeyE = "32823" 0 N" l* Y7 f( Q% f5 \6 f
LngKeyD = "20643"
LngKeyN = "29893" 2 w! |4 ?5 Y  M  j0 T1 ^$ n
StrMessage = Message & G% y$ R) M3 |) w
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ' V  c7 ]2 m8 S
decryptstr=ObjRSA.Decode(StrMessage) & R7 l2 S$ @% e
Set ObjRSA = Nothing
end function 6 ]' c* D/ o' q# Z; R1 U
%>/ E- f3 l* C8 b
===============================================; N# F% y: [' n4 h" I. J
8 J" S& m. P- m( Z* w
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下- {3 V/ a8 n6 p
 $ \, |( L# B; o- l
<%& `' C) f4 A  k) d
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN & f! o' y9 F9 K* S6 C- C5 Q9 k
Dim StrMessage 1 O5 h# y: D( o0 `% g* J
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message / y/ I4 P  h; x1 O- o  h* c
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE & d4 v7 I% H! M; Y
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function & F$ ?9 G: I% {( T9 x: |& ~
function decryptstr(Message) " _# g6 |, ^6 V
Dim LngKeyE - I+ y  @+ }1 ^+ j
Dim LngKeyD : \% }+ g  L- Z; a, F  [( r0 o' F
Dim LngKeyN $ b: I2 z" J3 ?% q4 c  i
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message : x1 J* C/ x" D/ M- s' A) @( K
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 9 Z; t" d5 q8 ~& e! A. Q
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" , @; f1 _! ]1 t" V6 C8 m1 K0 n6 C1 j! z
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 2 h) X! _; J/ B% ^
Response.Write "解密后为" &decryptstr(last) " R; ~6 o0 O% u- C+ M
%> ==============================================1 Q0 I( |) X/ I5 f
剩下的就是字符的对照表了. p) S' T2 q( F" q1 \) S2 E
===================字符集================+ T5 m8 Q0 T) c$ A, q
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC( L+ H( n; I) w, C- w4 o7 k& b
5_____4F88
6_____3F4E
7_____0A9D: }2 T- Y6 W  e& A: S* ~
8_____1A1C
9_____6D20
0_____1089- l) A: l# m6 F* v5 G' `
a_____0F3E4 I' w9 D3 |2 [/ m
b_____3159
c_____35173 V8 Z: E( G+ w( E! z( v* _& W, `
d_____419C* F- B; O: }& q
e_____615C
f_____556F
g_____2B7F$ S! b2 e" P2 B- S& F
h_____0F9C
i_____00FA9 m; V* G# i: c  a. ?8 M
j_____5A507 M( ~1 ?: j2 ?5 z# @( E
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB83 Q4 g( ]  v; L2 a4 J
q_____60856 ^/ [$ ~9 P$ f+ w: Q4 L/ X
r_____3AC4( j# C6 R7 \* `' Y5 _# Q( x  x5 _
s_____2F50
t_____36F8  T- S: [" M3 I
u_____70101 H# W8 \! d. i
v_____0B42- g4 o4 i: d2 N* q6 {7 {
w_____1C7A) ~$ v2 e9 J! O( g  L! s
x_____16F8& v( f2 D, J, S4 d% U: o! q: b
y_____2EE7+ P6 p% H5 f6 d6 W, _
z_____5CF3! L4 E! j3 j& S. k% e4 B- P  y  M
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA: Y/ g* V7 U6 w! s  C8 T
&_____62B99 M1 Q( i# V5 t  C1 ~5 f
*_____6301  N1 z& ~% E3 j3 P+ y
(_____46593 N( h  q/ F+ K" Q! N5 k
)_____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 分享给朋友]