thousandbitmultiplications.eps

a very popular packet of cryptography tools,it encloses the most common used algorithm and protocols

{

/Tf {

_pdf_FontDirectory 2 index 2 copy known

{get exch 3 -1 roll pop}

{pop pop}

ifelse

exch findfont exch

dup type /arraytype eq

{makefont}

{scalefont}

ifelse

setfont

} bd

}

ifelse

/cshow where

{

pop /pdf_cshow /cshow load dd

/pdf_remove2 {pop pop} dd

}

{

/pdf_cshow {exch forall} dd

/pdf_remove2 {} dd

} ifelse

/pdf_xshow

{

/_pdf_na xdd

/_pdf_i 0 dd

currentpoint

/_pdf_y xdd

/_pdf_x xdd

{

pdf_remove2

_pdf_str1 exch 0 exch put

_pdf_str1 /_pdf_showproc load exec

{_pdf_na _pdf_i get} stopped

{ pop pop }

{

_pdf_x _pdf_y moveto

0

rmoveto

}

ifelse

_pdf_i 1 add /_pdf_i xdd

currentpoint

/_pdf_y xdd

/_pdf_x xdd

}

exch

pdf_cshow

} bd

/pdf_yshow

{

/_pdf_na xdd

/_pdf_i 0 dd

currentpoint

/_pdf_y xdd

/_pdf_x xdd

{

pdf_remove2

_pdf_str1 exch 0 exch put

_pdf_str1 /_pdf_showproc load exec

{_pdf_na _pdf_i get} stopped

{ pop pop }

{

_pdf_x _pdf_y moveto

0 exch

rmoveto

}

ifelse

_pdf_i 1 add /_pdf_i xdd

currentpoint

/_pdf_y xdd

/_pdf_x xdd

}

exch

pdf_cshow

} bd

/pdf_xyshow

{

/_pdf_na xdd

/_pdf_i 0 dd

currentpoint

/_pdf_y xdd

/_pdf_x xdd

{

pdf_remove2

_pdf_str1 exch 0 exch put

_pdf_str1 /_pdf_showproc load exec

{_pdf_na _pdf_i get} stopped

{ pop pop }

{

{_pdf_na _pdf_i 1 add get} stopped

{ pop pop pop}

{

_pdf_x _pdf_y moveto

rmoveto

}

ifelse

}

ifelse

_pdf_i 2 add /_pdf_i xdd

currentpoint

/_pdf_y xdd

/_pdf_x xdd

}

exch

pdf_cshow

} bd

/pdfl1xs {/_pdf_showproc /show load dd pdf_xshow} bd

/pdfl1ys {/_pdf_showproc /show load dd pdf_yshow} bd

/pdfl1xys {/_pdf_showproc /show load dd pdf_xyshow} bd

Level2? _ColorSep5044? not and

{

/pdfxs {{xshow} stopped {pdfl1xs} if} bd

/pdfys {{yshow} stopped {pdfl1ys} if} bd

/pdfxys {{xyshow} stopped {pdfl1xys} if} bd

}

{

/pdfxs /pdfl1xs load dd

/pdfys /pdfl1ys load dd

/pdfxys /pdfl1xys load dd

} ifelse

/pdf_charpath {false charpath} bd

/pdf_xcharpath {/_pdf_showproc /pdf_charpath load dd pdf_xshow} bd

/pdf_ycharpath {/_pdf_showproc /pdf_charpath load dd pdf_yshow} bd

/pdf_xycharpath {/_pdf_showproc /pdf_charpath load dd pdf_xyshow} bd

/pdf_strokepath

{

{

pdf_remove2

_pdf_str1 exch 0 exch put

_pdf_str1 false charpath

currentpoint S moveto

} bind

exch pdf_cshow

} bd

/pdf_xstrokepath {/_pdf_showproc {pdf_charpath S} dd pdf_xshow} bd

/pdf_ystrokepath {/_pdf_showproc {pdf_charpath S} dd pdf_yshow} bd

/pdf_xystrokepath {/_pdf_showproc {pdf_charpath S} load dd pdf_xyshow} bd

Level2? {currentglobal true setglobal} if

/d0/setcharwidth ld

/nND {{/.notdef} repeat} bd

/T3Defs {

/BuildChar

{

1 index /Encoding get exch get

1 index /BuildGlyph get exec

}

def

/BuildGlyph {

exch begin

GlyphProcs exch get exec

end

} def

/_pdfT3Font true def

} bd

/_pdfBoldRomanWidthProc

