$ od -c -N 50000 [phylum]<LispLibrary>Lyric>DES.LCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 P A C K A G E " I N T E
0000040 R L I S P " 036 R E A D T A B L
0000060 E " I N T E R L I S P " 036 B
0000100 A S E 1 0 ) \r ( F I L E C R E
0000120 A T E D " 2 4 - J u l - 8 7
0000140 1 8 : 3 0 : 0 9 " ( " c o m p
0000160 i l e d o n " { E R I S }
0000200 < L I S P C O R E > L I B R A R
0000220 Y > D E S . ; 2 ) " 2 7 - A p
0000240 r - 8 7 1 6 : 4 8 : 4 9 " \r
0000260 b c o m p l ' d i n " X e r
0000300 o x L i s p 1 0 - J u n - 8
0000320 7 . . . " d a t e d " 1 0
0000340 - J u n - 8 7 1 0 : 5 1 : 4 0
0000360 " ) \r ( F I L E C R E A T E D
0000400 " 2 4 - J u l - 8 7 1 8 : 2 9
0000420 : 2 7 " { E R I S } < L I S P
0000440 C O R E > L I B R A R Y > D E S
0000460 . ; 2 2 7 0 5 3 c h a n g e
0000500 s t o % : ( F N S \r D E S
0000520 . M A K E . B L O C K S D E S
0000540 . B R E A K O U T . B L O C K S
0000560 D E S . M A K E . I N T E R N
0000600 A L . K E Y S ) ( V A R S D
0000620 E S C O M S ) p r e v i o u s
0000640 d a t e % : \r " 2 0 - M a y
0000660 - 8 7 1 7 : 5 6 : 3 8 " { E
0000700 R I S } < V A N M E L L E > L I
0000720 S P > D E S . ; 1 ) \r D E S . B
0000740 R E A K O U T . B L O C K S :
0000760 D 4 \r ( I 0 L ) \0 2 004 \0 \0
0001000 001 021 @ 003 @ 260 d 001 [ 310 \0 K 310 001 K
0001020 310 002 K 310 003 h 032 032 032 032 X 003 226 I 265 \f
0001040 H Z Y 277 002 003 265 341 J 020 \t \0 \0 Y H 031
0001060 260 363 \0 ( 4 3 L A S T ) \r N I L
0001100 \r ( ) \r D E S . M A K E . B L O
0001120 C K S : D 4 \r ( I 0 L )
0001140 \0 P 004 \0 \0 001 021 @ 003 @ 262 I l 002 \t \0
0001160 \0 [ @ 001 315 \0 277 @ 002 b \0 262 $ K @ 001
0001200 315 001 277 @ 002 b \0 262 030 K @ 001 315 002 277 @
0001220 002 b \0 232 K @ 001 315 003 277 @ 002 b \0 277 K
0001240 272 I 265 \t J h 032 Y 270 260 300 J h 032 Y 031
0001260 277 260 270 H 020 \0 ( 1 0 \ A L L O C
0001300 B L O C K ) \r N I L \r ( ) \r D E
0001320 S . E C B . E N C R Y P T : D
0001340 4 \r ( P 0 I K L S T I 1
0001360 D A T I 0 K E Y ) \0 021
0001400 001 \0 \0 002 @ \t \0 \0 021 001 \0 H A g \0 \0
0001420 \v \0 \0 020 \0 ( 1 4 D E S . C R Y
0001440 P T . B L O C K 3 D E S . M
0001460 A K E . I N T E R N A L . K E Y
0001500 S ) \r ( 1 1 E N C R Y P T ) \r
0001520 ( ) \r D E S . E C B . D E C R Y
0001540 P T : D 4 \r ( P 0 I K L S
0001560 T I 1 D A T I 0 K E
0001600 Y ) \0 021 001 \0 \0 002 @ \t \0 \0 021 001 \0
0001620 H A g \0 \0 \v \0 \0 020 \0 ( 1 4 D E
0001640 S . C R Y P T . B L O C K 3
0001660 D E S . M A K E . I N T E R N A
0001700 L . K E Y S ) \r ( 1 1 D E C R
0001720 Y P T ) \r ( ) \r D E S . C B C .
0001740 E N C R Y P T : D 4 \r ( I 0
0001760 L ) \0 \t \0 \0 \0 001 o \0 \0 \0 \t \0
0002000 \0 020 \0 ( 6 E R R O R ) \r N I L
0002020 \r ( 3 " N o t I m p l e m
0002040 e n t e d ! " ) \r D E S . C B C
0002060 . D E C R Y P T : D 4 \r ( P
0002100 2 I P 0 I K L S T I
0002120 2 N I 1 L I 0 K E
0002140 Y ) \0 X 006 \0 \0 003 @ \t \0 \0 021 001 \0
0002160 H A 001 g \0 \0 \v \0 \0 B k 361 264 B l 002
0002200 B 021 2 005 I J 363 263 2 A J k 331 \n \0 \0
0002220 001 H A J \n \0 \0 001 g \0 \0 \v \0 \0 \n \0
0002240 \0 275 L 265 017 M h 032 \ [ 277 J m 377 324 272
0002260 260 324 M h 032 \ 031 260 363 K 022 \t \0 \0 032 020
0002300 \0 ( 8 4 D R E V E R S E 5 5
0002320 R E C 6 4 . X O R 5 2 D E
0002340 S . C R Y P T . B L O C K 4 5
0002360 N T H 3 8 N T H 1 5 D
0002400 E S . C R Y P T . B L O C K 3
0002420 D E S . M A K E . I N T E R N
0002440 A L . K E Y S ) \r ( 4 9 D E C
0002460 R Y P T 1 2 D E C R Y P T )
0002500 \r ( ) \r D E S . C B C C . E N C
0002520 R Y P T : D 4 \r ( I 0 L )
0002540 \0 \t \0 \0 \0 001 o \0 \0 \0 \t \0 \0 020 \0
0002560 ( 6 E R R O R ) \r N I L \r (
0002600 3 " N o t I m p l e m e n t
0002620 e d ! " ) \r D E S . C B C C . D
0002640 E C R Y P T : D 4 \r ( P 0
0002660 P L I 2 N I 1 L I
0002700 0 K E Y ) \0 A 001 \0 \0 003 B 246
0002720 A \t \0 \0 b 004 277 @ A B k 331 \v \0 \0 021
0002740 001 \0 H A B k 331 \n \0 \0 001 H B k 331 \n
0002760 \0 \0 @ \t \0 \0 A B \n \0 \0 001 g \0 \0 \v
0003000 \0 \0 \n \0 \0 \n \0 \0 h 032 \n \0 \0 020 \0 (
0003020 6 2 \ N C O N C 2 5 7 R E
0003040 C 6 4 . X O R 5 4 R E C 6 4
0003060 . X O R 5 1 D E S . C R Y P
0003100 T . B L O C K 4 4 N T H 3
0003120 9 D E S . M A K E . I N T E R
0003140 N A L . K E Y S 3 5 R E C 6
0003160 4 . X O R . C H K 2 7 N T H
0003200 1 6 D E S . C B C . D E C R
0003220 Y P T 5 L E N G T H ) \r ( 4
0003240 8 D E C R Y P T ) \r ( ) \r D E
0003260 S . P A S S W O R D . T O . K E
0003300 Y : D 4 \r ( P 3 C H A R
0003320 P 2 B L O C K P 1 S T
0003340 R P 0 N E W K E Y I 0
0003360 P A S S W O R D ) \0 223 004 \0 \0
0003400 001 \b \0 \0 @ \t \0 \0 l 002 \t \0 \0 021 003 002
0003420 I o \0 \0 \0 \n \0 \0 263 v J I \t \0 \0 021
0003440 001 003 K 265 ` j 022 315 \0 277 J I \t \0 \0 021
0003460 001 003 K 265 E j 022 315 001 277 J I \t \0 \0 021
0003500 001 003 K 265 * j 022 315 002 277 J I \t \0 \0 021
0003520 001 003 K 265 017 j 022 315 003 277 H J \n \0 \0 270
0003540 260 260 \t \0 \0 l I 346 \t \0 \0 260 353 \t \0 \0
0003560 l I 346 \t \0 \0 260 320 \t \0 \0 l I 346 \t \0
0003600 \0 260 265 \t \0 \0 l I 346 \t \0 \0 260 232 H \t
0003620 \0 \0 020 \0 ( 1 4 4 D E S . C O R
0003640 R E C T . K E Y . P A R I T Y
0003660 1 3 8 L - C A S E C O D E 1
0003700 3 2 C H C O N 1 1 2 7 L -
0003720 C A S E C O D E 1 2 1 C H C
0003740 O N 1 1 1 6 L - C A S E C O
0003760 D E 1 1 0 C H C O N 1 1 0
0004000 5 L - C A S E C O D E 9 9
0004020 C H C O N 1 9 3 D E S . E C
0004040 B . E N C R Y P T 7 7 G N C
0004060 6 1 G N C 4 5 G N C 2
0004100 9 G N C 2 2 S T R E Q U A
0004120 L 1 1 \ A L L O C B L O C K
0004140 6 C O N C A T 2 D E S .
0004160 M A K E . K E Y ) \r N I L \r (
0004200 1 9 " " ) \r D E S . M A K E .
0004220 K E Y : D 4 \r ( I 0 L )
0004240 \0 5 001 \0 \0 001 021 020 \0 l 002 \t \0 \0 X d
0004260 @ 001 265 003 j 315 \0 277 H @ 002 001 265 003 j 315
0004300 001 277 H @ 002 002 001 265 003 j 315 002 277 H @ 002
0004320 002 002 001 265 003 j 315 003 277 020 \0 ( 7 \ A
0004340 L L O C B L O C K ) \r N I L \r (
0004360 ) \r D E S . C O R R E C T . K E
0004400 Y . P A R I T Y : D 4 \r ( L
0004420 ( 0 K E Y ) F 0 D E S .
0004440 P A R I T Y . T A B L E ) \0 c
0004460 \0 001 \0 001 @ P @ 312 \0 006 \n \0 \0 317 \0 p
0004500 @ P @ 312 \0 206 \n \0 \0 317 \0 360 @ P @ 312
0004520 001 006 \n \0 \0 317 001 p @ P @ 312 001 206 \n \0
0004540 \0 317 001 360 @ P @ 312 002 006 \n \0 \0 317 002 p
0004560 @ P @ 312 002 206 \n \0 \0 317 002 360 @ P @ 312
0004600 003 006 \n \0 \0 317 003 p @ P @ 312 003 206 \n \0
0004620 \0 317 003 360 @ 020 \0 ( 9 2 E L T 8
0004640 0 E L T 6 8 E L T 5 6
0004660 E L T 4 4 E L T 3 2 E L
0004700 T 2 0 E L T 8 E L T ) \r
0004720 N I L \r ( ) \r D E S . C R Y P T
0004740 . B L O C K : D 4 \r ( P 2
0004760 I P 0 L R I 2 D I R
0005000 E C T I O N I 1 D A T I
0005020 0 K L S T ) \0 Z 003 \0 \0 003 A
0005040 \t \0 \0 021 001 \0 B g \0 \0 360 262 $ l 020 k
0005060 021 002 002 J I 363 263 026 H 001 H 002 @ J \n \0
0005100 \0 001 \v \0 \0 270 J k 324 Z 260 352 023 260 # k
0005120 l 020 021 002 002 I J 363 263 027 H 001 H 002 @ J
0005140 \n \0 \0 001 \v \0 \0 270 J m 377 324 272 260 350 023
0005160 H 002 H 001 \n \0 \0 020 \0 ( 8 7 D E S
0005200 . P E R M . I N V . I N I T I A
0005220 L 7 1 D E S . L O O P B O D
0005240 Y 6 7 N T H 3 7 D E S .
0005260 L O O P B O D Y 3 3 N T H
0005300 3 D E S . P E R M . I N I T I
0005320 A L ) \r ( 1 0 E N C R Y P T )
0005340 \r ( ) \r D E S . K E Y . C O P Y
0005360 : D 4 \r ( I 0 K ) \0 ' 001
0005400 \0 \0 001 021 020 \0 l 002 \t \0 \0 X d @ 310 \0
0005420 315 \0 277 H @ 310 001 315 001 277 H @ 310 002 315 002
0005440 277 H @ 310 003 315 003 277 020 \0 ( 7 \ A L
0005460 L O C B L O C K ) \r N I L \r ( )
0005500 \r D E S . K E Y . E Q U A L :
0005520 D 4 \r ( L ( 1 Y 0 X ) )
0005540 \0 $ \0 \0 \0 002 @ 310 \0 A 310 \0 360 264 033
0005560 @ 310 001 A 310 001 360 264 022 @ 310 002 A 310 002 360
0005600 264 \t @ 310 003 A 310 003 360 020 \0 N I L \r N
0005620 I L \r ( ) \r D E S . L O O P B O
0005640 D Y : D 4 \r ( I 2 K I
0005660 1 R I 0 L ) \0 026 \0 \0 \0
0005700 003 A @ A \t \0 \0 B \n \0 \0 \t \0 \0 \t \0
0005720 \0 \n \0 \0 032 020 \0 ( 1 8 R E C 3 2
0005740 . X O R 1 5 D E S . P E R M
0005760 . P 1 2 D E S . S M A P 9
0006000 R E C 4 8 . X O R 5 D E S
0006020 . P E R M . E ) \r N I L \r ( ) \r
0006040 D E S . M A K E . I N T E R N A
0006060 L . K E Y S : D 4 \r ( P 1 2
0006100 J P 7 I P 5 C P
0006120 4 D P 3 C D P 1
0006140 T L I 0 K F 1 3 D E
0006160 S K E Y S L S T F 1 4 D E
0006200 S . S H I F T S ) \0 260 \r 002 \0 001
0006220 W 032 d 231 001 001 @ \n \0 \0 263 9 W 032 021 !
0006240 002 H Y 003 225 I d 002 263 0 277 @ \t \0 \0 @
0006260 \t \0 \0 021 ! 005 K 001 275 K 002 274 l 020 k 021
0006300 2 \n O 016 N 363 262 . O 020 022 022 032 W 032 032
0006320 c 032 023 W 032 001 002 020 002 001 001 @ \n \0 \0 237
0006340 I 002 272 I J 002 031 277 J W 032 031 277 J 260 342
0006360 I 002 260 260 W 034 O 016 \n \0 \0 k 021 002 \f O
0006400 030 O 026 363 263 024 M \t \0 \0 275 L \t \0 \0 274
0006420 O 030 k 324 _ 030 260 353 023 M L \n \0 \0 _ 024
0006440 277 O 022 265 023 O 024 h 032 _ 022 _ 020 277 O 016
0006460 k 324 _ 016 260 220 O 024 h 032 _ 022 031 260 360 \0
0006500 ( 1 4 1 D E S . P E R M . P C
0006520 2 1 2 6 D E S . R E C 3 2 .
0006540 L S 2 8 1 2 1 D E S . R E C
0006560 3 2 . L S 2 8 1 0 6 E L T
0006600 7 8 D E S . K E Y . E Q U A L
0006620 3 4 D E S . P E R M . P C 1
0006640 3 0 D E S . K E Y . C O P Y
0006660 9 D E S . K E Y . E Q U A L
0006700 ) \r N I L \r ( ) \r D E S . P E R
0006720 M . E : D 4 \r ( I 0 X )
0006740 \0 205 001 \0 \0 001 021 020 \0 l 002 \t \0 \0 X d
0006760 @ 312 001 360 l 332 @ 312 \0 004 330 317 \0 005 277
0007000 H @ 312 \0 5 317 \0 e 277 H @ 312 \0 s 317 \0
0007020 303 277 H @ 312 \0 261 317 001 001 277 H @ 312 \0 264
0007040 l 002 332 @ 312 001 \0 330 317 001 % 277 H @ 312 \0
0007060 360 l 332 @ 312 001 004 330 317 001 205 277 H @ 312
0007100 001 1 317 001 341 277 H @ 312 001 S 317 002 003 277 H
0007120 @ 312 001 u 317 002 E 277 H @ 312 001 264 l 002 332
0007140 @ 312 \0 \0 330 317 002 245 277 020 \0 ( 7 \ A
0007160 L L O C B L O C K ) \r N I L \r (
0007200 ) \r D E S . P E R M . I N I T I
0007220 A L : D 4 \r ( I 0 X ) 002
0007240 U 001 \0 \0 001 021 020 \0 k \t \0 \0 X d @ 312
0007260 003 220 317 \0 \0 277 H @ 312 003 020 317 \0 020 277 H
0007300 @ 312 002 220 317 \0 277 H @ 312 002 020 317 \0 0
0007320 277 H @ 312 001 220 317 \0 @ 277 H @ 312 001 020 317
0007340 \0 P 277 H @ 312 \0 220 317 \0 ` 277 H @ 312 \0
0007360 020 317 \0 p 277 H @ 312 003 260 317 \0 200 277 H @
0007400 312 003 0 317 \0 220 277 H @ 312 002 260 317 \0 240 277
0007420 H @ 312 002 0 317 \0 260 277 H @ 312 001 260 317 \0
0007440 300 277 H @ 312 001 0 317 \0 320 277 H @ 312 \0 260
0007460 317 \0 340 277 H @ 312 \0 0 317 \0 360 277 H @ 312
0007500 003 320 317 001 \0 277 H @ 312 003 P 317 001 020 277 H
0007520 @ 312 002 320 317 001 277 H @ 312 002 P 317 001 0
0007540 277 H @ 312 001 320 317 001 @ 277 H @ 312 001 P 317
0007560 001 P 277 H @ 312 \0 320 317 001 ` 277 H @ 312 \0
0007600 P 317 001 p 277 H @ 312 003 360 317 001 200 277 H @
0007620 312 003 p 317 001 220 277 H @ 312 002 360 317 001 240 277
0007640 H @ 312 002 p 317 001 260 277 H @ 312 001 360 317 001
0007660 300 277 H @ 312 001 p 317 001 320 277 H @ 312 \0 360
0007700 317 001 340 277 H @ 312 \0 p 317 001 360 277 022 021 020
0007720 \0 k \t \0 \0 X d @ 312 003 200 317 \0 \0 277 H
0007740 @ 312 003 \0 317 \0 020 277 H @ 312 002 200 317 \0
0007760 277 H @ 312 002 \0 317 \0 0 277 H @ 312 001 200 317
0010000 \0 @ 277 H @ 312 001 \0 317 \0 P 277 H @ 312 \0
0010020 200 317 \0 ` 277 H @ 312 \0 \0 317 \0 p 277 H @
0010040 312 003 240 317 \0 200 277 H @ 312 003 317 \0 220 277
0010060 H @ 312 002 240 317 \0 240 277 H @ 312 002 317 \0
0010100 260 277 H @ 312 001 240 317 \0 300 277 H @ 312 001
0010120 317 \0 320 277 H @ 312 \0 240 317 \0 340 277 H @ 312
0010140 \0 317 \0 360 277 H @ 312 003 300 317 001 \0 277 H
0010160 @ 312 003 @ 317 001 020 277 H @ 312 002 300 317 001
0010200 277 H @ 312 002 @ 317 001 0 277 H @ 312 001 300 317
0010220 001 @ 277 H @ 312 001 @ 317 001 P 277 H @ 312 \0
0010240 300 317 001 ` 277 H @ 312 \0 @ 317 001 p 277 H @
0010260 312 003 340 317 001 200 277 H @ 312 003 ` 317 001 220 277
0010300 H @ 312 002 340 317 001 240 277 H @ 312 002 ` 317 001
0010320 260 277 H @ 312 001 340 317 001 300 277 H @ 312 001 `
0010340 317 001 320 277 H @ 312 \0 340 317 001 340 277 H @ 312
0010360 \0 ` 317 001 360 277 022 032 020 \0 ( 3 0 3 \
0010400 A L L O C B L O C K 6 \ A L
0010420 L O C B L O C K ) \r N I L \r ( )
0010440 \r D E S . P E R M . I N V . I N
0010460 I T I A L : D 4 \r ( I 1 R
0010500 I 0 L ) 002 K 001 \0 \0 002 021 020
0010520 \0 l 002 \t \0 \0 X d @ 312 \0 \0 317 003 220 277
0010540 H @ 312 \0 020 317 003 020 277 H @ 312 \0 317 002
0010560 220 277 H @ 312 \0 0 317 002 020 277 H @ 312 \0 @
0010600 317 001 220 277 H @ 312 \0 P 317 001 020 277 H @ 312
0010620 \0 ` 317 \0 220 277 H @ 312 \0 p 317 \0 020 277 H
0010640 @ 312 \0 200 317 003 260 277 H @ 312 \0 220 317 003 0
0010660 277 H @ 312 \0 240 317 002 260 277 H @ 312 \0 260 317
0010700 002 0 277 H @ 312 \0 300 317 001 260 277 H @ 312 \0
0010720 320 317 001 0 277 H @ 312 \0 340 317 \0 260 277 H @
0010740 312 \0 360 317 \0 0 277 H @ 312 001 \0 317 003 320 277
0010760 H @ 312 001 020 317 003 P 277 H @ 312 001 317 002
0011000 320 277 H @ 312 001 0 317 002 P 277 H @ 312 001 @
0011020 317 001 320 277 H @ 312 001 P 317 001 P 277 H @ 312
0011040 001 ` 317 \0 320 277 H @ 312 001 p 317 \0 P 277 H
0011060 @ 312 001 200 317 003 360 277 H @ 312 001 220 317 003 p
0011100 277 H @ 312 001 240 317 002 360 277 H @ 312 001 260 317
0011120 002 p 277 H @ 312 001 300 317 001 360 277 H @ 312 001
0011140 320 317 001 p 277 H @ 312 001 340 317 \0 360 277 H @
0011160 312 001 360 317 \0 p 277 H A 312 \0 \0 317 003 200 277
0011200 H A 312 \0 020 317 003 \0 277 H A 312 \0 317 002
0011220 200 277 H A 312 \0 0 317 002 \0 277 H A 312 \0 @
0011240 317 001 200 277 H A 312 \0 P 317 001 \0 277 H A 312
0011260 \0 ` 317 \0 200 277 H A 312 \0 p 317 \0 \0 277 H
0011300 A 312 \0 200 317 003 240 277 H A 312 \0 220 317 003
0011320 277 H A 312 \0 240 317 002 240 277 H A 312 \0 260 317
0011340 002 277 H A 312 \0 300 317 001 240 277 H A 312 \0
0011360 320 317 001 277 H A 312 \0 340 317 \0 240 277 H A
0011400 312 \0 360 317 \0 277 H A 312 001 \0 317 003 300 277
0011420 H A 312 001 020 317 003 @ 277 H A 312 001 317 002
0011440 300 277 H A 312 001 0 317 002 @ 277 H A 312 001 @
0011460 317 001 300 277 H A 312 001 P 317 001 @ 277 H A 312
0011500 001 ` 317 \0 300 277 H A 312 001 p 317 \0 @ 277 H
0011520 A 312 001 200 317 003 340 277 H A 312 001 220 317 003 `
0011540 277 H A 312 001 240 317 002 340 277 H A 312 001 260 317
0011560 002 ` 277 H A 312 001 300 317 001 340 277 H A 312 001
0011600 320 317 001 ` 277 H A 312 001 340 317 \0 340 277 H A
0011620 312 001 360 317 \0 ` 277 020 \0 ( 7 \ A L L
0011640 O C B L O C K ) \r N I L \r ( ) \r
0011660 D E S . P E R M . P : D 4 \r (
0011700 I 0 X ) 001 * 001 \0 \0 001 021 020 \0
0011720 k \t \0 \0 X d @ 312 \0 360 317 \0 \0 277 H @
0011740 312 \0 ` 317 \0 020 277 H @ 312 001 0 317 \0 277
0011760 H @ 312 001 @ 317 \0 0 277 H @ 312 001 300 317 \0
0012000 @ 277 H @ 312 \0 260 317 \0 P 277 H @ 312 001 260
0012020 317 \0 ` 277 H @ 312 001 \0 317 \0 p 277 H @ 312
0012040 \0 \0 317 \0 200 277 H @ 312 \0 340 317 \0 220 277 H
0012060 @ 312 001 ` 317 \0 240 277 H @ 312 001 220 317 \0 260
0012100 277 H @ 312 \0 @ 317 \0 300 277 H @ 312 001 020 317
0012120 \0 320 277 H @ 312 001 340 317 \0 340 277 H @ 312 \0
0012140 220 317 \0 360 277 H @ 312 \0 020 317 001 \0 277 H @
0012160 312 \0 p 317 001 020 277 H @ 312 001 p 317 001 277
0012200 H @ 312 \0 320 317 001 0 277 H @ 312 001 360 317 001
0012220 @ 277 H @ 312 001 240 317 001 P 277 H @ 312 \0
0012240 317 001 ` 277 H @ 312 \0 200 317 001 p 277 H @ 312
0012260 001 317 001 200 277 H @ 312 \0 300 317 001 220 277 H
0012300 @ 312 001 320 317 001 240 277 H @ 312 \0 P 317 001 260
0012320 277 H @ 312 001 P 317 001 300 277 H @ 312 \0 240 317
0012340 001 320 277 H @ 312 \0 0 317 001 340 277 H @ 312 001
0012360 200 317 001 360 277 020 \0 ( 6 \ A L L O C
0012400 B L O C K ) \r N I L \r ( ) \r D E
0012420 S . P E R M . P C 1 : D 4 \r (
0012440 I 0 X ) 002 \r 001 \0 \0 001 021 020 \0
0012460 k \t \0 \0 X d @ 312 003 200 317 \0 \0 277 H @
0012500 312 003 \0 317 \0 020 277 H @ 312 002 200 317 \0 277
0012520 H @ 312 002 \0 317 \0 0 277 H @ 312 001 200 317 \0
0012540 @ 277 H @ 312 001 \0 317 \0 P 277 H @ 312 \0 200
0012560 317 \0 ` 277 H @ 312 \0 \0 317 \0 p 277 H @ 312
0012600 003 220 317 \0 200 277 H @ 312 003 020 317 \0 220 277 H
0012620 @ 312 002 220 317 \0 240 277 H @ 312 002 020 317 \0 260
0012640 277 H @ 312 001 220 317 \0 300 277 H @ 312 001 020 317
0012660 \0 320 277 H @ 312 \0 220 317 \0 340 277 H @ 312 \0
0012700 020 317 \0 360 277 H @ 312 003 240 317 001 \0 277 H @
0012720 312 003 317 001 020 277 H @ 312 002 240 317 001 277
0012740 H @ 312 002 317 001 0 277 H @ 312 001 240 317 001
0012760 @ 277 H @ 312 001 317 001 P 277 H @ 312 \0 240
0013000 317 001 ` 277 H @ 312 \0 317 001 p 277 H @ 312
0013020 003 260 317 001 200 277 H @ 312 003 0 317 001 220 277 H
0013040 @ 312 002 260 317 001 240 277 H @ 312 002 0 317 001 260
0013060 277 022 021 020 \0 k \t \0 \0 X d @ 312 003 340 317
0013100 \0 \0 277 H @ 312 003 ` 317 \0 020 277 H @ 312 002
0013120 340 317 \0 277 H @ 312 002 ` 317 \0 0 277 H @
0013140 312 001 340 317 \0 @ 277 H @ 312 001 ` 317 \0 P 277
0013160 H @ 312 \0 340 317 \0 ` 277 H @ 312 \0 ` 317 \0
0013200 p 277 H @ 312 003 320 317 \0 200 277 H @ 312 003 P
0013220 317 \0 220 277 H @ 312 002 320 317 \0 240 277 H @ 312
0013240 002 P 317 \0 260 277 H @ 312 001 320 317 \0 300 277 H
0013260 @ 312 001 P 317 \0 320 277 H @ 312 \0 320 317 \0 340
0013300 277 H @ 312 \0 P 317 \0 360 277 H @ 312 003 300 317
0013320 001 \0 277 H @ 312 003 @ 317 001 020 277 H @ 312 002
0013340 300 317 001 277 H @ 312 002 @ 317 001 0 277 H @
0013360 312 001 300 317 001 @ 277 H @ 312 001 @ 317 001 P 277
0013400 H @ 312 \0 300 317 001 ` 277 H @ 312 \0 @ 317 001
0013420 p 277 H @ 312 001 260 317 001 200 277 H @ 312 001 0
0013440 317 001 220 277 H @ 312 \0 260 317 001 240 277 H @ 312
0013460 \0 0 317 001 260 277 022 032 020 \0 ( 2 6 7 \
0013500 A L L O C B L O C K 6 \ A L
0013520 L O C B L O C K ) \r N I L \r ( )
0013540 \r D E S . P E R M . P C 2 : D
0013560 4 \r ( I 1 D I 0 C )
0013600 001 273 001 \0 \0 002 021 020 \0 l 002 \t \0 \0 X d
0013620 @ 312 \0 320 317 \0 \0 277 H @ 312 001 \0 317 \0 020
0013640 277 H @ 312 \0 240 317 \0 277 H @ 312 001 p 317
0013660 \0 0 277 H @ 312 \0 \0 317 \0 @ 277 H @ 312 \0
0013700 @ 317 \0 P 277 H @ 312 \0 317 \0 ` 277 H @
0013720 312 001 260 317 \0 p 277 H @ 312 \0 340 317 \0 200 277
0013740 H @ 312 \0 P 317 \0 220 277 H @ 312 001 @ 317 \0
0013760 240 277 H @ 312 \0 220 317 \0 260 277 H @ 312 001 `
0014000 317 \0 300 277 H @ 312 001 317 \0 320 277 H @ 312
0014020 \0 260 317 \0 340 277 H @ 312 \0 0 317 \0 360 277 H
0014040 @ 312 001 220 317 001 \0 277 H @ 312 \0 p 317 001 020
0014060 277 H @ 312 \0 360 317 001 277 H @ 312 \0 ` 317
0014100 001 0 277 H @ 312 001 240 317 001 @ 277 H @ 312 001
0014120 0 317 001 P 277 H @ 312 \0 300 317 001 ` 277 H @
0014140 312 \0 020 317 001 p 277 H A 312 \0 300 317 001 200 277
0014160 H A 312 001 p 317 001 220 277 H A 312 \0 317 001
0014200 240 277 H A 312 \0 200 317 001 260 277 H A 312 001
0014220 317 001 300 277 H A 312 001 240 317 001 320 277 H A 312
0014240 \0 020 317 001 340 277 H A 312 \0 260 317 001 360 277 H
0014260 A 312 001 ` 317 002 \0 277 H A 312 001 \0 317 002 020
0014300 277 H A 312 \0 @ 317 002 277 H A 312 001 0 317
0014320 002 0 277 H A 312 \0 360 317 002 @ 277 H A 312 001
0014340 @ 317 002 P 277 H A 312 \0 240 317 002 ` 277 H A
0014360 312 001 260 317 002 p 277 H A 312 \0 P 317 002 200 277
0014400 H A 312 001 200 317 002 220 277 H A 312 001 020 317 002
0014420 240 277 H A 312 \0 320 317 002 260 277 H A 312 001 P
0014440 317 002 300 277 H A 312 \0 p 317 002 320 277 H A 312
0014460 \0 \0 317 002 340 277 H A 312 \0 0 317 002 360 277 020
0014500 \0 ( 7 \ A L L O C B L O C K )
0014520 \r N I L \r ( ) \r D E S . R E C 3
0014540 2 . L S 2 8 : D 4 \r ( I 0
0014560 X ) \0 . 001 \0 \0 001 021 020 \0 k \t \0 \0
0014600 X d @ 312 \0 036 317 \0 016 277 H @ 312 001 \0 317
0014620 \0 360 277 H @ 312 001 032 317 001 \n 277 H @ 312 \0
0014640 \0 317 001 260 277 020 \0 ( 6 \ A L L O C
0014660 B L O C K ) \r N I L \r ( ) \r D E
0014700 S . S M A P : D 4 \r ( I 0
0014720 X F 1 D E S . S B O X . 1
0014740 F 2 D E S . S B O X . 2
0014760 F 3 D E S . S B O X . 8 F
0015000 4 D E S . S B O X . 3 F
0015020 5 D E S . S B O X . 4 F 6
0015040 D E S . S B O X . 5 F 7
0015060 D E S . S B O X . 6 F 8 D
0015100 E S . S B O X . 7 ) \0 204 001 \b \0
0015120 001 021 020 \0 k \t \0 \0 X d Q @ 312 \0 005 \n
0015140 \0 \0 317 \0 003 277 H R @ 312 \0 e \n \0 \0 317
0015160 \0 C 277 H T @ 312 \0 303 l 004 332 @ 312 001 001
0015200 330 \n \0 \0 317 \0 203 277 H U @ 312 001 % \n \0
0015220 \0 317 \0 303 277 H V @ 312 001 205 \n \0 \0 317 001
0015240 003 277 H W 016 @ 312 001 341 l 020 332 @ 312 002 003
0015260 330 \n \0 \0 317 001 C 277 H W 020 @ 312 002 E \n
0015300 \0 \0 317 001 203 277 H S @ 312 002 245 \n \0 \0 317
0015320 001 303 277 020 \0 ( 1 2 5 E L T 1 1
0015340 2 E L T 9 8 E L T 7 6
0015360 E L T 6 3 E L T 5 0 E L
0015400 T 2 9 E L T 1 6 E L T
0015420 6 \ A L L O C B L O C K ) \r N
0015440 I L \r ( ) \r R E C 3 2 . X O R
0015460 : D 4 \r ( I 1 Y I 0 X
0015500 ) \0 001 \0 \0 002 021 020 \0 k \t \0 \0 X
0015520 d @ 310 \0 A 310 \0 346 315 \0 277 H @ 310 001 A
0015540 310 001 346 315 001 277 020 \0 ( 6 \ A L L O
0015560 C B L O C K ) \r N I L \r ( ) \r R
0015600 E C 4 8 . X O R : D 4 \r ( I
0015620 1 Y I 0 X ) \0 , 001 \0 \0
0015640 002 021 020 \0 l 002 \t \0 \0 X d @ 310 \0 A 310
0015660 \0 346 315 \0 277 H @ 310 001 A 310 001 346 315 001 277
0015700 H @ 310 002 A 310 002 346 315 002 277 020 \0 ( 7
0015720 \ A L L O C B L O C K ) \r N I L
0015740 \r ( ) \r R E C 6 4 . X O R : D
0015760 4 \r ( I 1 Y I 0 X )
0016000 \0 7 001 \0 \0 002 021 020 \0 l 002 \t \0 \0 X d
0016020 @ 310 \0 A 310 \0 346 315 \0 277 H @ 310 001 A 310
0016040 001 346 315 001 277 H @ 310 002 A 310 002 346 315 002 277
0016060 H @ 310 003 A 310 003 346 315 003 277 020 \0 ( 7
0016100 \ A L L O C B L O C K ) \r N I L
0016120 \r ( ) \r R E C 6 4 . X O R . C H
0016140 K : D 4 \r ( P 3 I P 1
0016160 B L K I 1 N I 0 L
0016200 ) \0 s 004 \0 \0 002 021 020 \0 l 002 \t \0 \0
0016220 X d j 315 \0 277 H j 315 001 277 H j 315 002 277
0016240 H j 315 003 277 022 021 ! 003 A k 273 272 K J 363
0016260 263 H I d 310 \0 @ K \n \0 \0 001 310 \0 346 315
0016300 \0 277 I d 310 001 @ K \n \0 \0 001 310 001 346 315
0016320 001 277 I d 310 002 @ K \n \0 \0 001 310 002 346 315
0016340 002 277 I d 310 003 @ K \n \0 \0 001 310 003 346 315
0016360 003 277 K k 324 [ 260 270 I 020 \0 ( 9 8 N
0016400 T H 8 2 N T H 6 6 N T H
0016420 5 0 N T H 7 \ A L L O C
0016440 B L O C K ) \r N I L \r ( ) \r ( P
0016460 R E T T Y C O M P R I N T D E
0016500 S C O M S ) \r ( R P A Q Q D E
0016520 S C O M S ( ( C O M S ( *
0016540 ; " E n t r y p o i n t s "
0016560 ) ( F N S D E S . B R E A K
0016600 O U T . B L O C K S D E S . M
0016620 A K E . B L O C K S D E S . E
0016640 C B . E N C R Y P T \r D E S .
0016660 E C B . D E C R Y P T D E S .
0016700 C B C . E N C R Y P T D E S .
0016720 C B C . D E C R Y P T D E S .
0016740 C B C C . E N C R Y P T D E S
0016760 . C B C C . D E C R Y P T D E
0017000 S . P A S S W O R D . T O . K E
0017020 Y \r D E S . M A K E . K E Y )
0017040 ) ( C O M S ( * ; " I m
0017060 p l e m e n t a t i o n " ) (
0017100 F N S D E S . C O R R E C T .
0017120 K E Y . P A R I T Y D E S . C
0017140 R Y P T . B L O C K D E S . K
0017160 E Y . C O P Y \r D E S . K E Y
0017200 . E Q U A L D E S . L O O P B
0017220 O D Y D E S . M A K E . I N T
0017240 E R N A L . K E Y S D E S . P
0017260 E R M . E D E S . P E R M . I
0017300 N I T I A L D E S . P E R M .
0017320 I N V . I N I T I A L \r D E S
0017340 . P E R M . P D E S . P E R M
0017360 . P C 1 D E S . P E R M . P C
0017400 2 D E S . R E C 3 2 . L S 2 8
0017420 D E S . S M A P R E C 3 2 .
0017440 X O R R E C 4 8 . X O R R E
0017460 C 6 4 . X O R \r R E C 6 4 . X
0017500 O R . C H K ) ) ( V A R S D
0017520 E S . P A R I T Y . T A B L E
0017540 D E S . S B O X . 1 D E S . S
0017560 B O X . 2 D E S . S B O X . 3
0017600 D E S . S B O X . 4 D E S .
0017620 S B O X . 5 \r D E S . S B O X
0017640 . 6 D E S . S B O X . 7 D E
0017660 S . S B O X . 8 D E S . S H I
0017700 F T S ( D E S K E Y S L S T )
0017720 ) ( D E C L A R E % : E V A
0017740 L @ C O M P I L E D O N T C O
0017760 P Y ( R E C O R D S \r D E S
0020000 . R E C . E 1 D E S . R E C .
0020020 E 2 D E S . R E C 3 2 . 4 D
0020040 E S . R E C 3 2 . L S 2 8 . I N
0020060 D E S . R E C 3 2 . L S 2 8 .
0020100 O U T D E S . R E C 4 8 . 6
0020120 D E S B L O C K D E S K E Y
0020140 \r D E S K E Y . P R E C 3 2
0020160 R E C 3 2 . W R E C 4 8 R E
0020200 C 4 8 . W R E C 6 4 R E C 6
0020220 4 . W ) ) ) ) \r ( R P A Q D E
0020240 S . P A R I T Y . T A B L E (
0020260 R E A D A R R A Y - F R O M - L
0020300 I S T 1 2 8 ( Q U O T E B
0020320 I T ) 0 ( Q U O T E ( 1
0020340 0 0 1 0 1 1 0 0
0020360 1 1 0 1 0 0 1 \r 0
0020400 1 1 0 1 0 0 1 1
0020420 0 0 1 0 1 1 0 0
0020440 1 1 0 1 0 0 1 1
0020460 0 0 1 0 1 1 0 1
0020500 0 0 1 0 1 1 0 0
0020520 1 1 0 1 0 0 1 0
0020540 1 1 \r 0 1 0 0 1
0020560 1 0 0 1 0 1 1 0
*
0020620 0 1 1 0 1 0 0 1
0020640 1 0 0 1 0 1 1 0
0020660 0 1 1 0 1 0 0 1
0020700 0 1 1 0 1 0 \r 0 1
0020720 1 0 0 1 0 1 1 0
0020740 N I L ) ) ) ) \r ( R P A Q D
0020760 E S . S B O X . 1 ( R E A D A
0021000 R R A Y - F R O M - L I S T 6
0021020 4 ( Q U O T E B Y T E ) 0
0021040 ( Q U O T E ( 1 4 0 4
0021060 1 5 1 3 7 1 4 2 1 4
0021100 1 5 2 1 1 1 3 8 1 \r
0021120 3 1 0 1 0 6 6 1 2
0021140 1 2 1 1 5 9 9 5 0
0021160 3 7 8 4 1 5 1 1 2
0021200 1 4 8 8 2 1 3 4 6
0021220 9 2 1 1 1 7 1 5 5
0021240 1 2 1 1 9 3 7 1 4 3
0021260 1 0 1 0 \r 0 5 6 0
0021300 1 3 N I L ) ) ) ) \r ( R P A Q
0021320 D E S . S B O X . 2 ( R E A
0021340 D A R R A Y - F R O M - L I S T
0021360 6 4 ( Q U O T E B Y T E )
0021400 0 ( Q U O T E ( 1 5 3
0021420 1 1 3 8 4 1 4 7 6
0021440 1 5 1 1 2 3 8 4 1 4
0021460 \r 9 1 2 7 0 2 1 1
0021500 3 1 0 1 2 6 0 9 5
0021520 1 1 1 0 5 0 1 3 1 4
0021540 8 7 1 0 1 1 1 1 0 3
0021560 4 1 5 1 3 4 1 2 5
0021600 1 1 8 6 1 2 7 6 1
0021620 2 9 0 3 \r 5 2 1 4
0021640 1 5 9 N I L ) ) ) ) \r ( R P
0021660 A Q D E S . S B O X . 3 ( R
0021700 E A D A R R A Y - F R O M - L I
0021720 S T 6 4 ( Q U O T E B Y T
0021740 E ) 0 ( Q U O T E ( 1 0
0021760 1 3 0 7 9 0 1 4 9
0022000 6 3 3 4 1 5 6 5 1
0022020 0 1 \r 2 1 3 8 1 2 5
0022040 7 1 4 1 1 1 2 4 1 1
0022060 2 1 5 8 1 1 3 1 6
0022100 1 0 4 1 3 9 0 8 6
0022120 1 5 9 3 8 0 7 1 1
0022140 4 1 1 5 2 1 4 1 2
0022160 3 5 1 1 1 0 \r 5 1 4
0022200 2 7 1 2 N I L ) ) ) ) \r (
0022220 R P A Q D E S . S B O X . 4
0022240 ( R E A D A R R A Y - F R O M -
0022260 L I S T 6 4 ( Q U O T E B
0022300 Y T E ) 0 ( Q U O T E ( 7
0022320 1 3 1 3 8 1 4 1 1 3
0022340 5 0 6 6 1 5 9 0
0022360 1 0 3 \r 1 4 2 7 8
0022400 2 5 1 2 1 1 1 1 2 1
0022420 0 4 1 4 1 5 9 1 0 3
0022440 6 1 5 9 0 0 6 1 2
0022460 1 0 1 1 1 7 1 3 1 3
0022500 8 1 5 9 1 4 3 5
0022520 1 4 1 1 5 1 2 2 \r 7
0022540 8 2 4 1 4 N I L ) ) ) )
0022560 \r ( R P A Q D E S . S B O X .
0022600 5 ( R E A D A R R A Y - F R O
0022620 M - L I S T 6 4 ( Q U O T E
0022640 B Y T E ) 0 ( Q U O T E
0022660 ( 2 1 4 1 2 1 1 4 2
0022700 1 1 2 7 4 1 0 7 1 1
0022720 1 3 6 1 \r 8 5 5 0
0022740 3 1 5 1 5 1 0 1 3 3
0022760 0 9 1 4 8 9 6 4
0023000 1 1 2 8 1 1 2 1 1 7
0023020 1 0 1 1 3 1 4 7 2
0023040 8 1 3 1 5 6 9 1 5 1
0023060 2 0 5 9 6 1 0 3 \r
0023100 4 0 5 1 4 3 N I L ) )
0023120 ) ) \r ( R P A Q D E S . S B O
0023140 X . 6 ( R E A D A R R A Y - F
0023160 R O M - L I S T 6 4 ( Q U O
0023200 T E B Y T E ) 0 ( Q U O T
0023220 E ( 1 2 1 0 1 1 5 1 0
0023240 4 1 5 2 9 7 2 1 2
0023260 6 9 8 5 \r 0 6 1 3
0023300 1 3 1 3 4 1 4 1 4
0023320 0 7 1 1 5 3 1 1 8
0023340 9 4 1 4 3 1 5 2 5
0023360 1 2 2 9 8 5 1 2 1 5
0023400 3 1 0 7 1 1 0 1 4
0023420 4 1 1 0 7 1 6 1 3
0023440 \r 0 1 1 8 6 1 3 N I L
0023460 ) ) ) ) \r ( R P A Q D E S . S
0023500 B O X . 7 ( R E A D A R R A Y
0023520 - F R O M - L I S T 6 4 ( Q
0023540 U O T E B Y T E ) 0 ( Q U
0023560 O T E ( 4 1 3 1 1 0 2
0023600 1 1 1 4 7 1 5 4 0
0023620 9 8 1 1 3 1 0 \r 3 1
0023640 4 1 2 3 9 5 7 1 2
0023660 5 2 1 0 1 5 6 8 1
0023700 6 1 6 4 1 1 1 1 1 3
0023720 1 3 8 1 2 1 3 4 7
0023740 1 0 1 4 7 1 0 9 1 5
0023760 5 6 0 8 1 5 0 1 4
0024000 5 \r 2 9 3 2 1 2 N
0024020 I L ) ) ) ) \r ( R P A Q D E S
0024040 . S B O X . 8 ( R E A D A R R
0024060 A Y - F R O M - L I S T 6 4
0024100 ( Q U O T E B Y T E ) 0 (
0024120 Q U O T E ( 1 3 1 2 1 5
0024140 8 1 3 4 8 6 1 0 1
0024160 5 3 1 1 7 1 4 \r 1 0
0024200 1 2 9 5 3 6 1 4 1
0024220 1 5 0 0 1 4 1 2 9
0024240 7 2 7 2 1 1 1 4 1
0024260 4 1 7 9 4 1 2 1 0
0024300 1 4 8 2 1 3 0 1 5 6
0024320 1 2 1 0 9 1 3 0 1 5
0024340 3 3 \r 5 5 6 8 1 1
0024360 N I L ) ) ) ) \r ( R P A Q D
0024400 E S . S H I F T S ( R E A D A
0024420 R R A Y - F R O M - L I S T 1
0024440 6 ( Q U O T E B Y T E ) 1
0024460 ( Q U O T E ( 1 1 2 2
0024500 2 2 2 2 1 2 2 2
0024520 2 2 2 1 N I L ) ) ) \r
0024540 ) \r ( R P A Q Q D E S K E Y S
0024560 L S T N I L ) \r ( P U T P R O
0024600 P S D E S C O P Y R I G H T
0024620 ( " X e r o x C o r p o r a
0024640 t i o n " 1 9 8 5 1 9 8 7 )
0024660 ) \r N I L \r
0024666