1 | | |
2 | | |
3 | | |
4 | | |
5 | | |
6 | | |
7 | | |
8 | | |
9 | | |
10 | | |
11 | | |
12 | | |
13 | | |
14 | | |
15 | | |
16 | | |
17 | | |
18 | | |
19 | | |
20 | | |
21 | | |
22 | | |
23 | | |
24 | | |
25 | | |
26 | | |
27 | | |
28 | | |
29 | | |
30 | | |
31 | | |
32 | | |
33 | | |
34 | | |
35 | | |
36 | | |
37 | | |
38 | | |
39 | | |
40 | | |
41 | | |
42 | | |
43 | | |
44 | | |
45 | | |
46 | | |
47 | | |
48 | | |
49 | | |
50 | | |
51 | | |
52 | | |
53 | | |
54 | | |
55 | | |
56 | | |
57 | | |
58 | | |
59 | | |
60 | | |
61 | | |
62 | | |
63 | | |
64 | | |
65 | | |
66 | | |
67 | | |
68 | | |
69 | | |
70 | | |
71 | | |
72 | | |
73 | | |
74 | | |
75 | | |
76 | | |
77 | | |
78 | | |
79 | | |
80 | | |
81 | | |
82 | | |
83 | | |
84 | | |
85 | | |
86 | | |
87 | | |
88 | | |
89 | | |
90 | | |
91 | | |
92 | | |
93 | | |
94 | | |
95 | | |
96 | | |
97 | | |
98 | | |
99 | | |
100 | | |
101 | | |
102 | | |
103 | | |
104 | | |
105 | | |
106 | | |
107 | | |
108 | | |
109 | | |
110 | | |
111 | | |
112 | | |
113 | | |
114 | | |
115 | | |
116 | | |
117 | | |
118 | | |
119 | | |
120 | | |
121 | | |
122 | | |
123 | | |
124 | | |
125 | | |
126 | | |
127 | | |
128 | | |
129 | | |
130 | | |
131 | | |
132 | | |
133 | | |
134 | | |
135 | | |
136 | | |
137 | | |
138 | | |
139 | | |
140 | | |
141 | | |
142 | | |
143 | | |
144 | | |
145 | | |
146 | | |
147 | | |
148 | | |
149 | | |
150 | | |
151 | | |
152 | | |
153 | | |
154 | | |
155 | | |
156 | | |
157 | | |
158 | | |
159 | | |
160 | | |
161 | | |
162 | | |
163 | | |
164 | | |
165 | | |
166 | | |
167 | | |
168 | | |
169 | | |
170 | | |
171 | | |
172 | | |
173 | | |
174 | | |
175 | | |
176 | | |
177 | | |
178 | | |
179 | | |
180 | | |
181 | | |
182 | | |
183 | | |
184 | | |
185 | | |
186 | | |
187 | | |
188 | | |
189 | | |
190 | | |
191 | | |
192 | | |
193 | | |
194 | | |
195 | | |
196 | | |
197 | | |
198 | | |
199 | | |
200 | | |
201 | | |
202 | | |
203 | | |
204 | | |
205 | | |
206 | | |
207 | | |
208 | | |
209 | | |
210 | | |
211 | | |
212 | | |
213 | | |
214 | | |
215 | | |
216 | | |
217 | | |
218 | | |
219 | | |
220 | | |
221 | | |
222 | | |
223 | | |
224 | | |
225 | | |
226 | | |
227 | | |
228 | | |
229 | | |
230 | | |
231 | | |
232 | | |
233 | | |
234 | | |
235 | | |
236 | | |
237 | | |
238 | | |
239 | | |
240 | | |
241 | | |
242 | | |
243 | | |
244 | | |
245 | | |
246 | | |
247 | | |
248 | | |
249 | | |
250 | | |
251 | | |
252 | | |
253 | | |
254 | | |
255 | | |
256 | | |
257 | | |
258 | | |
259 | | |
260 | | |
261 | | |
262 | | |
263 | | |
264 | | |
265 | | |
266 | | |
267 | | |
268 | | |
269 | | |
270 | | |
271 | | |
272 | | |
273 | | |
274 | | |
275 | | |
276 | | |
277 | | |
278 | | |
279 | | |
280 | | |
281 | | |
282 | | |
283 | | |
284 | | |
285 | | |
286 | | |
287 | | |
288 | | |
289 | | |
290 | | |
291 | | |
292 | | |
293 | | |
294 | | |
295 | | |
296 | | |
297 | | |
298 | | |
299 | | |
300 | | |
301 | | |
302 | | |
303 | | |
304 | | |
305 | | |
306 | | |
307 | | |
308 | | |
309 | | |
310 | | |
311 | | |
312 | | |
313 | | |
314 | | |
315 | | |
316 | | |
317 | | |
318 | | |
319 | | |
320 | | |
321 | | |
322 | | |
323 | | |
324 | | |
325 | | |
326 | | |
327 | | |
328 | | |
329 | | |
330 | | |
331 | | |
332 | | |
333 | | |
334 | | |
335 | | |
336 | | |
337 | | |
338 | | |
339 | | |
340 | | |
341 | | |
342 | | |
343 | | |
344 | | |
345 | | |
346 | | |
347 | | |
348 | | |
349 | | |
350 | | |
351 | | |
352 | | |
353 | | |
354 | | |
355 | | |
356 | | |
357 | | |
358 | | |
359 | | |
360 | | |
361 | | |
362 | | |
363 | | |
364 | | |
365 | | |
366 | | |
367 | | |
368 | | |
369 | | |
370 | | |
371 | | |
372 | | |
373 | | |
374 | | |
375 | | |
376 | | |
377 | | |
378 | | |
379 | | |
380 | | |
381 | | |
382 | | |
383 | | |
384 | | |
385 | | |
386 | | |
387 | | |
388 | | |
389 | | |
390 | | |
391 | | |
392 | | |
393 | | |
394 | | |
395 | | |
396 | | |
397 | | |
398 | | |
399 | | |
400 | | |
401 | | |
402 | | |
403 | | |
404 | | |
405 | | |
406 | | |
407 | | |
408 | | |
409 | | |
410 | | |
411 | | |
412 | | |
413 | | |
414 | | |
415 | | |
416 | | |
417 | | |
418 | | |
419 | | |
420 | | |
421 | | |
422 | | |
423 | | |
424 | | |
425 | | |
426 | | |
427 | | |
428 | | |
429 | | |
430 | | |
431 | | |
432 | | |
433 | | |
434 | | |
435 | | |
436 | | |
437 | | |
438 | | |
439 | | |
440 | | |
441 | | |
442 | | |
443 | | |
444 | | |
445 | | |
446 | | |
447 | | |
448 | | |
449 | | |
450 | | |
451 | | |
452 | | |
453 | | |
454 | | |
455 | | |
456 | | |
457 | | |
458 | | |
459 | | |
460 | | |
461 | | |
462 | | |
463 | | |
464 | | |
465 | | |
466 | | |
467 | | |
468 | | |
469 | | |
470 | | |
471 | | |
472 | | |
473 | | |
474 | | |
475 | | |
476 | | |
477 | | |
478 | | |
479 | | |
480 | | |
481 | | |
482 | | |
483 | | |
484 | | |
485 | | |
486 | | |
487 | | |
488 | | |
489 | | |
490 | | |
491 | | |
492 | | |
493 | | |
494 | | |
495 | | |
496 | | |
497 | | |
498 | | |
499 | | |
500 | | |
501 | | |
502 | | |
503 | | |
504 | | |
505 | | |
506 | | |
507 | | |
508 | | |
509 | | |
510 | | |
511 | | |
512 | | |
513 | | |
514 | | |
515 | | |
516 | | |
517 | | |
518 | | |
519 | | |
520 | | |
521 | | |
522 | | |
523 | | |
524 | | |
525 | | |
526 | | |
527 | | |
528 | | |
529 | | |
530 | | |
531 | | |
532 | | |
533 | | |
534 | | |
535 | | |
536 | | |
537 | | |
538 | | |
539 | | |
540 | | |
541 | | |
542 | | |
543 | | |
544 | | |
545 | | |
546 | | |
547 | | |
548 | | |
549 | | |
550 | | |
551 | | |
552 | | |
553 | | |
554 | | |
555 | | |
556 | | |
557 | | |
558 | | |
559 | | |
560 | | |
561 | | |
562 | | |
563 | | |
564 | | |
565 | | |
566 | | |
567 | | |
568 | | |
569 | | |
570 | | |
571 | | |
572 | | |
573 | | |
574 | | |
575 | | |
576 | | |
577 | | |
578 | | |
579 | | |
580 | | |
581 | | |
582 | | |
583 | | |
584 | | |
585 | | |
586 | | |
587 | | |
588 | | |
589 | | |
590 | | |
591 | | |
592 | | |
593 | | |
594 | | |
595 | | |
596 | | |
597 | | |
598 | | |
599 | | |
600 | | |
601 | | |
602 | | |
603 | | |
604 | | |
605 | | |
606 | | |
607 | | |
608 | | |
609 | | |
610 | | |
611 | | |
612 | | |
613 | | |
614 | | |
615 | | |
616 | | |
617 | | |
618 | | |
619 | | |
620 | | |
621 | | |
622 | | |
623 | | |
624 | | |
625 | | |
626 | | |
627 | | |
628 | | |
629 | | |
630 | | |
631 | | |
632 | | |
633 | | |
634 | | |
635 | | |
636 | | |
637 | | |
638 | | |
639 | | |
640 | | |
641 | | |
642 | | |
643 | | |
644 | | |
645 | | |
646 | | |
647 | | |
648 | | |
649 | | |
650 | | |
651 | | |
652 | | |
653 | | |
654 | | |
655 | | |
656 | | |
657 | | |
658 | | |
659 | | |
660 | | |
661 | | |
662 | | |
663 | | |
664 | | |
665 | | |
666 | | |
667 | | |
668 | | |
669 | | |
670 | | |
671 | | |
672 | | |
673 | | |
674 | | |
675 | | |
676 | | |
677 | | |
678 | | |
679 | | |
680 | | |
681 | | |
682 | | |
683 | | |
684 | | |
685 | | |
686 | | |
687 | | |
688 | | |
689 | | |
690 | | |
691 | | |
692 | | |
693 | | |
694 | | |
695 | | |
696 | | |
697 | | |
698 | | |
699 | | |
700 | | |
701 | | |
702 | | |
703 | | |
704 | | |
705 | | |
706 | | |
707 | | |
708 | | |
709 | | |
710 | | |
711 | | |
712 | | |
713 | | |
714 | | |
715 | | |
716 | | |
717 | | |
718 | | |
719 | | |
720 | | |
721 | | |
722 | | |
723 | | |
724 | | |
725 | | |
726 | | |
727 | | |
728 | | |
729 | | |
730 | | |
731 | | |
732 | | |
733 | | |
734 | | |
735 | | |
736 | | |
737 | | |
738 | | |
739 | | |
740 | | |
741 | | |
742 | | |
743 | | |
744 | | |
745 | | |
746 | | |
747 | | |
748 | | |
749 | | |
750 | | |
751 | | |
752 | | |
753 | | |
754 | | |
755 | | |
756 | | |
757 | | |
758 | | |
759 | | |
760 | | |
761 | | |
762 | | |
763 | | |
764 | | |
765 | | |
766 | | |
767 | | |
768 | | |
769 | | |
770 | | |
771 | | |
772 | | |
773 | | |
774 | | |
775 | | |
776 | | |
777 | | |
778 | | |
779 | | |
780 | | |
781 | | |
782 | | |
783 | | |
784 | | |
785 | | |
786 | | |
787 | | |
788 | | |
789 | | |
790 | | |
791 | | |
792 | | |
793 | | |
794 | | |
795 | | |
796 | | |
797 | | |
798 | | |
799 | | |
800 | | |
801 | | |
802 | | |
803 | | |
804 | | |
805 | | |
806 | | |
807 | | |
808 | | |
809 | | |
810 | | |
811 | | |
812 | | |
813 | | |
814 | | |
815 | | |
816 | | |
817 | | |
818 | | |
819 | | |
820 | | |
821 | | |
822 | | |
823 | | |
824 | | |
825 | | |
826 | | |
827 | | |
828 | | |
829 | | |
830 | | |
831 | | |
832 | | |
833 | | |
834 | | |
835 | | |
836 | | |
837 | | |
838 | | |
839 | | |
840 | | |
841 | | |
842 | | |
843 | | |
844 | | |
845 | | |
846 | | |
847 | | |
848 | | |
849 | | |
850 | | |
851 | | |
852 | | |
853 | | |
854 | | |
855 | | |
856 | | |
857 | | |
858 | | |
859 | | |
860 | | |
861 | | |
862 | | |
863 | | |
864 | | |
865 | | |
866 | | |
867 | | |
868 | | |
869 | | |
870 | | |
871 | | |
872 | | |
873 | | |
874 | | |
875 | | |
876 | | |
877 | | |
878 | | |
879 | | |
880 | | |
881 | | |
882 | | |
883 | | |
884 | | |
885 | | |
886 | | |
887 | | |
888 | | |
889 | | |
890 | | |
891 | | |
892 | | |
893 | | |
894 | | |
895 | | |
896 | | |
897 | | |
898 | | |
899 | | |
900 | | |
901 | | |
902 | | |
903 | | |
904 | | |
905 | | |
906 | | |
907 | | |
908 | | |
909 | | |
910 | | |
911 | | |
912 | | |
913 | | |
914 | | |
915 | | |
916 | | |
917 | | |
918 | | |
919 | | |
920 | | |
921 | | |
922 | | |
923 | | |
924 | | |
925 | | |
926 | | |
927 | | |
928 | | |
929 | | |
930 | | |
931 | | |
932 | | |
933 | | |
934 | | |
935 | | |
936 | | |
937 | | |
938 | | |
939 | | |
940 | | |
941 | | |
942 | | |
943 | | |
944 | | |
945 | | |
946 | | |
947 | | |
948 | | |
949 | | |
950 | | |
951 | | |
952 | | |
953 | | |
954 | | |
955 | | |
956 | | |
957 | | |
958 | | |
959 | | |
960 | | |
961 | | |
962 | | |
963 | | |
964 | | |
965 | | |
966 | | |
967 | | |
968 | | |
969 | | |
970 | | |
971 | | |
972 | | |
973 | | |
974 | | |
975 | | |
976 | | |
977 | | |
978 | | |
979 | | |
980 | | |
981 | | |
982 | | |
983 | | |
984 | | |
985 | | |
986 | | |
987 | | |
988 | | |
989 | | |
990 | | |
991 | | |
992 | | |
993 | | |
994 | | |
995 | | |
996 | | |
997 | | |
998 | | |
999 | | |
1000 | | |
1001 | | |
1002 | | |
1003 | | |
1004 | | |
1005 | | |
1006 | | |
1007 | | |
1008 | | |
1009 | | |
1010 | | |
1011 | | |
1012 | | |
1013 | | |
1014 | | |
1015 | | |
1016 | | |
1017 | | |
1018 | | |
1019 | | |
1020 | | |
1021 | | |
1022 | | |
1023 | | |
1024 | | |
1025 | | |
1026 | | |
1027 | | |
1028 | | |
1029 | | |
1030 | | |
1031 | | |
1032 | | |
1033 | | |
1034 | | |
1035 | | |
1036 | | |
1037 | | |
1038 | | |
1039 | | |
1040 | | |
1041 | | |
1042 | | |
1043 | | |
1044 | | |
1045 | | |
1046 | | |
1047 | | |
1048 | | |
1049 | | |
1050 | | |
1051 | | |
1052 | | |
1053 | | |
1054 | | |
1055 | | |
1056 | | |
1057 | | |
1058 | | |
1059 | | |
1060 | | |
1061 | | |
1062 | | |
1063 | | |
1064 | | |
1065 | | |
1066 | | |
1067 | | |
1068 | | |
1069 | | |
1070 | | |
1071 | | |
1072 | | |
1073 | | |
1074 | | |
1075 | | |
1076 | | |
1077 | | |
1078 | | |
1079 | | |
1080 | | |
1081 | | |
1082 | | |
1083 | | |
1084 | | |
1085 | | |
1086 | | |
1087 | | |
1088 | | |
1089 | | |
1090 | | |
1091 | | |
1092 | | |
1093 | | |
1094 | | |
1095 | | |
1096 | | |
1097 | | |
1098 | | |
1099 | | |
1100 | | |
1101 | | |
1102 | | |
1103 | | |
1104 | | |
1105 | | |
1106 | | |
1107 | | |
1108 | | |
1109 | | |
1110 | | |
1111 | | |
1112 | | |
1113 | | |
1114 | | |
1115 | | |
1116 | | |
1117 | | |
1118 | | |
1119 | | |
1120 | | |
1121 | | |
1122 | | |
1123 | | |
1124 | | |
1125 | | |
1126 | | |
1127 | | |
1128 | | |
1129 | | |
1130 | | |
1131 | | |
1132 | | |
1133 | | |
1134 | | |
1135 | | |
1136 | | |
1137 | | |
1138 | | |
1139 | | |
1140 | | |
1141 | | |
1142 | | |
1143 | | |
1144 | | |
1145 | | |
1146 | | |
1147 | | |
1148 | | |
1149 | | |
1150 | | |
1151 | | |
1152 | | |
1153 | | |
1154 | | |
1155 | | |
1156 | | |
1157 | | |
1158 | | |
1159 | | |
1160 | | |
1161 | | |
1162 | | |
1163 | | |
1164 | | |
1165 | | |
1166 | | |
1167 | | |
1168 | | |
1169 | | |
1170 | | |
1171 | | |
1172 | | |
1173 | | |
1174 | | |
1175 | | |
1176 | | |
1177 | | |
1178 | | |
1179 | | |
1180 | | |
1181 | | |
1182 | | |
1183 | | |
1184 | | |
1185 | | |
1186 | | |
1187 | | |
1188 | | |
1189 | | |
1190 | | |
1191 | | |
1192 | | |
1193 | | |
1194 | | |
1195 | | |
1196 | | |
1197 | | |
1198 | | |
1199 | | |
1200 | | |
1201 | | |
1202 | | |
1203 | | |
1204 | | |
1205 | | |
1206 | | |
1207 | | |
1208 | | |
1209 | | |
1210 | | |
1211 | | |
1212 | | |
1213 | | |
1214 | | |
1215 | | |
1216 | | |
1217 | | |
1218 | | |
1219 | | |
1220 | | |
1221 | | |
1222 | | |
1223 | | |
1224 | | |
1225 | | |
1226 | | |
1227 | | |
1228 | | |
1229 | | |
1230 | | |
1231 | | |
1232 | | |
1233 | | |
1234 | | |
1235 | | |
1236 | | |
1237 | | |
1238 | | |
1239 | | |
1240 | | |
1241 | | |
1242 | | |
1243 | | |
1244 | | |
1245 | | |
1246 | | |
1247 | | |
1248 | | |
1249 | | |
1250 | | |
1251 | | |
1252 | | |
1253 | | |
1254 | | |
1255 | | |
1256 | | |
1257 | | |
1258 | | |
1259 | | |
1260 | | |
1261 | | |
1262 | | |
1263 | | |
1264 | | |
1265 | | |
1266 | | |
1267 | | |
1268 | | |
1269 | | |
1270 | | |
1271 | | |
1272 | | |
1273 | | |
1274 | | |
1275 | | |
1276 | | |
1277 | | |
1278 | | |
1279 | | |
1280 | | |
1281 | | |
1282 | | |
1283 | | |
1284 | | |
1285 | | |
1286 | | |
1287 | | |
1288 | | |
1289 | | |
1290 | | |
1291 | | |
1292 | | |
1293 | | |
1294 | | |
1295 | | |
1296 | | |
1297 | | |
1298 | | |
1299 | | |
1300 | | |
1301 | | |
1302 | | |
1303 | | |
1304 | | |
| | | | #pike __REAL_VERSION__ | #pragma strict_types | #define COMPATIBILITY | | #if constant(Gmp) && constant(Gmp.mpz) | | #if 0 | #define WERROR werror | #else | #define WERROR(x ...) | #endif | | | | | #define MAKE_COMBINED_TAG(cls, tag) (((tag) << 2) | (cls)) | | | | | | | | | | | | | | | int make_combined_tag(int cls, int tag) | { return MAKE_COMBINED_TAG(cls, tag); } | | | | | int extract_tag(int i) { return i >> 2; } | | | | | int extract_cls(int i) { return i & 3; } | | | | | | class Object | { | constant cls = 0; | constant tag = 0; | constant constructed = 0; | | constant type_name = 0; | string der_encode(); | | | | | | int get_cls() { return cls; } | | | | | | int get_tag() { return tag; } | | | | | | int get_combined_tag() { | return make_combined_tag(get_tag(), get_cls()); | } | | string der; | | | this_program decode_primitive(string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object) decoder, | mapping(int:program(Object)) types); | this_program begin_decode_constructed(string raw); | this_program decode_constructed_element(int i, object e); | this_program end_decode_constructed(int length); | | mapping(int:program(Object)) element_types(int i, | mapping(int:program(Object)) types) { | return types; i; | } | this_program init(mixed ... args) { return this; args; } | | string to_base_128(int n) { | if (!n) | return "\0"; | | array(int) digits = ({ }); | | | while(n) | { | digits += ({ (n & 0x7f) | 0x80 }); | n >>= 7; | } | digits[0] &= 0x7f; | | return sprintf("%@c", reverse(digits)); | } | | string encode_tag() { | int tag = get_tag(); | int cls = get_cls(); | if (tag < 31) | return sprintf("%c", (cls << 6) | (constructed << 5) | tag); | | return sprintf("%c%s", (cls << 6) | (constructed << 5) | 0x1f, | to_base_128(tag) ); | } | | string encode_length(int|object len) { | if (len < 0x80) | return sprintf("%c", len); | string s = Gmp.mpz(len)->digits(256); | if (sizeof(s) >= 0x80) | error("Max length exceeded.\n" ); | return sprintf("%c%s", sizeof(s) | 0x80, s); | } | | string build_der(string contents) { | string data = encode_tag() + encode_length(sizeof(contents)) + contents; | WERROR("build_der: %O\n", data); | return data; | } | | string record_der(string s) { | return (der = s); | } | | string record_der_contents(string s) { | record_der(build_der(s)); | } | | | | | | | string get_der() { | return der || (record_der(der_encode())); | } | | void create(mixed ...args) { | WERROR("asn1_object[%s]->create\n", type_name); | if (sizeof(args)) | init(@args); | } | } | | | class Compound | { | inherit Object; | | constant constructed = 1; | | | array(Object) elements = ({ }); | | this_program init(array args) { | WERROR("asn1_compound[%s]->init(%O)\n", type_name, args); | foreach(args, mixed o) | if (!objectp(o)) | error( "Non-object argument!\n" ); | elements = [array(Object)]args; | WERROR("asn1_compound: %O\n", elements); | return this; | } | | this_program begin_decode_constructed(string raw) { | WERROR("asn1_compound[%s]->begin_decode_constructed\n", type_name); | record_der_contents(raw); | return this; | } | | this_program decode_constructed_element(int i, object e) { | WERROR("asn1_compound[%s]->decode_constructed_element(%O)\n", | type_name, e); | if (i != sizeof(elements)) | error("Unexpected index!\n"); | elements += ({ e }); | return this; | } | | this_program end_decode_constructed(int length) { | if (length != sizeof(elements)) | error("Invalid length!\n"); | return this; | } | | protected string _sprintf(int t,mapping(string:int)|void params) { | if (params) ++params->indent; else params=([]); | return t=='O' && sprintf("%O(%s %*O)", this_program, type_name, params, elements); | } | | #ifdef COMPATIBILITY | string debug_string() { | WERROR("asn1_compound[%s]->debug_string(), elements = %O\n", | type_name, elements); | return _sprintf('O'); | } | #endif | } | | | class String | { | inherit Object; | | | string value; | | this_program init(string s) { | value = s; | return this; | } | | string der_encode() { | return build_der(value); | } | | this_program decode_primitive(string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | record_der_contents(contents); | value = contents; | return this; | } | | protected string _sprintf(int t) { | return t=='O' && sprintf("%O(%s, %O)", this_program, type_name, value); | } | | #ifdef COMPATIBILITY | string debug_string() { | WERROR("asn1_string[%s]->debug_string(), value = %O\n", type_name, value); | return _sprintf('O'); | } | #endif | } | | | | | | | | class Boolean | { | inherit Object; | constant tag = 1; | constant type_name = "BOOLEAN"; | | | int value; | | this_program init(int x) { | value = x; | return this; | } | | string der_encode() { | return build_der(value ? "\377" : "\0"); | } | | this_program decode_primitive(string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | record_der_contents(contents); | value = (contents != "\0"); | return this; | } | | protected string _sprintf(int t) { | return t=='O' && sprintf("%O(%s)", this_program, (value?"TRUE":"FALSE")); | } | | #ifdef COMPATIBILITY | string debug_string() { | return value ? "TRUE" : "FALSE"; | } | #endif | } | | | | class Integer | { | inherit Object; | constant tag = 2; | constant type_name = "INTEGER"; | | | Gmp.mpz value; | | this_object init(int|object n) { | value = Gmp.mpz(n); | WERROR("i = %s\n", value->digits()); | return this; | } | | string der_encode() { | string s; | | if (value < 0) | { | Gmp.mpz n = [object(Gmp.mpz)](value + | pow(256, ([object(Gmp.mpz)](- value))-> | size(256))); | s = n->digits(256); | if (!(s[0] & 0x80)) | s = "\377" + s; | } else { | s = value->digits(256); | if (s[0] & 0x80) | s = "\0" + s; | } | return build_der(s); | } | | this_object decode_primitive(string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | record_der_contents(contents); | value = Gmp.mpz(contents, 256); | if (contents[0] & 0x80) | value -= pow(256, sizeof(contents)); | return this; | } | | protected string _sprintf(int t) { | return t=='O' && sprintf("%O(%d %s)", this_program, | value->size(), value->digits()); | } | | #ifdef COMPATIBILITY | string debug_string() { | return sprintf("INTEGER (%d) %s", value->size(), value->digits()); | } | #endif | } | | | class Enumerated | { | inherit Integer; | constant tag = 10; | constant type_name ="ENUMERATED"; | } | | | class BitString | { | inherit Object; | constant tag = 3; | constant type_name = "BIT STRING"; | | | string value; | | int unused = 0; | | this_program init(string s) { | value = s; | return this; | } | | string der_encode() { | return build_der(sprintf("%c%s", unused, value)); | } | | | | this_program set_from_ascii(string s) { | array v = array_sscanf(s, "%8b"*(sizeof(s)/8)+"%b"); | v[-1] = v[-1]<<((-sizeof(s))%8); | value = (string)v; | set_length(sizeof(s)); | return this; | } | | | int set_length(int len) { | if (len) | { | value = value[..(len + 7)/8]; | unused = (- len) % 8; | value = sprintf("%s%c", value[..<1], value[-1] | & ({ 0xff, 0xfe, 0xfc, 0xf8, | 0xf0, 0xe0, 0xc0, 0x80 })[unused]); | } else { | unused = 0; | value = ""; | } | } | | this_program decode_primitive(string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | record_der_contents(contents); | if (!sizeof(contents)) | return 0; | unused = contents[0]; | | if (unused >= 8) | return 0; | value = contents[1..]; | return this; | } | | protected string _sprintf(int t) { | int size = sizeof(value)*8-unused; | return t=='O' && sprintf("%O(%d %0"+size+"s)", this_program, size, | ([object(Gmp.mpz)](Gmp.mpz(value, 256) >> unused)) | ->digits(2)); | } | | #ifdef COMPATIBILITY | string debug_string() { | return sprintf("BIT STRING (%d) %s", | sizeof(value) * 8 - unused, | ([object(Gmp.mpz)](Gmp.mpz(value, 256) >> unused)) | ->digits(2)); | } | #endif | } | | | class OctetString | { | inherit String; | constant tag = 4; | constant type_name = "OCTET STRING"; | } | | | class Null | { | inherit Object; | constant tag = 5; | constant type_name = "NULL"; | | string der_encode() { return build_der(""); } | | this_program decode_primitive(string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | record_der_contents(contents); | return !sizeof(contents) && this; | } | | #ifdef COMPATIBILITY | string debug_string() { return "NULL"; } | #endif | } | | | class Identifier | { | inherit Object; | constant tag = 6; | constant type_name = "OBJECT IDENTIFIER"; | | | array(int) id; | | this_program init(int ... args) { | if ( (sizeof(args) < 2) | || (args[0] > 2) | || (args[1] >= ( (args[0] < 2) ? 40 : 176) )) | error( "Invalid object identifier.\n" ); | id = args; | return this; | } | | mixed _encode() { return id; } | void _decode(array(int) data) { id=data; } | | | | this_program append(int ... args) { | return this_program(@id, @args); | } | | string der_encode() { | return build_der(sprintf("%s%@s", to_base_128(40 * id[0] + id[1]), | map(id[2..], to_base_128))); | } | | this_program decode_primitive(string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | record_der_contents(contents); | | if (contents[0] < 120) | id = ({ contents[0] / 40, contents[0] % 40 }); | else | id = ({ 2, contents[0] - 80 }); | int index = 1; | while(index < sizeof(contents)) | { | int element = 0; | do { | element = element << 7 | (contents[index] & 0x7f); | } while(contents[index++] & 0x80); | id += ({ element }); | } | return this; | } | | protected string _sprintf(int t) { | return t=='O' && sprintf("%O(%s)", this_program, (array(string))id*"."); | } | | #ifdef COMPATIBILITY | string debug_string() { | return "IDENTIFIER " + (array(string)) id * "."; | } | #endif | | int __hash() | { | return hash(get_der()); | } | | int `==(mixed other) { | return (objectp(other) && | (this_program == object_program(other)) && | equal(id, ([object(Identifier)]other)->id)); | } | } | | | | int(1..1) asn1_utf8_valid (string s) | { | return 1; s; | } | | | | | | | class UTF8String | { | inherit String; | constant tag = 12; | constant type_name = "UTF8String"; | | string der_encode() { | return build_der(string_to_utf8(value)); | } | | this_program decode_primitive(string(0..255) contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | record_der(contents); | if (catch { | value = utf8_to_string(contents); | }) | return 0; | | return this; | } | } | | | class Sequence | { | inherit Compound; | constant tag = 16; | constant type_name = "SEQUENCE"; | | string der_encode() { | WERROR("ASN1.Sequence: elements = '%O\n", elements); | array(string) a = elements->get_der(); | WERROR("ASN1.Sequence: der_encode(elements) = '%O\n", a); | return build_der(`+("", @ a)); | } | | this_program decode_primitive(string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object) decoder, | mapping(int:program(Object)) types) { | record_der(contents); | elements = ({}); | ADT.struct struct = ADT.struct(contents); | while (!struct->is_empty()) { | elements += ({ decoder(struct, types) }); | } | return this; | } | } | | | class Set | { | inherit Compound; | constant tag = 17; | constant type_name = "SET"; | | int(-1..1) compare_octet_strings(string r, string s) { | for(int i = 0;; i++) { | if (i == sizeof(r)) | return (i = sizeof(s)) ? 0 : 1; | if (i == sizeof(s)) | return -1; | if (r[i] < s[i]) | return 1; | else if (r[i] > s[i]) | return -1; | } | } | | string der_encode() { | WERROR("asn1_set->der: elements = '%O\n", elements); | array(string) a = elements->get_der(); | WERROR("asn1_set->der: der_encode(elements) = '%O\n", a); | return build_der(`+("", @[array(string)] | Array.sort_array(a, compare_octet_strings))); | } | } | | Regexp asn1_printable_invalid_chars = Regexp("([^-A-Za-z0-9 '()+,./:=?])"); | | | int(0..1) asn1_printable_valid (string s) { | if (global.String.width(s)!=8) return 0; | return !asn1_printable_invalid_chars->match(s); | } | | | class PrintableString | { | inherit String; | constant tag = 19; | constant type_name = "PrintableString"; | } | | Regexp asn1_teletex_invalid_chars = Regexp ("([\\\\{}\240®©¬¦\255Ð])"); | | | int(0..1) asn1_teletex_valid (string s) | { | if (global.String.width(s)!=8) | | return 0; | return !asn1_teletex_invalid_chars->match (s); | } | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | class TeletexString | { | inherit String; | constant tag = 20; | constant type_name = "TeletexString"; | | #define ENC_ERR(char) char | #define DEC_ERR(str) str | #define DEC_COMB_MARK "\300" | | #define GR(char) "\301" char /* Combining grave accent */ | #define AC(char) "\302" char /* Combining acute accent */ | #define CI(char) "\303" char /* Combining circumflex accent */ | #define TI(char) "\304" char /* Combining tilde */ | #define MA(char) "\305" char /* Combining macron */ | #define BR(char) "\306" char /* Combining breve */ | #define DA(char) "\307" char /* Combining dot above */ | #define DI(char) "\310" char /* Combining diaeresis */ | #define RA(char) "\312" char /* Combining ring above */ | #define CE(char) "\313" char /* Combining cedilla */ | #define UN(char) "\314" char /* Combining underscore (note 6) */ | #define DO(char) "\315" char /* Combining double acute accent */ | #define OG(char) "\316" char /* Combining ogonek */ | #define CA(char) "\317" char /* Combining caron */ | | constant encode_from = ({ | "¤", | "\\", "{", "}", | "\240", | "×", | "÷", | "¹", | "®", | "©", | "¬", | "¦", | "Æ", | "ª", | "Ø", | "º", | "Þ", | "æ", | "ð", | "ø", | "ß", | "þ", | "\255", | "Ð", | | "^", "`", "~", | "´", "¨", "¯", "¸", | "À", "Á", "Â", "Ã", "Ä", "Å", | "à", "á", "â", "ã", "ä", "å", | "Ç", | "ç", | "È", "É", "Ê", "Ë", | "è", "é", "ê", "ë", | "Ì", "Í", "Î", "Ï", | "ì", "í", "î", "ï", | "Ñ", | "ñ", | "Ò", "Ó", "Ô", "Õ", "Ö", | "ò", "ó", "ô", "õ", "ö", | "Ù", "Ú", "Û", "Ü", | "ù", "ú", "û", "ü", | "Ý", | "ý", | }); | | constant encode_to = ({ | "\250", | ENC_ERR("\\"), ENC_ERR("{"), ENC_ERR("}"), | ENC_ERR("\240"), | "\264", | "\270", | "\321", | ENC_ERR("®"), | ENC_ERR("©"), | ENC_ERR("¬"), | ENC_ERR("¦"), | "\341", | "\343", | "\351", | "\353", | "\354", | "\361", | "\363", | "\371", | "\373", | "\374", | ENC_ERR("\255"), | ENC_ERR("Ð"), | | CI(" "), GR(" "), TI(" "), | AC(" "), DI(" "), MA(" "), CE(" "), | GR("A"), AC("A"), CI("A"), TI("A"), DI("A"), RA("A"), | GR("a"), AC("a"), CI("a"), TI("a"), DI("a"), RA("a"), | CE("C"), | CE("c"), | GR("E"), AC("E"), CI("E"), DI("E"), | GR("e"), AC("e"), CI("e"), DI("e"), | GR("I"), AC("I"), CI("I"), DI("I"), | GR("i"), AC("i"), CI("i"), DI("i"), | TI("N"), | TI("n"), | GR("O"), AC("O"), CI("O"), TI("O"), DI("O"), | GR("o"), AC("o"), CI("o"), TI("o"), DI("o"), | GR("U"), AC("U"), CI("U"), DI("U"), | GR("u"), AC("u"), CI("u"), DI("u"), | GR("Y"), | GR("y"), | }); | | constant decode_from = ({ | "\244", "\246", "\250", | | "\251", | "\252", | "\254", | "\255", | "\256", | "\257", | "\264", | "\270", | "\271", | "\272", | "\300", | GR(""), | AC(""), | CI(""), | TI(""), | MA(""), | BR(""), | DA(""), | DI(""), | "\311", | RA(""), | CE(""), | UN(""), | DO(""), | OG(""), | CA(""), | "\320", | "\321", | "\322", | "\323", | "\324", | "\325", | "\326", | "\327", | "\330", "\331", "\332", "\333", | "\334", | "\335", | "\336", | "\337", | "\340", | "\341", | "\342", | "\343", | "\344", | "\345", | "\346", | "\347", | "\350", | "\351", | "\352", | "\353", | "\354", | "\355", | "\356", | "\357", | "\360", | "\361", | "\362", | "\363", | "\364", | "\365", | "\366", | "\367", | "\370", | "\371", | "\372", | "\373", | "\374", | "\375", | "\376", | "\377", | }); | | constant decode_to = ({ | "$", "#", "\244", | | DEC_ERR("\251"), | DEC_ERR("\252"), | DEC_ERR("\254"), | DEC_ERR("\255"), | DEC_ERR("\256"), | DEC_ERR("\257"), | "×", | "÷", | DEC_ERR("\271"), | DEC_ERR("\272"), | DEC_ERR("\300"), | DEC_COMB_MARK GR(""), | DEC_COMB_MARK AC(""), | DEC_COMB_MARK CI(""), | DEC_COMB_MARK TI(""), | DEC_COMB_MARK MA(""), | DEC_COMB_MARK BR(""), | DEC_COMB_MARK DA(""), | DEC_COMB_MARK DI(""), | DEC_ERR("\311"), | DEC_COMB_MARK RA(""), | DEC_COMB_MARK CE(""), | DEC_COMB_MARK UN(""), | DEC_COMB_MARK DO(""), | DEC_COMB_MARK OG(""), | DEC_COMB_MARK CA(""), | DEC_ERR("\320"), | "¹", | "®", | "©", | DEC_ERR("\324"), | DEC_ERR("\325"), | "¬", | "¦", | DEC_ERR("\330"), DEC_ERR("\331"), DEC_ERR("\332"), DEC_ERR("\333"), | DEC_ERR("\334"), | DEC_ERR("\335"), | DEC_ERR("\336"), | DEC_ERR("\337"), | DEC_ERR("\340"), | "Æ", | DEC_ERR("\342"), | "ª", | DEC_ERR("\344"), | DEC_ERR("\345"), | DEC_ERR("\346"), | DEC_ERR("\347"), | DEC_ERR("\350"), | "Ø", | DEC_ERR("\352"), | "º", | "Þ", | DEC_ERR("\355"), | DEC_ERR("\356"), | DEC_ERR("\357"), | DEC_ERR("\360"), | "æ", | DEC_ERR("\362"), | "ð", | DEC_ERR("\364"), | DEC_ERR("\365"), | DEC_ERR("\366"), | DEC_ERR("\367"), | DEC_ERR("\370"), | "ø", | DEC_ERR("\372"), | "ß", | "þ", | DEC_ERR("\375"), | DEC_ERR("\376"), | "\255", | }); | | constant decode_comb = ([ | GR(" "): "`", | AC(" "): "´", | CI(" "): "^", | TI(" "): "~", | DI(" "): "¨", | | MA(" "): "¯", | | | CE(" "): "¸", | | | | GR("A"): "À", AC("A"): "Á", CI("A"): "Â", TI("A"): "Ã", DI("A"): "Ä", RA("A"): "Å", | GR("a"): "à", AC("a"): "á", CI("a"): "â", TI("a"): "ã", DI("a"): "ä", RA("a"): "å", | CE("C"): "Ç", | CE("c"): "ç", | GR("E"): "È", AC("E"): "É", CI("E"): "Ê", DI("E"): "Ë", | GR("e"): "è", AC("e"): "é", CI("e"): "ê", DI("e"): "ë", | GR("I"): "Ì", AC("I"): "Í", CI("I"): "Î", DI("I"): "Ï", | GR("i"): "ì", AC("i"): "í", CI("i"): "î", DI("i"): "ï", | TI("N"): "Ñ", | TI("n"): "ñ", | GR("O"): "Ò", AC("O"): "Ó", CI("O"): "Ô", TI("O"): "Õ", DI("O"): "Ö", | GR("o"): "ò", AC("o"): "ó", CI("o"): "ô", TI("o"): "õ", DI("o"): "ö", | GR("U"): "Ù", AC("U"): "Ú", CI("U"): "Û", DI("U"): "Ü", | GR("u"): "ù", AC("u"): "ú", CI("u"): "û", DI("u"): "ü", | GR("Y"): "Ý", | GR("y"): "ý", | ]); | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | #undef GR | #undef AC | #undef CI | #undef TI | #undef MA | #undef BR | #undef DA | #undef DI | #undef RA | #undef CE | #undef UN | #undef DO | #undef OG | #undef CA | | string der_encode() { | return build_der(replace(value, [array(string)]encode_from, | [array(string)]encode_to)); | } | | this_program decode_primitive (string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | record_der (contents); | | array(string) parts = | replace (contents, [array(string)]decode_from, | [array(string)]decode_to) / DEC_COMB_MARK; | value = parts[0]; | foreach (parts[1..], string part) | value += (decode_comb[part[..1]] || DEC_ERR(part[..1])) + part[2..]; | | return this; | } | | #undef ENC_ERR | #undef DEC_ERR | #undef DEC_COMB_MARK | } | | | int(0..1) asn1_broken_teletex_valid (string s) | { | return global.String.width(s)==8; | } | | | | | | class BrokenTeletexString | { | inherit String; | constant tag = 20; | constant type_name = "TeletexString"; | } | | Regexp asn1_IA5_invalid_chars = Regexp ("([\200-\377])"); | | | int(0..1) asn1_IA5_valid (string s) | { | if (global.String.width(s)!=8) return 0; | return !asn1_printable_invalid_chars->match (s); | } | | | | | | class IA5String | { | inherit String; | constant tag = 22; | constant type_name = "IA5STRING"; | } | | | class VisibleString { | inherit String; | constant tag = 26; | constant type_name = "VisibleString"; | } | | | class UTC | { | inherit String; | constant tag = 23; | constant type_name = "UTCTime"; | } | | | int(0..0) asn1_universal_valid (string s) | { | return 0; s; | } | | | | | | | | | class UniversalString | { | inherit OctetString; | constant tag = 28; | constant type_name = "UniversalString"; | | string der_encode() { | error( "Encoding not implemented\n" ); | } | | this_program decode_primitive (string contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | error( "Decoding not implemented\n" ); contents; | } | } | | | int(0..1) asn1_bmp_valid (string s) | { | return global.String.width(s)<32; | } | | | | | | | | class BMPString | { | inherit OctetString; | constant tag = 30; | constant type_name = "BMPString"; | | string der_encode() { | return build_der (string_to_unicode (value)); | } | | this_program decode_primitive (string(0..255) contents, | function(ADT.struct, | mapping(int:program(Object)): | Object)|void decoder, | mapping(int:program(Object))|void types) { | record_der (contents); | value = unicode_to_string (contents); | return this; | } | } | | | | | | | | | class MetaExplicit | { | int real_tag; | int real_cls; | | mapping(int:program(Object)) valid_types; | | class `() { | inherit Compound; | constant type_name = "EXPLICIT"; | constant constructed = 1; | | int get_tag() { return real_tag; } | int get_cls() { return real_cls; } | | Object contents; | | this_program init(Object o) { | contents = o; | return this; | } | | string der_encode() { | WERROR("asn1_explicit->der: contents = '%O\n", contents); | return build_der(contents->get_der()); | } | | this_program decode_constructed_element(int i, Object e) { | if (i) | error("Unexpected index!\n"); | contents = e; | return this; | } | | this_program end_decode_constructed(int length) { | if (length != 1) | error("length != 1!\n"); | return this; | } | | mapping(int:program(Object)) element_types(int i, | mapping(int:program(Object)) types) { | if (i) | error("Unexpected index!\n"); | return valid_types || types; | } | | protected string _sprintf(int t) { | return t=='O' && sprintf("%O(%s %d %O)", this_program, type_name, | real_tag, contents); | } | | #ifdef COMPATIBILITY | string debug_string() { | return type_name + "[" + (int) real_tag + "]"; | } | #endif | } | | | void create(int cls, int tag, mapping(int:program(Object))|void types) { | real_cls = cls; | real_tag = tag; | valid_types = types; | } | } | | | #ifdef COMPATIBILITY | constant meta_explicit = MetaExplicit; | constant asn1_object = Object; | constant asn1_compound = Compound; | constant asn1_string = String; | constant asn1_boolean = Boolean; | constant asn1_integer = Integer; | constant asn1_enumerated = Enumerated; | constant asn1_bit_string = BitString; | constant asn1_octet_string = OctetString; | constant asn1_null = Null; | constant asn1_identifier = Identifier; | constant asn1_utf8_string = UTF8String; | constant asn1_sequence = Sequence; | constant asn1_set = Set; | constant asn1_printable_string = PrintableString; | constant asn1_teletex_string = TeletexString; | constant asn1_broken_teletex_string = BrokenTeletexString; | constant asn1_IA5_string = IA5String; | constant asn1_utc = UTC; | constant asn1_universal_string = UniversalString; | constant asn1_bmp_string = BMPString; | #endif | | #else | constant this_program_does_not_exist=1; | #endif /* Gmp.mpz */ | | |
|