{

stringwidth 1 index 0 ne { exch .03 add exch }if setcharwidth

0 0

} bd

/_pdfType0WidthProc

{

dup stringwidth 0 0 moveto

2 index true charpath pathbbox

0 -1

7 index 2 div .88

setcachedevice2

pop

0 0

} bd

/_pdfType0WMode1WidthProc

{

dup stringwidth

pop 2 div neg -0.88

2 copy

moveto

0 -1

5 -1 roll true charpath pathbbox

setcachedevice

} bd

/_pdfBoldBaseFont

11 dict begin

/FontType 3 def

/FontMatrix[1 0 0 1 0 0]def

/FontBBox[0 0 1 1]def

/Encoding cHexEncoding def

/_setwidthProc /_pdfBoldRomanWidthProc load def

/_bcstr1 1 string def

/BuildChar

{

exch begin

_basefont setfont

_bcstr1 dup 0 4 -1 roll put

dup

_setwidthProc

3 copy

moveto

show

_basefonto setfont

moveto

show

end

}bd

currentdict

end

def

pdf_has_composefont?

{

/_pdfBoldBaseCIDFont

11 dict begin

/CIDFontType 1 def

/CIDFontName /_pdfBoldBaseCIDFont def

/FontMatrix[1 0 0 1 0 0]def

/FontBBox[0 0 1 1]def

/_setwidthProc /_pdfType0WidthProc load def

/_bcstr2 2 string def

/BuildGlyph

{

exch begin

_basefont setfont

_bcstr2 1 2 index 256 mod put

_bcstr2 0 3 -1 roll 256 idiv put

_bcstr2 dup _setwidthProc

3 copy

moveto

show

_basefonto setfont

moveto

show

end

}bd

currentdict

end

def

/_pdfDefineIdentity-H

{

/Identity-H /CMap PDFText /pdf_resourcestatus get exec

{

pop pop

}

{

/CIDInit/ProcSet findresource begin 12 dict begin

begincmap

/CIDSystemInfo

3 dict begin

/Registry (Adobe) def

/Ordering (Identity) def

/Supplement 0 def

currentdict

end

def

/CMapName /Identity-H def

/CMapVersion 1 def

/CMapType 1 def

1 begincodespacerange

<0000> <ffff>

endcodespacerange

1 begincidrange

<0000> <ffff> 0

endcidrange

endcmap

CMapName currentdict/CMap defineresource pop

end

end

} ifelse

} def

} if

/_pdfVerticalRomanT3Font

10 dict begin

/FontType 3 def

/FontMatrix[1 0 0 1 0 0]def

/FontBBox[0 0 1 1]def

/_bcstr1 1 string def

/BuildChar

{

exch begin

_basefont setfont

_bcstr1 dup 0 4 -1 roll put

dup

_pdfType0WidthProc

moveto

show

end

}bd

currentdict

end

def

Level2? {setglobal} if

/MakeBoldFont

{

dup /ct_SyntheticBold known

{

dup length 3 add dict begin

CopyFont

/ct_StrokeWidth .03 0 FontMatrix idtransform pop def

/ct_SyntheticBold true def

currentdict

end

definefont

}

{

dup dup length 3 add dict

begin

CopyFont

/PaintType 2 def

/StrokeWidth .03 0 FontMatrix idtransform pop def

/dummybold currentdict

end

definefont

dup /FontType get dup 9 ge exch 11 le and

{

_pdfBoldBaseCIDFont

dup length 3 add dict copy begin

dup /CIDSystemInfo get /CIDSystemInfo exch def

/_Type0Identity /Identity-H 3 -1 roll [ exch ] composefont

/_basefont exch def

/_Type0Identity /Identity-H 3 -1 roll [ exch ] composefont

/_basefonto exch def

currentdict

end

/CIDFont defineresource

}

{

_pdfBoldBaseFont

dup length 3 add dict copy begin

/_basefont exch def

/_basefonto exch def

currentdict

end

definefont

}

ifelse

}

ifelse

} bd

/MakeBold {

1 index

_pdf_FontDirectory 2 index 2 copy known

{get}

{exch pop}

ifelse

findfont

dup

/FontType get 0 eq

{

dup /WMode known {dup /WMode get 1 eq }{false} ifelse

version length 4 ge

and

{version 0 4 getinterval cvi 2015 ge }

{true}

ifelse

{/_pdfType0WidthProc}

{/_pdfType0WMode1WidthProc}

ifelse

_pdfBoldBaseFont /_setwidthProc 3 -1 roll load put

{MakeBoldFont} Type0CopyFont definefont

}

{

dup /_fauxfont known not 1 index /SubstMaster known not and

{

_pdfBoldBaseFont /_setwidthProc /_pdfBoldRomanWidthProc load put

MakeBoldFont

}

{

2 index 2 index eq

{ exch pop }

{

dup length dict begin

CopyFont

currentdict

end

definefont

}

ifelse

}

ifelse

}

ifelse

pop pop

dup /dummybold ne

{/_pdf_FontDirectory exch dup _safeput }

{ pop }

ifelse

}bd

