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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm  o" Q' Y& g7 f, p
原始出处：http://www.3ast.com.cm& t" y* u% a' V" h
0 J; f0 X+ @0 ]6 J5 g5 M
看不懂的直接绕过+ o2 F# Y; {. R* U. G) y. o
加密前为:hwy123456' H  V1 E- T! S& n  }# X
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E9 b* u  _+ O1 w
6 S, [3 r( r! W( H* T1 i
============================================
8 n, `0 u1 A( U) w+ e上面是当时自己校内的心情。现在已经解破出来了，分享给大家( S& Z- B# }. e8 _% ?2 e* L
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法9 J% L- _; A1 v" I7 k
以下是RSA算法文件
' Z5 }8 G& w5 v: c0 g- K4 V( o' D" h5 K3 y6 t2 }1 O7 [
文件名RSA.ASP4 w! A7 A% L9 N, q$ ]5 J
===============================================
* V4 b8 E3 M# j<%
; l7 m% H* _6 [5 QClass clsRSA 8 P, s( b& R# v. P9 X4 k7 D
Public PrivateKey ) ~4 g8 d% r4 K/ @$ K# r
Public PublicKey
' Y1 a! }3 k+ `Public Modulus
* Y' I4 s# u7 {0 h2 d4 \, ]5 ^Public Function Crypt(pLngMessage, pLngKey)
* P8 _; f* p$ P) iOn Error Resume Next
  e; ^* t0 D) F$ KDim lLngMod ; ?& v& T# z7 P( G$ ]+ u1 j& o
Dim lLngResult & X5 I" p! l& F0 A
Dim lLngIndex
4 x  [; q& K7 i$ k4 QIf pLngKey Mod 2 = 0 Then
5 u5 x- n2 |( N- E' j7 P" {8 AlLngResult = 1
+ H; c$ V& A& e7 xFor lLngIndex = 1 To pLngKey / 2
: B  g0 z, |# T. B% elLngMod = (pLngMessage ^ 2) Mod Modulus ) I/ z$ G- J4 _0 O
' Mod may error on key generation
, V( n1 A8 H3 \% [% xlLngResult = (lLngMod * lLngResult) Mod Modulus 6 d+ [9 h" |6 o( I, n
If Err Then Exit Function 1 O9 e! h  X* X
Next 9 ]5 a2 X7 x5 h3 I; X* ?0 x, Y
Else
1 a6 ~9 T0 [3 D/ f) u! c+ J4 rlLngResult = pLngMessage
, P# q( E. g4 l% G8 }; X+ m9 kFor lLngIndex = 1 To pLngKey / 2
2 c* _8 y3 y% j/ \lLngMod = (pLngMessage ^ 2) Mod Modulus
; D/ k4 K7 N: i7 d0 M+ i( }$ aOn Error Resume Next 0 \* a  ]$ l( y+ a' X% c! [
' Mod may error on key generation 4 k) u. ^9 j6 s8 W* J2 k
lLngResult = (lLngMod * lLngResult) Mod Modulus . }7 Q: ^1 |, y! A% S
If Err Then Exit Function 6 ?6 e3 U1 S) A: C! s, _
Next
  I7 K$ a' f, n8 d2 d; gEnd If
, z0 F& J' F5 S" j2 e+ u+ LCrypt = lLngResult ! x+ F! `, w/ v' P  D
End Function
& X! _0 [. \# n% Z* ?+ {% I$ J+ K6 V. i3 v) n0 n! W
Public Function Encode(ByVal pStrMessage)
# n; ]7 C* y- J" h6 P1 vDim lLngIndex
  i, E+ R" s6 P- x) g4 {7 a& ?& tDim lLngMaxIndex : m/ b7 e; j& b$ t
Dim lBytAscii ; C  x2 C  o  C  G2 z' Y5 |' ~2 }
Dim lLngEncrypted 1 _1 c# O6 k* ?
lLngMaxIndex = Len(pStrMessage)
, v2 Q/ L3 G2 n; V2 a- B2 ^If lLngMaxIndex = 0 Then Exit Function
) F' s. M; W" E- zFor lLngIndex = 1 To lLngMaxIndex
4 e% a8 M- s) }! H8 F; {lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
  H$ k$ z9 g' T! [1 W: v$ D( vlLngEncrypted = Crypt(lBytAscii, PublicKey)
0 o( W& w# H- X8 J' ]Encode = Encode & NumberToHex(lLngEncrypted, 4) 2 |: s! ~2 y5 E( K0 G# i
Next % S, O+ P' m; J( F) v
End Function
$ I( m4 U9 O7 {5 ?3 n; _" o+ ~$ DPublic Function Decode(ByVal pStrMessage)
/ Y* Q5 I) I, @, Y" BDim lBytAscii
+ W' p/ L& i5 }$ ^9 `Dim lLngIndex
5 J. W' T& g2 z- n9 bDim lLngMaxIndex
5 F8 {; a: y- K/ _3 O8 Y" xDim lLngEncryptedData 1 \3 e# y9 V7 P0 I3 t: {
Decode = "" 9 e2 I( ~; r- w8 B
lLngMaxIndex = Len(pStrMessage) 0 b; I' e: f; W- ^% V$ ^
For lLngIndex = 1 To lLngMaxIndex Step 4 ; f, j% j, X6 V- l/ O
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
$ @5 d: n6 P( [, ilBytAscii = Crypt(lLngEncryptedData, PrivateKey)
; q1 o/ l% \. [2 b8 q3 B0 S5 ]3 }Decode = Decode & Chr(lBytAscii) ; M8 f2 o2 d; t8 V" V& z
Next ( V4 g7 ?+ x* d4 K
End Function
  J6 t" P' @7 ]& U5 J9 x. n# I$ j. UPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
1 r# G+ \( P" U$ w6 a0 ~) k, g! UNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ! m7 H4 [+ j; m0 Y+ }9 B- v# V
End Function
$ o) ~4 {6 j. \; Y; v# GPrivate Function HexToNumber(ByRef pStrHex) 6 W; R; V" S4 }9 j3 g% |; m
HexToNumber = CLng("&h" & pStrHex) + |5 `! H/ z  F# p; {9 D
End Function
* r6 ?) J4 Y- d) MEnd Class
& g& N& r, x5 Gfunction Encryptstr(Message) 5 \/ p5 b$ f( e5 Q! m  c" `; |) [
Dim LngKeyE ( U# o3 ]$ C& g
Dim LngKeyD
3 E; n3 p" A5 H% F2 ]Dim LngKeyN 3 Y0 J% J4 L2 O7 X
Dim StrMessage ) F  I9 j  X( \2 S  f
Dim ObjRSA
9 F3 W. F- z" V* R! m8 J3 yLngKeyE = "32823"
) r+ g# _) z/ j, Z6 V: MLngKeyD = "20643" * Z' o$ ^# W- p
LngKeyN = "29893" . ~  G" `3 A1 b1 P( k, R8 H
StrMessage = Message
( {# F) K  N3 f+ [Set ObjRSA = New clsRSA * L- B$ I* x; l& w
ObjRSA.PublicKey = LngKeyE ' t. N" _/ y0 Z/ S3 z1 I! N
ObjRSA.Modulus = LngKeyN + Q1 e0 p1 X! K0 p" M+ W1 r2 s" }
Encryptstr = ObjRSA.Encode(StrMessage) * d0 V& }% D6 y# `2 G0 H
Set ObjRSA = Nothing * G& L0 ]5 P, h3 v  R
end function/ I. ~  _3 J8 ~6 ?( N3 H$ k
Function Decryptstr(Message) $ ^# w4 v0 A* F5 k, p# @
Dim LngKeyE
/ y5 X' X* p: u( SDim LngKeyD 7 u# H, r6 T2 ~3 B3 v* M8 s- R" n( F
Dim LngKeyN
/ _) l$ ?# n  X' uDim StrMessage
# {2 t6 Y4 W8 i; B1 WDim ObjRSA
) |! W6 S* P0 A+ v5 P3 n3 g* j. M9 lLngKeyE = "32823"
+ ]) S- g" [$ c* t/ v* vLngKeyD = "20643"
6 x  z8 N; i4 eLngKeyN = "29893" - B; X" f- u# }2 h+ e
StrMessage = Message . I& N4 o/ o0 N% `2 s
Set ObjRSA = New clsRSA
) ]2 \* X6 ?  q; m; wObjRSA.PrivateKey =LngKeyD
! t2 ~4 s; U$ w! j9 {, J5 X9 `( MObjRSA.Modulus=LngKeyN
2 i: w! \' P  I" jdecryptstr=ObjRSA.Decode(StrMessage)
1 F5 ?) U/ F7 k: m0 C4 F" k9 m3 ~Set ObjRSA = Nothing
2 A0 c) n4 f, ^' yend function 0 X# G; [* A! {9 }
%>
- m- l! |7 I4 u* g===============================================
. x2 W) Q2 H9 G$ x, o; v
, A3 Q% _. b' L( D0 C5 j6 v! O# |还有一个用于测试这段代码的test.asp
" t& B' D4 u; g6 {8 E有兴趣的自己搭建个IIS测试下
1 ~0 j" G1 l% G% _5 ]" L' D+ P<!--#INCLUDE FILE="RSA.asp"-->
1 l9 N1 I& H! }+ L( |: M<%
) ~) P, A" _/ W; R1 Z2 h5 W! wfunction Encryptstr(Message) / m3 N3 N; O" N0 G! H2 O
Dim LngKeyE ) w9 H2 R- H" y9 Z; w3 o+ S
Dim LngKeyD # N. L! z; B# N
Dim LngKeyN
# ^+ `2 {0 _( p4 y, R. ^! m, \6 QDim StrMessage
5 Z8 K" K1 b& L/ \Dim ObjRSA
; D- N6 j( w/ w, ^7 |8 |* g- ZLngKeyE = "32823" 0 l* }0 `" R& y1 R: u
LngKeyD = "20643" 8 N: M8 _* b2 g& @7 X
LngKeyN = "29893"   l4 \/ F0 r4 W9 c& o8 o% V
StrMessage = Message & E% D6 a% `% S: k) ?3 D0 @, ]
Set ObjRSA = New clsRSA 9 |4 h8 K( A8 |/ p. g9 d
ObjRSA.PublicKey = LngKeyE
# _3 l& x. b, A/ ^1 l1 P3 OObjRSA.Modulus = LngKeyN 1 M, y4 S4 H7 u1 _3 x" A
Encryptstr = ObjRSA.Encode(StrMessage)
1 @" f& O- m. z1 x& J" z! dSet ObjRSA = Nothing
9 [  ]. r' E3 j6 I0 Lend function
, Z" Y2 \6 z% M4 j* S6 `function decryptstr(Message) 0 ~: D5 [& |$ n  y! A
Dim LngKeyE 0 {& d& X& X0 x3 |+ `& ?- u
Dim LngKeyD
9 D9 T: T6 s4 ^! _9 j. U) R2 d5 q! F6 QDim LngKeyN . x9 ?" k) }+ ]1 y/ @& |: j) u. V
Dim StrMessage $ B: k/ \2 a- T* @5 J6 B
Dim ObjRSA ; A: M& p' m6 ?5 j. e+ {( I
LngKeyE = "32823" , K4 `5 o* C7 j  T9 \! r
LngKeyD = "20643" " G' ?- @9 I4 N0 ]
LngKeyN = "29893"
# F5 Z  D* P3 R4 bStrMessage = Message ; u+ e1 a6 z$ f" g* w
Set ObjRSA = New clsRSA + m# m9 o( t/ N- X2 G) ?
ObjRSA.PrivateKey =LngKeyD
- a3 s, \- I2 H0 E8 yObjRSA.Modulus=LngKeyN 9 S+ H0 u6 O; i/ u% k& ^
decryptstr=ObjRSA.Decode(StrMessage) ; d: A. M5 X3 \4 g/ J9 |: K
Set ObjRSA = Nothing
1 V0 V0 s2 u# O& Y4 U" D, Wend function 3 L( x6 }) P9 v6 X% E( I
dim last,first
/ z' V; h' q8 |4 a3 Bfirst="!@#$%^&*()" / {$ b; n( w$ f' @& w
Response.Write "加密前为:"&first / x% T5 j/ w1 f; m" n
last=Encryptstr(first)
& V6 s* V& O4 @Response.Write "加密后为"&last
5 g  q/ N7 _3 ]  N7 [Response.Write "解密后为" &decryptstr(last) ! o4 W2 v- Z8 i, |
%> ==============================================% U2 D% w$ E8 L5 Y8 S
剩下的就是字符的对照表了
& s5 T& D1 o: }( n===================字符集================
- n* \& H8 O: c& u1_____6EBB3 H8 [/ N9 k& S0 e
2_____5C1F
8 X0 S0 J* x% v" r3_____4D75+ J' [1 \; T2 q. Z+ A- r, Q
4_____26CC
6 `3 S+ X: H: r: M' v) X5_____4F88
+ a3 l- [/ ^% V; u& w" H6_____3F4E2 i* A" K2 y. n0 w& p7 k
7_____0A9D
" ^7 K- ~& c9 ]8_____1A1C' H1 @1 O. Y! n& [, R7 d. ~
9_____6D207 S7 ]/ ?3 {* t  O; S
0_____1089
2 i! P3 x% ?0 ia_____0F3E0 C/ N+ d% d# b' z& o
b_____31596 B0 M2 i. g- U# b3 e$ S
c_____3517
; `6 o- g6 t) v( @- yd_____419C' O) e. t0 A8 t0 c4 b9 e
e_____615C
7 R4 O; H0 s; [- {f_____556F
% K$ l3 l9 J' g8 |g_____2B7F
- q* j0 V; o7 k2 J: l% L9 `h_____0F9C
" n5 @- V; T  Q6 S0 ci_____00FA
) `6 R0 L0 |. j4 Ej_____5A50
, |* f% `/ ]: c! hk_____28509 u9 c9 O7 g0 l3 V* S, n
l_____3E7B
# |9 F& o! R, f. d, wm_____71C53 Q* g( V2 t2 Q- i/ h9 A3 d
n_____1FC8
# t: z0 S4 Y( J: \, E% _4 ao_____74C1$ E! K  ?' c/ l( c& [
p_____5FB8. d- L) I1 A* W
q_____6085. \8 U; X, B% i$ ]
r_____3AC41 m$ F& L; y. w4 ]% k  |
s_____2F509 ~0 [+ b; _$ B6 K- N8 B. _% {
t_____36F8
2 l- U( Y( O) l% v  iu_____7010# m4 x: t/ C$ q, {
v_____0B42: {8 D" h0 }! k$ E: ^# j" n
w_____1C7A
, }# ^, m0 D, v* ~& Ox_____16F87 J+ Z" E+ c4 E2 r
y_____2EE7
7 M8 h, V2 U7 D9 G0 s' |4 G: t3 pz_____5CF3
6 [+ P( K( |  i: a" z2 f!_____6233
$ @' @' E: C7 D. R" T@_____3A45
; Y! A) d5 e$ r6 T0 q4 W( n3 _#_____22916 k7 `! a% M! e& R- k- b+ e2 J% x  s
$_____5D5C  Q! R3 ]) I8 @; V, i
%_____09B9$ p7 k1 h2 R+ z, |, P# m
^_____43EA
) J: |: w" K0 G1 q9 L  y&_____62B9
  p6 j) j7 T  s& Q- G7 e5 M& Y4 e*_____6301
( [1 Z! R5 ~  V% ~+ ^$ ~/ ?(_____46599 s: g1 q: {4 W0 J+ c
)_____5C82

鱼儿无心

收藏了。。。。。。。。