byte_ord.ps

该源码属于应用密码学里国际加密标准算法IDEA的实现

	/xx FMLOCAL
	/yy FMLOCAL
	/ww FMLOCAL
	/hh FMLOCAL
	/FMsaveobject FMLOCAL
	/FMoptop FMLOCAL
	/FMdicttop FMLOCAL
/BEGINPRINTCODE { 
	/FMdicttop countdictstack 1 add def 
	/FMoptop count 4 sub def 
	/FMsaveobject save def
	userdict begin 
	/showpage {} def 
	FMNORMALIZEGRAPHICS 
	3 index neg 3 index neg translate
	} bind def
/ENDPRINTCODE {
	count -1 FMoptop {pop pop} for 
	countdictstack -1 FMdicttop {pop end} for 
	FMsaveobject restore 
	} bind def
/gn { 
	0 
	{	46 mul 
		cf read pop 
		32 sub 
		dup 46 lt {exit} if 
		46 sub add 
		} loop
	add 
	} bind def
	/str FMLOCAL
/cfs { 
	/str sl string def 
	0 1 sl 1 sub {str exch val put} for 
	str def 
	} bind def
/ic [ 
	0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0223
	0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0223
	0
	{0 hx} {1 hx} {2 hx} {3 hx} {4 hx} {5 hx} {6 hx} {7 hx} {8 hx} {9 hx}
	{10 hx} {11 hx} {12 hx} {13 hx} {14 hx} {15 hx} {16 hx} {17 hx} {18 hx}
	{19 hx} {gn hx} {0} {1} {2} {3} {4} {5} {6} {7} {8} {9} {10} {11} {12}
	{13} {14} {15} {16} {17} {18} {19} {gn} {0 wh} {1 wh} {2 wh} {3 wh}
	{4 wh} {5 wh} {6 wh} {7 wh} {8 wh} {9 wh} {10 wh} {11 wh} {12 wh}
	{13 wh} {14 wh} {gn wh} {0 bl} {1 bl} {2 bl} {3 bl} {4 bl} {5 bl} {6 bl}
	{7 bl} {8 bl} {9 bl} {10 bl} {11 bl} {12 bl} {13 bl} {14 bl} {gn bl}
	{0 fl} {1 fl} {2 fl} {3 fl} {4 fl} {5 fl} {6 fl} {7 fl} {8 fl} {9 fl}
	{10 fl} {11 fl} {12 fl} {13 fl} {14 fl} {gn fl}
	] def
	/sl FMLOCAL
	/val FMLOCAL
	/ws FMLOCAL
	/im FMLOCAL
	/bs FMLOCAL
	/cs FMLOCAL
	/len FMLOCAL
	/pos FMLOCAL
/ms { 
	/sl exch def 
	/val 255 def 
	/ws cfs 
	/im cfs 
	/val 0 def 
	/bs cfs 
	/cs cfs 
	} bind def
400 ms 
/ip { 
	is 
	0 
	cf cs readline pop 
	{	ic exch get exec 
		add 
		} forall 
	pop 
	
	} bind def
/wh { 
	/len exch def 
	/pos exch def 
	ws 0 len getinterval im pos len getinterval copy pop
	pos len 
	} bind def
/bl { 
	/len exch def 
	/pos exch def 
	bs 0 len getinterval im pos len getinterval copy pop
	pos len 
	} bind def
/s1 1 string def
/fl { 
	/len exch def 
	/pos exch def 
	/val cf s1 readhexstring pop 0 get def
	pos 1 pos len add 1 sub {im exch val put} for
	pos len 
	} bind def
/hx { 
	3 copy getinterval 
	cf exch readhexstring pop pop 
	} bind def
	/h FMLOCAL
	/w FMLOCAL
	/d FMLOCAL
	/lb FMLOCAL
	/bitmapsave FMLOCAL
	/is FMLOCAL
	/cf FMLOCAL
/wbytes { 
	dup 
	8 eq {pop} {1 eq {7 add 8 idiv} {3 add 4 idiv} ifelse} ifelse
	} bind def
/BEGINBITMAPBWc { 
	1 {} COMMONBITMAPc
	} bind def
/BEGINBITMAPGRAYc { 
	8 {} COMMONBITMAPc
	} bind def
/BEGINBITMAP2BITc { 
	2 {} COMMONBITMAPc
	} bind def
/COMMONBITMAPc { 
	/r exch def
	/d exch def
	gsave
	translate rotate scale /h exch def /w exch def
	/lb w d wbytes def 
	sl lb lt {lb ms} if 
	/bitmapsave save def 
	r                    
	/is im 0 lb getinterval def 
	ws 0 lb getinterval is copy pop 
	/cf currentfile def 
	w h d [w 0 0 h neg 0 h] 
	{ip} image 
	bitmapsave restore 
	grestore
	} bind def