/MakeItalic {

_pdf_FontDirectory exch 2 copy known

{get}

{exch pop}

ifelse

dup findfont

dup /FontInfo 2 copy known

{

get

/ItalicAngle 2 copy known

{get 0 eq }

{ pop pop true}

ifelse

}

{ pop pop true}

ifelse

{

exch pop

dup /FontType get 0 eq Level2? not and

{ dup /FMapType get 6 eq }

{ false }

ifelse

{

dup /WMode 2 copy known

{

get 1 eq

{ _italMtx_WMode1Type0 }

{ _italMtxType0 }

ifelse

}

{ pop pop _italMtxType0 }

ifelse

}

{

dup /WMode 2 copy known

{

get 1 eq

{ _italMtx_WMode1 }

{ _italMtx }

ifelse

}

{ pop pop _italMtx }

ifelse

}

ifelse

makefont

dup /FontType get 42 eq Level2? not or

{

dup length dict begin

CopyFont

currentdict

end

}

if

1 index exch

definefont pop

/_pdf_FontDirectory exch dup _safeput

}

{

pop

2 copy ne

{

/_pdf_FontDirectory 3 1 roll _safeput

}

{ pop pop }

ifelse

}

ifelse

}bd

/MakeBoldItalic {

/dummybold exch

MakeBold

/dummybold

MakeItalic

}bd

Level2?

{

/pdf_CopyDict

{1 index length add dict copy}

def

}

{

/pdf_CopyDict

{

1 index length add dict

1 index wcheck

{ copy }

{ begin

{def} forall

currentdict

end

}

ifelse

}

def

}

ifelse

/pdf_AddEuroGlyphProc

{

currentdict /CharStrings known

{

CharStrings /Euro known not

{

dup

/CharStrings

CharStrings 1 pdf_CopyDict

begin

/Euro pdf_EuroProcSet 4 -1 roll get def

currentdict

end

def

/pdf_PSBuildGlyph /pdf_PSBuildGlyph load def

/pdf_PathOps /pdf_PathOps load def

/Symbol eq

{

/Encoding Encoding dup length array copy

dup 160 /Euro put def

}

if

}

{ pop

}

ifelse

}

{ pop

}

ifelse

}

def

Level2? {currentglobal true setglobal} if

/pdf_PathOps 4 dict dup begin

/m {moveto} def

/l {lineto} def

/c {curveto} def

/cp {closepath} def

end

def

/pdf_PSBuildGlyph

{

gsave

8 -1 roll pop

7 1 roll

currentdict /PaintType 2 copy known {get 2 eq}{pop pop false} ifelse

dup 9 1 roll

{

currentdict /StrokeWidth 2 copy known

{

get 2 div

5 1 roll

4 -1 roll 4 index sub

4 1 roll

3 -1 roll 4 index sub

3 1 roll

exch 4 index add exch

4 index add

5 -1 roll pop

}

{

pop pop

}

ifelse

}

if

setcachedevice

pdf_PathOps begin

exec

end

{

currentdict /StrokeWidth 2 copy known

{ get }

{ pop pop 0 }

ifelse

setlinewidth stroke

}

{

fill

}

ifelse

grestore

} def

/pdf_EuroProcSet 13 dict def

pdf_EuroProcSet

begin

/Courier-Bold

{

600 0 6 -12 585 612

{

385 274 m

180 274 l

179 283 179 293 179 303 c

179 310 179 316 180 323 c

398 323 l

423 404 l

197 404 l

219 477 273 520 357 520 c

409 520 466 490 487 454 c

487 389 l

579 389 l

579 612 l

487 612 l

487 560 l

449 595 394 612 349 612 c

222 612 130 529 98 404 c

31 404 l

6 323 l

86 323 l

86 304 l

86 294 86 284 87 274 c

31 274 l

6 193 l

99 193 l

129 77 211 -12 359 -12 c

398 -12 509 8 585 77 c

529 145 l

497 123 436 80 356 80 c

285 80 227 122 198 193 c

360 193 l

cp

600 0 m