gost-spec.ps

有关gost算法的。gost算法是苏联官方加密标准

%!PS-Adobe-2.0
%%Creator: dvips by Radical Eye Software
%%Title: final.dvi
%%Pages: 9 1
%%BoundingBox: 0 0 612 792
%%EndComments
%%BeginDocument: tex.pro
/TeXDict 200 dict def TeXDict begin /bdf{bind def}def /@rigin{72 Resolution
div dup neg scale translate}bdf /@letter{Resolution dup -10 mul @rigin}bdf
/@landscape{[0 1 -1 0 0 0]concat Resolution dup @rigin}bdf /@a4{Resolution dup
-10.6929133858 mul @rigin}bdf /@legal{Resolution dup -13 mul @rigin}bdf
/@manualfeed{statusdict /manualfeed true put}bdf /@copies{/#copies exch def}
bdf /@FontMatrix[1 0 0 -1 0 0]def /@FontBBox[0 0 0 0]def /dmystr(ZZf@@@)def
/newname{dmystr cvn}bdf /df{/fontname exch def dmystr 2 fontname cvx(@@@@)cvs
putinterval newname 7 dict def newname load begin /FontType 3 def /FontMatrix
@FontMatrix def /FontBBox @FontBBox def /BitMaps 256 array def /BuildChar{
CharBuilder}def /Encoding IdentityEncoding def end fontname{/foo setfont}2
array copy cvx def fontname load 0 dmystr 6 string copy cvn cvx put}bdf /dfe{
newname dup load definefont setfont}bdf /ch-image{ch-data 0 get}bdf /ch-width{
ch-data 1 get}bdf /ch-height{ch-data 2 get}bdf /ch-xoff{ch-data 3 get}bdf
/ch-yoff{ch-data 4 get}bdf /ch-dx{ch-data 5 get}bdf /CharBuilder{save 3 1 roll
exch /BitMaps get exch get /ch-data exch def ch-data null ne{ch-dx 0 ch-xoff
ch-yoff neg ch-xoff ch-width add ch-height ch-yoff sub setcachedevice ch-width
ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-height ch-yoff sub .1 add]{
ch-image}imagemask}if restore}bdf /dc{/ch-code exch def /ch-data exch def
newname load /BitMaps get ch-code ch-data put}bdf /bop{gsave /SaveImage save
def 0 0 moveto}bdf /eop{clear SaveImage restore showpage grestore}bdf /@start{
/Resolution exch def /IdentityEncoding 256 array def 0 1 255{IdentityEncoding
exch 1 string dup 0 3 index put cvn put}for}bdf /p{show}bdf /RuleMatrix[1 0 0
-1 -.1 -.1]def /BlackDots 8 string def /v{gsave currentpoint translate false
RuleMatrix{BlackDots}imagemask grestore}bdf /a{moveto}bdf /delta 0 def /tail{
dup /delta exch def 0 rmoveto}bdf /b{exch show tail}bdf /c{show delta 4 sub
tail}bdf /d{show delta 3 sub tail}bdf /e{show delta 2 sub tail}bdf /f{show
delta 1 sub tail}bdf /g{show delta 0 rmoveto}bdf /h{show delta 1 add tail}bdf
/i{show delta 2 add tail}bdf /j{show delta 3 add tail}bdf /k{show delta 4 add
tail}bdf /l{show -4 0 rmoveto}bdf /m{show -3 0 rmoveto}bdf /n{show -2 0
rmoveto}bdf /o{show -1 0 rmoveto}bdf /q{show 1 0 rmoveto}bdf /r{show 2 0
rmoveto}bdf /s{show 3 0 rmoveto}bdf /t{show 4 0 rmoveto}bdf /w{0 rmoveto}bdf
/x{0 exch rmoveto}bdf /y{3 2 roll show moveto}bdf /bos{/section save def}bdf
/eos{clear section restore}bdf end
/TeXscale {
exch
65782 div
def
} def
gsave initgraphics
/DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecap
currentlinejoin currentdash currentgray currentmiterlimit ] cvx def
grestore
/startTexFig {
/SavedState save def
userdict maxlength dict begin
currentpoint transform
DocumentInitState setmiterlimit setgray setdash setlinejoin setlinecap
setlinewidth setmatrix
itransform moveto
/bb-ury TeXscale
/bb-urx TeXscale
/bb-lly TeXscale
/bb-llx TeXscale
/height TeXscale
/width  TeXscale
currentpoint /cy exch def /cx exch def
/sx width  bb-urx bb-llx sub div def
/sy height bb-ury bb-lly sub div def
sx sy scale
cx sx div bb-llx sub
cy sy div bb-ury sub translate
/DefFigCTM matrix currentmatrix def
/initmatrix {
DefFigCTM setmatrix
} def
/defaultmatrix {
DefFigCTM exch copy
} def
/initgraphics {
DocumentInitState setmiterlimit setgray setdash
setlinejoin setlinecap setlinewidth setmatrix
DefFigCTM setmatrix
} def
/showpage {
initgraphics
} def
/letter {} def
/note {} def
/legal {} def
} def
/clipFig {
currentpoint 6 2 roll
newpath 4 copy
4 2 roll moveto
6 -1 roll exch lineto
exch lineto
exch lineto
closepath clip
newpath
moveto
} def
/doclip { bb-llx bb-lly bb-urx bb-ury clipFig } def
/endTexFig {
end SavedState restore
} def
%%EndDocument
%%BeginDocument: special.pro
TeXDict begin /SDict 200 dict def SDict begin /@SpecialDefaults{/hs 612 def
/vs 792 def /ho 0 def /vo 0 def /hsc 1 def /vsc 1 def /ang 0 def /CLIP false
def /BBcalc false def}bdf /@scaleunit 100 def /@hscale{@scaleunit div /hsc
exch def}bdf /@vscale{@scaleunit div /vsc exch def}bdf /@hsize{/hs exch def
/CLIP true def}bdf /@vsize{/vs exch def /CLIP true def}bdf /@hoffset{/ho exch
def}bdf /@voffset{/vo exch def}bdf /@angle{/ang exch def}bdf /@rwi{10 div /rwi
exch def}bdf /@llx{/llx exch def}bdf /@lly{/lly exch def}bdf /@urx{/urx exch
def}bdf /@ury{/ury exch def /BBcalc true def}bdf end /@MacSetUp{userdict /md
known{userdict /md get type /dicttype eq{md begin /letter{}def /note{}def
/legal{}def /od{txpose 1 0 mtx defaultmatrix dtransform exch atan/pa exch def
newpath clippath mark{transform{itransform moveto}}{transform{itransform
lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll transform{
itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}{{
closepath}}pathforall newpath counttomark array astore /gc xdf pop ct 39 0 put
10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}def /txpose{pxs pys
scale ppr aload pop por{noflips{pop exch neg exch translate pop 1 -1 scale}if
xflip yflip and{pop exch neg exch translate 180 rotate 1 -1 scale ppr 3 get
ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg translate}if xflip yflip
not and{pop exch neg exch translate pop 180 rotate ppr 3 get ppr 1 get neg sub
neg 0 translate}if yflip xflip not and{ppr 1 get neg ppr 0 get neg translate}
if}{noflips{translate pop pop 270 rotate 1 -1 scale}if xflip yflip and{
translate pop pop 90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2
get ppr 0 get neg sub neg translate}if xflip yflip not and{translate pop pop
90 rotate ppr 3 get ppr 1 get neg sub neg 0 translate}if yflip xflip not and{
translate pop pop 270 rotate ppr 2 get ppr 0 get neg sub neg 0 exch translate}
if}ifelse scaleby96{ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2
copy translate .96 dup scale neg exch neg exch translate}if}def /cp{pop pop
showpage pm restore}def end}if}if}def /psf$TeXscale{65536 div}def /startTexFig
{/psf$SavedState save def userdict maxlength dict begin Resolution 72 div dup
neg scale currentpoint translate /psf$ury exch psf$TeXscale def /psf$urx exch
psf$TeXscale def /psf$lly exch psf$TeXscale def /psf$llx exch psf$TeXscale def
/psf$y exch psf$TeXscale def /psf$x exch psf$TeXscale def currentpoint /psf$cy
exch def /psf$cx exch def /psf$sx psf$x psf$urx psf$llx sub div def /psf$sy
psf$y psf$ury psf$lly sub div def psf$sx psf$sy scale psf$cx psf$sx div
psf$llx sub psf$cy psf$sy div psf$ury sub translate /showpage{}def /erasepage{
}def /copypage{}def @MacSetUp}def /doclip{psf$llx psf$lly psf$urx psf$ury
currentpoint 6 2 roll newpath 4 copy 4 2 roll moveto 6 -1 roll exch lineto
exch lineto exch lineto closepath clip newpath moveto}def /endTexFig{end
psf$SavedState restore}def /@beginspecial{SDict begin /SpecialSave save def
gsave Resolution 72 div dup neg scale currentpoint translate @SpecialDefaults}
bdf /@setspecial{CLIP{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0
rlineto closepath clip}{initclip}ifelse ho vo translate hsc vsc scale ang
rotate BBcalc{rwi urx llx sub div dup scale llx neg lly neg translate}if
/showpage{}def newpath}bdf /@endspecial{grestore clear SpecialSave restore end
}bdf /@defspecial{SDict begin}bdf /@fedspecial{end}bdf /li{lineto}bdf /rl{
rlineto}bdf /rc{rcurveto}bdf /np{/SaveX currentpoint /SaveY exch def def
newpath}bdf /st{stroke SaveX SaveY moveto}bdf /fil{fill SaveX SaveY moveto}
bdf /ellipse{/endangle exch def /startangle exch def /yrad exch def /xrad exch
def /savematrix matrix currentmatrix def translate xrad yrad scale 0 0 1
startangle endangle arc savematrix setmatrix}bdf end
%%EndDocument
TeXDict begin 300 @start /fa df[<000F00000030800C0060401E00C0203C01C0201C0180
E0040381E0080303C008070180100700002007000040060001800678028007C40C400704102006
0420200F0440101D0840103CF0581038007C10780078107800301078000010F0000020F0000020
F0000040F0000040700000807000010038000300180004000E0018000780E00000FF0000>31 34
5 1 35]38 dc[<7FF0FFE07FE0>12 3 3 -8 16]45 dc[<70F8F8F0E0>5 5 5 0 14]46 dc[<00
000200000006000000060000000E0000001E0000001E0000003F0000002F0000004F0000004F00
00008F0000010F0000010F0000020F0000020F0000040F00000C0F0000080F0000100F0000100F
0000200F80003FFF800040078000C0078000800780010007800100078002000780020007800600
07801E000F80FF807FF8>29 32 2 0 34]65 dc[<01FFFFC0001E00F0001E0078001E0038001E
003C003C003C003C003C003C003C003C003C0078007800780078007800F0007801E000F0078000
FFFE0000F00F8000F003C001E001C001E001E001E001E001E001E003C001E003C001E003C001E0
03C001C0078003C00780078007800F0007801E000F007800FFFFE000>30 31 3 0 32]66 dc[<
0000FE0200078186001C004C0038003C0060003C00C0001C01C0001803800018070000180F0000
181E0000101E0000103C0000003C00000078000000780000007800000078000000F0000000F000
0000F0000000F0000000F00000807000008070000080700001003800010038000200180004000C
001800060020000381C00000FE0000>31 33 6 1 33]67 dc[<01FFFF80001E00E0001E007000
1E0038001E001C003C001C003C000E003C000E003C000E0078000E0078000E0078000E0078000E
00F0001E00F0001E00F0001E00F0001E01E0003C01E0003C01E0003C01E0007803C0007003C000
7003C000E003C001C0078001C00780038007800E0007801C000F007000FFFFC000>31 31 3 0
34]68 dc[<01FFFFFE001E001C001E000C001E0004001E0004003C0004003C0004003C0004003C
00040078080800780800007808000078180000F0300000FFF00000F0300000F0300001E0200001
E0200001E0200001E0001003C0002003C0002003C0004003C00040078000800780018007800100
078007000F001F00FFFFFE00>31 31 3 0 31]69 dc[<0000FC040007030C001C009800300078