/BEGINBITMAPBW { 
	1 {} COMMONBITMAP
	} bind def
/BEGINBITMAPGRAY { 
	8 {} COMMONBITMAP
	} bind def
/BEGINBITMAP2BIT { 
	2 {} COMMONBITMAP
	} bind def
/COMMONBITMAP { 
	/r exch def
	/d exch def
	gsave
	translate rotate scale /h exch def /w exch def
	/bitmapsave save def 
	r                    
	/is w d wbytes string def
	/cf currentfile def 
	w h d [w 0 0 h neg 0 h] 
	{cf is readhexstring pop} image
	bitmapsave restore 
	grestore
	} bind def
	/proc1 FMLOCAL
	/proc2 FMLOCAL
	/newproc FMLOCAL
/Fmcc {
    /proc2 exch cvlit def
    /proc1 exch cvlit def
    /newproc proc1 length proc2 length add array def
    newproc 0 proc1 putinterval
    newproc proc1 length proc2 putinterval
    newproc cvx
} bind def
/ngrayt 256 array def
/nredt 256 array def
/nbluet 256 array def
/ngreent 256 array def
	/gryt FMLOCAL
	/blut FMLOCAL
	/grnt FMLOCAL
	/redt FMLOCAL
	/indx FMLOCAL
	/cynu FMLOCAL
	/magu FMLOCAL
	/yelu FMLOCAL
	/k FMLOCAL
	/u FMLOCAL
/colorsetup {
	currentcolortransfer
	/gryt exch def
	/blut exch def
	/grnt exch def
	/redt exch def
	0 1 255 {
		/indx exch def
		/cynu 1 red indx get 255 div sub def
		/magu 1 green indx get 255 div sub def
		/yelu 1 blue indx get 255 div sub def
		/k cynu magu min yelu min def
		/u k currentundercolorremoval exec def
		nredt indx 1 0 cynu u sub max sub redt exec put
		ngreent indx 1 0 magu u sub max sub grnt exec put
		nbluet indx 1 0 yelu u sub max sub blut exec put
		ngrayt indx 1 k currentblackgeneration exec sub gryt exec put
	} for
	{255 mul cvi nredt exch get}
	{255 mul cvi ngreent exch get}
	{255 mul cvi nbluet exch get}
	{255 mul cvi ngrayt exch get}
	setcolortransfer
	{pop 0} setundercolorremoval
	{} setblackgeneration
	} bind def
	/tran FMLOCAL
/fakecolorsetup {
	/tran 256 string def
	0 1 255 {/indx exch def 
		tran indx
		red indx get 77 mul
		green indx get 151 mul
		blue indx get 28 mul
		add add 256 idiv put} for
	currenttransfer
	{255 mul cvi tran exch get 255.0 div}
	exch Fmcc settransfer
} bind def
/BITMAPCOLOR { 
	/d 8 def
	gsave
	translate rotate scale /h exch def /w exch def
	/bitmapsave save def 
	colorsetup
	/is w d wbytes string def
	/cf currentfile def 
	w h d [w 0 0 h neg 0 h] 
	{cf is readhexstring pop} {is} {is} true 3 colorimage 
	bitmapsave restore 
	grestore
	} bind def
/BITMAPCOLORc { 
	/d 8 def
	gsave
	translate rotate scale /h exch def /w exch def
	/lb w d wbytes def 
	sl lb lt {lb ms} if 
	/bitmapsave save def 
	colorsetup
	/is im 0 lb getinterval def 
	ws 0 lb getinterval is copy pop 
	/cf currentfile def 
	w h d [w 0 0 h neg 0 h] 
	{ip} {is} {is} true 3 colorimage
	bitmapsave restore 
	grestore
	} bind def
/BITMAPTRUECOLORc { 
        gsave
        translate rotate scale /h exch def /w exch def
        /bitmapsave save def 
        
        /is w string def
        
        ws 0 w getinterval is copy pop 
        /cf currentfile def 
        w h 8 [w 0 0 h neg 0 h] 
        {ip} {gip} {bip} true 3 colorimage
        bitmapsave restore 
        grestore
        } bind def
/BITMAPTRUECOLOR { 
        gsave
        translate rotate scale /h exch def /w exch def
        /bitmapsave save def 
        /is w string def
        /gis w string def
        /bis w string def
        /cf currentfile def 
        w h 8 [w 0 0 h neg 0 h] 
        { cf is readhexstring pop } 
        { cf gis readhexstring pop } 
        { cf bis readhexstring pop } 
        true 3 colorimage 
        bitmapsave restore 
        grestore
        } bind def
