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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm; |3 b1 l2 f" I) S' c2 H; ~  w
原始出处：http://www.3ast.com.cm1 J; K* z; D: L

# [2 r) w& q0 w$ a$ B% F看不懂的直接绕过
3 Y( }. a! T2 f0 z( F* s加密前为:hwy123456" x* u4 K0 J! {
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E+ [& I7 X2 O0 g, ^

4 R% ]0 ~( ]: a: e) r  l0 H9 Z7 p============================================$ l# [8 l; w* u4 S6 T& j' |& Q* u- J
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
% k. ]+ ^1 j' e1 y0 M* q也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法. f' h! N' W6 Z) k, M
以下是RSA算法文件) m& A) Y0 \5 d) Y. g* c" {

, I$ m  A0 ~( e& Z文件名RSA.ASP
: h" u+ T  J! U; ]6 G( d===============================================
( D+ w: h" }2 y<%
( M5 l& }9 Q& ^: s$ r8 @$ [Class clsRSA
1 B/ G9 d% @! |Public PrivateKey , U2 o7 X2 s9 U, {, \* Y& ]6 o1 u
Public PublicKey 5 J$ w+ {1 b/ H% J* B+ [( _
Public Modulus , a* s8 h* s2 v4 d2 K8 C! [
Public Function Crypt(pLngMessage, pLngKey) - Z0 O6 H" C7 B/ K0 \5 [; q) [
On Error Resume Next
2 O) A+ t7 \& I- D. \! ]Dim lLngMod
4 Z& B( b: K( _1 [' F+ wDim lLngResult
: \& V, t9 m- j' H+ W- Q6 bDim lLngIndex
# K/ U" k5 a+ o% CIf pLngKey Mod 2 = 0 Then
+ E5 x& X) v& V. q2 E" _; ^6 y) klLngResult = 1 % t+ Q5 h6 D/ o$ K
For lLngIndex = 1 To pLngKey / 2
* _( V  P1 Y: H7 ilLngMod = (pLngMessage ^ 2) Mod Modulus
- ?2 m; |; t/ w6 R. S/ e, b6 m' Mod may error on key generation " y8 D. s# Z. i# ]- k+ v9 \
lLngResult = (lLngMod * lLngResult) Mod Modulus
  j/ c, [! V7 V4 s7 ?7 U' hIf Err Then Exit Function
* O; _! E( B6 o7 f$ i" {0 \Next
2 O1 E5 @7 ?! k! o2 Z) r( VElse
* _" @7 u3 L: G. ]lLngResult = pLngMessage $ G* [7 P+ `- L9 a+ F. g) x0 y
For lLngIndex = 1 To pLngKey / 2
* l# W' n6 B6 f7 p% Z8 O* \lLngMod = (pLngMessage ^ 2) Mod Modulus
  j* _/ G) W9 v' U7 E& L; M3 VOn Error Resume Next
. P, F4 }8 J9 q0 X8 q$ ^: j1 v' Mod may error on key generation % ]- [/ M$ l1 h  H3 l3 L1 I% ~
lLngResult = (lLngMod * lLngResult) Mod Modulus
( l8 l% _3 l; G, e7 \' D0 Y3 mIf Err Then Exit Function 5 X# p  X! c9 w5 ]/ E
Next
- f8 g4 _1 |' H- f& S3 |End If   ?. }" q! y; O% B- z% Z  A* y
Crypt = lLngResult
" A& ^! t  i- v, U( M% k7 JEnd Function$ x! j$ @2 R# S7 n- M. E

8 J+ w6 `6 u, Z* d$ ?) TPublic Function Encode(ByVal pStrMessage) 0 g- P! U' H" i$ @5 A
Dim lLngIndex
7 \$ H( @# U* F4 h0 t3 t4 z; J3 nDim lLngMaxIndex - y! Y$ [2 Y( i- h! D$ M
Dim lBytAscii * I4 [% q9 t) U  x; v3 H0 o
Dim lLngEncrypted " R6 E$ R+ J: D( m
lLngMaxIndex = Len(pStrMessage) ' Y  n+ @8 c: A( ]
If lLngMaxIndex = 0 Then Exit Function
! e4 n! y( \7 `. u4 EFor lLngIndex = 1 To lLngMaxIndex 8 z0 b) L1 Y( k& b0 T+ I" ^
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 m0 u) w) D* O" r
lLngEncrypted = Crypt(lBytAscii, PublicKey) ) a2 z) w$ T3 }+ N4 }$ i. S$ P, C4 L
Encode = Encode & NumberToHex(lLngEncrypted, 4) ; I1 z% J0 s9 y5 M. e& D
Next . T6 R- Y% _- x. z# ]. L1 S9 ^* v
End Function 4 ]( P+ ^$ B+ X- l9 [
Public Function Decode(ByVal pStrMessage) 1 c1 G( a- |* B! c3 O; x# ^: R2 V" o
Dim lBytAscii
6 {6 ?/ m* |0 sDim lLngIndex * ~/ a+ @" k+ {; D$ C, D% S" }% a
Dim lLngMaxIndex
' e  A: s3 `6 _1 ?Dim lLngEncryptedData ) u: |( r7 P3 l
Decode = "" + W- k5 q' W  l8 G% V, f
lLngMaxIndex = Len(pStrMessage) 1 a/ \' E0 h5 b' `; Z% n( T
For lLngIndex = 1 To lLngMaxIndex Step 4
+ y3 g/ g2 i; {% ^lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) - j9 V0 W  R4 _8 H; O$ O* Q
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
) N( N" A" @1 p* z) d9 f5 @Decode = Decode & Chr(lBytAscii) 4 ]/ H& G+ [, E! `* j& h8 g
Next ' F; |3 e; `, O) O% l* Y. R6 N. J
End Function
/ G6 Z. ^7 v( Z8 _1 a/ a" lPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
: Z* Q# o7 B1 r3 \3 zNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
  h9 e) Z8 }+ s9 OEnd Function
9 v" z7 j; B; l+ E( H; wPrivate Function HexToNumber(ByRef pStrHex)
7 c; A' A+ {6 g  CHexToNumber = CLng("&h" & pStrHex)
6 O$ I, ?; E0 @8 SEnd Function
& C/ H7 D0 n6 o: X$ ?* z( rEnd Class # J- O9 i: |: g5 M  B  \
function Encryptstr(Message)
9 a% E* v8 o$ r7 s9 x- {Dim LngKeyE
" H8 d' Q! ^* M, o' jDim LngKeyD
+ ?9 N4 \( k* @& R# LDim LngKeyN
# T1 v. e5 T" J! [! [5 e( A) {2 tDim StrMessage / D" u+ R- ?9 c2 g
Dim ObjRSA 8 _9 W2 p. T7 {7 M; \
LngKeyE = "32823"
" \- N- S; {8 ^2 l9 ~* G8 p' lLngKeyD = "20643" ' W( l- E' ~3 F2 J* V: k
LngKeyN = "29893" 4 m% [' T) h: }% l5 J  o5 O
StrMessage = Message " A7 X1 q5 s& r
Set ObjRSA = New clsRSA
; M, r/ N! c. k' f& H( N+ |4 `ObjRSA.PublicKey = LngKeyE % s0 F3 t8 c& [% ~  C
ObjRSA.Modulus = LngKeyN 6 a, U  Z& E: L2 f8 `7 c
Encryptstr = ObjRSA.Encode(StrMessage)
, W- B+ j, x2 M* `. wSet ObjRSA = Nothing
5 |; C; L% X5 u$ k$ v' Cend function
$ A) x  f) \6 Q& k) _' D) i" eFunction Decryptstr(Message) 7 H+ B! @) ]. W$ M/ r
Dim LngKeyE
% G+ @- k8 @) v4 QDim LngKeyD
& \! T7 ?) x: k( P- R/ pDim LngKeyN
/ X  z" n4 A+ c( q9 ]Dim StrMessage
5 F% r) E" V6 U/ X* c& J# x& G) W2 bDim ObjRSA , @2 H( ?0 m! W3 s  t
LngKeyE = "32823"
5 U4 ^: G1 S3 x/ v# LLngKeyD = "20643" & k5 w6 E/ W4 {# i5 F; k" n. p
LngKeyN = "29893"
. ]1 i* {* f! tStrMessage = Message
+ m3 D4 M! W7 g. E! y/ M, C5 PSet ObjRSA = New clsRSA
, x, K7 j8 J: L" ?% c5 ]ObjRSA.PrivateKey =LngKeyD 2 G$ B! b" z* L: X: W+ C2 Q) q
ObjRSA.Modulus=LngKeyN / `2 c& D0 I3 z0 ]) s
decryptstr=ObjRSA.Decode(StrMessage) , M  d# ^+ R6 y% H7 c6 J7 {) Q8 q
Set ObjRSA = Nothing ) Q5 H& @' O, z" X) u) h, W) `
end function 1 f" o3 k  E( y$ A' @
%>
7 K0 w7 b) ?/ t) K; \" y' M( Z; x6 v===============================================& u$ j4 f2 `: a, ?/ P

- M0 V9 k& G4 u1 ?还有一个用于测试这段代码的test.asp
1 y# o8 J  Y% Y: H3 K) G# C% Y  ?3 F0 U有兴趣的自己搭建个IIS测试下
5 Y4 G3 C% B4 p<!--#INCLUDE FILE="RSA.asp"-->
' u& r" R7 O) _! H1 P# |8 J<%
; S) i2 Z% I! y$ i+ W2 l: Ifunction Encryptstr(Message)
4 P8 B/ B+ @1 f* t# HDim LngKeyE ( k7 {0 h  `9 L, Q1 F* H
Dim LngKeyD
5 l6 `" F3 ~+ d1 wDim LngKeyN - a. x* g. X0 X2 n3 m2 y
Dim StrMessage & @% s! A  a/ Q; X: I% X
Dim ObjRSA
1 M( N$ `: L' f# NLngKeyE = "32823"
( |- b4 a+ d* }8 a2 C: y# RLngKeyD = "20643"
3 [/ H# ^8 l; g6 \+ K$ J1 KLngKeyN = "29893" 8 n  @! K1 \. Z5 z3 a6 `
StrMessage = Message 9 N) H2 h) B+ T' d1 \2 y) Z
Set ObjRSA = New clsRSA   }, @( n7 P" e2 u9 K' [
ObjRSA.PublicKey = LngKeyE 8 \" w9 r) v1 C# n. f
ObjRSA.Modulus = LngKeyN
! k7 v; i8 @9 O% \Encryptstr = ObjRSA.Encode(StrMessage) 7 ]8 [. o% Z' \
Set ObjRSA = Nothing 4 Z5 g+ }7 g$ {* z
end function 4 H* E8 P* \+ {" ^* R
function decryptstr(Message)
, l/ @7 ?0 S$ K' CDim LngKeyE ; b' H9 c7 W  x* \- G4 |/ K. g
Dim LngKeyD ( a# c- u( {) H2 W- M! q% E
Dim LngKeyN
$ f; `/ r9 P  |0 m0 p3 RDim StrMessage 9 e$ F2 s  ~# i0 n) q
Dim ObjRSA   `) K& ]0 y# b
LngKeyE = "32823" 7 d. U% P- u1 a' B7 T
LngKeyD = "20643" + \/ f7 v% r4 J5 S0 _
LngKeyN = "29893"
6 c9 p8 d0 k- a9 uStrMessage = Message 5 k9 r9 N( O; @: Q& K. f( g, P  s% Y
Set ObjRSA = New clsRSA
5 y+ Z7 L9 z1 N+ e4 WObjRSA.PrivateKey =LngKeyD
: h& I5 d; I9 I" L8 Y2 |2 X: n4 t+ V, [ObjRSA.Modulus=LngKeyN
2 F" W" Y: Q% q% g0 s% }( }decryptstr=ObjRSA.Decode(StrMessage)
# F, N3 j4 E! h& RSet ObjRSA = Nothing
1 ^( Y+ h) k; O  d# P9 t! Z- o3 pend function
$ @# Y! M+ q* Y: }$ m2 \dim last,first
% B1 E3 [7 g9 J5 Y# G8 j/ G) V" [* l$ Jfirst="!@#$%^&*()"
" f4 p, G9 S1 ]+ x; HResponse.Write "加密前为:"&first
* X, a7 G; s1 o$ Z5 Ilast=Encryptstr(first) ; `% e0 B; {$ B( s# T* Q& _
Response.Write "加密后为"&last * C# s7 H9 W% M3 s: u0 ]( ^
Response.Write "解密后为" &decryptstr(last)
! m0 |0 ?' D6 h: Y  Y%> ==============================================
0 _! H% ]8 s  |& A& [9 \剩下的就是字符的对照表了, a& C: _, Y& \& A, d6 F
===================字符集================7 b+ g" D: b: Z1 \
1_____6EBB" T/ k  u/ o! W, i1 L
2_____5C1F
: ^! o/ W, q+ T3_____4D75' j4 Y* O, e& n$ A- F0 e/ g6 j
4_____26CC
5 w' m. A' c) f2 @5_____4F88; h5 |9 O; M  d9 X1 d6 D+ B" Z4 P
6_____3F4E
/ s- z. ~' R$ h! b& q$ t6 Y7_____0A9D
: U9 h' [, b; r: F" s; t8_____1A1C1 r% d, V' L3 a" h# K( H$ U# T3 e
9_____6D20( }" T7 H: \- t0 h2 v8 g3 [: p
0_____1089
% O$ u& D& w5 v$ I0 U: y- Ra_____0F3E6 t/ P) z4 X( H9 R# a
b_____31591 s, F+ y6 @+ D* N: s
c_____3517* O, I2 j- a* S: ^6 q
d_____419C. Z* S5 W$ ~; v9 K$ V; s
e_____615C+ k0 G2 H5 T( T' h& I( s
f_____556F
  d0 ^" D1 k9 m* [4 G: [, E" f0 mg_____2B7F2 W7 I: A, O  g7 A, ~
h_____0F9C
0 u. C; O! b! Y; si_____00FA2 N1 ^# A6 U" a; p) e+ o' P
j_____5A50$ l. \8 O4 t; V+ O+ [* E0 R4 Z# s5 \
k_____2850% [" \- b: d6 }- S) F
l_____3E7B4 s% H! c" a  B
m_____71C5
1 F6 ?9 H. s. `, L8 Vn_____1FC8; t: \" N1 I% ^
o_____74C1
  E2 u) M9 m/ h: k1 F9 R6 op_____5FB8
, [* ~2 e' Y8 Y5 {# {$ ]+ \q_____6085, Z, _. Y. o, B- a
r_____3AC4( T( v8 X4 c+ _" Q: N
s_____2F50
+ L  e) w/ z& p& ?0 Lt_____36F81 J7 H% [9 v- Z6 `5 s1 _( ]
u_____70106 A. t. e' c9 ~: g+ h  r
v_____0B42
! c. `  p4 D: u, o1 mw_____1C7A7 X( F; H" b" p) K3 p
x_____16F80 j2 i, u$ o1 C0 U
y_____2EE72 U8 F6 u; P/ V. t8 T. M' `
z_____5CF3
9 x7 ]5 i3 H& O; P!_____6233& i  Y4 p6 V9 |& w4 j! K5 R
@_____3A45
6 m: }( B" \: [( n/ w#_____2291
2 t0 i' n+ `$ h$ Y. p  o) x$_____5D5C) c( D  j1 l5 }& L+ j
%_____09B9, A/ [' f& h3 @) H/ M' p0 i
^_____43EA
7 }- N. T( D; Y* x&_____62B9
4 [' O- j9 ]# a& P, n*_____6301: g2 _: I& o: E) p3 E0 u5 R
(_____4659
  u# a- `0 ^" l( U* z* @)_____5C82

鱼儿无心

收藏了。。。。。。。。