/BITMAPTRUEGRAYc { 
        gsave
        translate rotate scale /h exch def /w exch def
        /bitmapsave save def 
        
        /is w string def
        
        ws 0 w getinterval is copy pop 
        /cf currentfile def 
        w h 8 [w 0 0 h neg 0 h] 
        {ip gip bip w gray} image
        bitmapsave restore 
        grestore
        } bind def
/ww FMLOCAL
/r FMLOCAL
/g FMLOCAL
/b FMLOCAL
/i FMLOCAL
/gray { 
        /ww exch def
        /b exch def
        /g exch def
        /r exch def
        0 1 ww 1 sub { /i exch def r i get .299 mul g i get .587 mul
			b i get .114 mul add add r i 3 -1 roll floor cvi put } for
        r
        } bind def
/BITMAPTRUEGRAY { 
        gsave
        translate rotate scale /h exch def /w exch def
        /bitmapsave save def 
        /is w string def
        /gis w string def
        /bis w string def
        /cf currentfile def 
        w h 8 [w 0 0 h neg 0 h] 
        { cf is readhexstring pop 
          cf gis readhexstring pop 
          cf bis readhexstring pop w gray}  image
        bitmapsave restore 
        grestore
        } bind def
/BITMAPGRAY { 
	8 {fakecolorsetup} COMMONBITMAP
	} bind def
/BITMAPGRAYc { 
	8 {fakecolorsetup} COMMONBITMAPc
	} bind def
/ENDBITMAP {
	} bind def
end 
	/ALDsave FMLOCAL
	/ALDmatrix matrix def ALDmatrix currentmatrix pop
/StartALD {
	/ALDsave save def
	 savematrix
	 ALDmatrix setmatrix
	} bind def
/InALD {
	 restorematrix
	} bind def
/DoneALD {
	 ALDsave restore
	} bind def
%%EndProlog
%%BeginSetup
(3.0) FMVERSION
1 1 612 792 0 1 13 FMDOCUMENT
0 0 /Times-Bold FMFONTDEFINE
1 0 /Times-Roman FMFONTDEFINE
2 0 /Times-Italic FMFONTDEFINE
3 1 /Symbol FMFONTDEFINE
32 FMFILLS
0 0 FMFILL
1 0.1 FMFILL
2 0.3 FMFILL
3 0.5 FMFILL
4 0.7 FMFILL
5 0.9 FMFILL
6 0.97 FMFILL
7 1 FMFILL
8 <0f1e3c78f0e1c387> FMFILL
9 <0f87c3e1f0783c1e> FMFILL
10 <cccccccccccccccc> FMFILL
11 <ffff0000ffff0000> FMFILL
12 <8142241818244281> FMFILL
13 <03060c183060c081> FMFILL
14 <8040201008040201> FMFILL
16 1 FMFILL
17 0.9 FMFILL
18 0.7 FMFILL
19 0.5 FMFILL
20 0.3 FMFILL
21 0.1 FMFILL
22 0.03 FMFILL
23 0 FMFILL
24 <f0e1c3870f1e3c78> FMFILL
25 <f0783c1e0f87c3e1> FMFILL
26 <3333333333333333> FMFILL
27 <0000ffff0000ffff> FMFILL
28 <7ebddbe7e7dbbd7e> FMFILL
29 <fcf9f3e7cf9f3f7e> FMFILL
30 <7fbfdfeff7fbfdfe> FMFILL
%%EndSetup
%%Page: "1" 1
%%BeginPaperSize: Letter
%%EndPaperSize
612 792 0 FMBEGINPAGE
72 746 540 756 R
7 X
0 K
V
72 32.67 540 42.67 R
V
72 72 540 720 R
V
0 18 Q
0 X
(Data Repr) 188.43 701.33 T
(esentation for IDEA) 268.59 701.33 T
1 10 Q
(Richard De Moliner and Xuejia Lai, Jan. 1992) 213.1 677.33 T
(Signal and Information Processing Laboratory) 213.24 653.33 T
(Swiss Federal Institute of T) 230.24 641.33 T
(echnology) 340.1 641.33 T
(CH-8092 Z\237rich, Switzerland) 246.43 629.33 T
0 14 Q
(Relations) 278 146.65 T
72 72 540 720 C
72 157.98 540 626 C
72 157.98 540 626 R
7 X
0 K
V
1 10 Q
0 X
(B) 165.88 516.29 T
1 8 Q
(4) 172.55 513.79 T
1 10 Q
(I) 153.38 459.6 T
1 8 Q
(2) 156.71 457.1 T
1 10 Q
(X) 151.43 402.91 T
1 8 Q
(2) 158.65 400.41 T
1 10 Q
(Z) 147.33 429.93 T
1 8 Q
(2) 153.44 427.43 T
(\0501\051) 157.44 433.93 T
1 10 Q
(Y) 151.43 374.56 T
1 8 Q
(2) 158.65 372.06 T
1 10 Q
(B) 137.53 516.29 T
1 8 Q
(3) 144.2 513.79 T
1 10 Q
(B) 222.57 516.29 T
1 8 Q
(6) 229.24 513.79 T
1 10 Q
(I) 210.07 459.6 T
1 8 Q
(3) 213.4 457.1 T
1 10 Q
(X) 208.12 402.91 T
1 8 Q
(3) 215.35 400.41 T
1 10 Q
(Z) 204.02 429.93 T
1 8 Q
(3) 210.13 427.43 T
(\0501\051) 214.13 433.93 T
1 10 Q
(Y) 208.12 374.56 T
1 8 Q
(3) 215.35 372.06 T
1 10 Q
(B) 194.23 516.29 T
1 8 Q
(5) 200.9 513.79 T
1 10 Q
(B) 279.27 516.29 T
1 8 Q
(8) 285.94 513.79 T
1 10 Q
(I) 266.76 459.6 T
1 8 Q
(4) 270.09 457.1 T
1 10 Q
(X) 264.82 402.91 T
1 8 Q
(4) 272.04 400.41 T
1 10 Q
(Z) 260.71 429.93 T
1 8 Q
(4) 266.82 427.43 T
(\0501\051) 270.82 433.93 T
1 10 Q
(Y) 264.82 374.56 T
1 8 Q
(4) 272.04 372.06 T
1 10 Q
(B) 250.92 516.29 T
1 8 Q
(7) 257.59 513.79 T
1 10 Q
(B) 109.19 516.29 T
1 8 Q
(2) 115.86 513.79 T
1 10 Q
(I) 96.68 459.6 T
1 8 Q
(1) 100.01 457.1 T
1 10 Q
(X) 94.74 402.91 T
1 8 Q
(1) 101.96 400.41 T
1 10 Q
(Z) 90.63 429.93 T
1 8 Q
(1) 96.74 427.43 T
(\0501\051) 100.74 433.93 T
1 10 Q
(Y) 94.74 374.56 T
1 8 Q
(1) 101.96 372.06 T
1 10 Q
(B) 80.84 516.29 T
1 8 Q
(1) 87.51 513.79 T
1 7 Q
(b) 77.93 574.01 T
1 6 Q
(1) 81.43 572.26 T
1 7 Q
(..b) 84.43 574.01 T
1 6 Q
(8) 91.43 572.26 T
1 7 Q
(b) 104.78 574.01 T
1 6 Q
(9) 108.28 572.26 T
1 7 Q
(..b) 111.28 574.01 T
1 6 Q
(16) 118.28 572.26 T
1 7 Q
(b) 245.01 574.01 T
1 6 Q
(49) 248.51 572.26 T
1 7 Q
(..b) 254.51 574.01 T
1 6 Q
(56) 261.51 572.26 T
1 7 Q
(b) 273.36 574.01 T
1 6 Q
(57) 276.86 572.26 T
1 7 Q
(..b) 282.86 574.01 T
1 6 Q
(64) 289.86 572.26 T
1 7 Q
(b) 131.63 574.01 T
1 6 Q
(17) 135.13 572.26 T
1 7 Q
(..b) 141.13 574.01 T
1 6 Q
(24) 148.13 572.26 T
1 7 Q
(b) 159.97 574.01 T
1 6 Q
(25) 163.47 572.26 T
1 7 Q
(..b) 169.47 574.01 T
1 6 Q
(32) 176.47 572.26 T
1 7 Q
(b) 188.32 574.01 T
1 6 Q
(33) 191.82 572.26 T
1 7 Q
(..b) 197.82 574.01 T
1 6 Q
(40) 204.82 572.26 T
1 7 Q
(b) 216.67 574.01 T
1 6 Q
(41) 220.17 572.26 T
1 7 Q
(..b) 226.17 574.01 T
1 6 Q
(48) 233.17 572.26 T
1 10 Q
(B) 390.65 516.29 T
1 8 Q
(12) 397.32 513.79 T
1 10 Q
(I) 380.15 459.6 T
1 8 Q
(6) 383.48 457.1 T
1 10 Q
(X) 378.2 402.91 T
1 8 Q
(2) 385.42 400.41 T
1 10 Q
(Z) 374.1 429.93 T
1 8 Q
(6) 380.21 427.43 T
(\0501\051) 384.21 433.93 T
1 10 Q
(Y) 378.2 374.56 T
1 8 Q
(2) 385.42 372.06 T
1 10 Q