EBCDIC、ASCII与EBCDIC的关系及相互转化

        EBCDIC (Extended Binary Coded Decimal Interchange Code) 为国际商用机器公司(IBM)于1963年-64年间推出的字符编码表,根据早期打孔机式的二进化十进数(BCD, Binary Coded Decimal)排列而成。

        EBCDIC编码中,英文字母不是连续地排列,中间出现多次断续,为撰写程序的人带来了一些困难。

        ASCII比EBCDIC后出现,ASCII的编码方式参照了EBCDIC,将英文连了起来,方便了程序员记忆。因此,就连IBM的个人计算机和工作站操作系统也不使用它们所有的EBCDIC编码。相反的,它们使用文本的工业标准编码,ASCII码。

        转化程序允许不同的操作系统从一种编码到另一种编码的转化。

(1)下面是ASCII和EBCDIC的编码转化表。

   The  following  table  shows  ASCII  and  EBCDIC character code values along with their decimal,
   octal, and hexadecimal equivalents. Abreviations, such as NUL and SOH are spelled out at the end
   of the table, in order of appearance.

   Table C-1. ASCII/EBCDIC Character Sets
        ASCII          EBCDIC       Character Code Values
   Control/Graphic Control/Graphic Decimal Octal Hexadecimal
         NUL             NUL          0     000      00
         SOH             SOH          1     001      01
         STX             STX          2     002      02
         ETX             ETX          3     003      03
         EOT             PF           4     004      04
         ENQ             HT           5     005      05
         ACK             LC           6     006      06
         BEL             DEL          7     007      07
         BS                           8     010      08
         HT                           9     011      09
         LF              SMM         10     012      0A
         VT              VT          11     013      0B
         FF              FF          12     014      0C
         CR              CR          13     015      0D
         SO              SO          14     016      0E
         SI              SI          15     017      0F
         DLE             DLE         16     020      10
         DC1             DC1         17     021      11
         DC2             DC2         18     022      12
         DC3             TM          19     023      13
         DC4             RES         20     024      14
         NAK             NL          21     025      15
         SYN             BS          22     026      16
         ETB             IL          23     027      17
         CAN             CAN         24     030      18
         EM              EM          25     031      19
         SUB             CC          26     032      1A
         ESC             CU1         27     033      1B
         FS              IFS         28     034      1C
         GS              IGS         29     035      1D
         RS              IRS         30     036      1E
         US              IUS         31     037      1F
         SP              DS          32     040      20
          !              SOS         33     041      21
          "              FS          34     042      22
          #                          35     043      23
          $              BYP         36     044      24
          %              LF          37     045      25
          &              ETB         38     046      26
          '              ESC         39     047      27
          (                          40     050      28
          )                          41     051      29
          *              SM          42     052      2A
          +              CU2         43     053      2B
          ,                          44     054      2C
          -              ENQ         45     055      2D
          .              ACK         46     056      2E
          /              BEL         47     057      2F
          0                          48     060      30
          1                          49     061      31
          2              SYN         50     062      32
          3                          51     063      33
          4              PN          52     064      34
          5              RS          53     065      35
          6              UC          54     066      36
          7              EOT         55     067      37
          8                          56     070      38
          9                          57     071      39
          :                          58     072      3A
          ;              CU3         59     073      3B
          <              DC4         60     074      3C
          =              NAK         61     075      3D
          >                          62     076      3E
          ?              SUB         63     077      3F
          @              SP          64     100      40
          A                          65     101      41
          B                          66     102      42
          C                          67     103      43
          D                          68     104      44
          E                          69     105      45
          F                          70     106      46
          G                          71     107      47
          H                          72     110      48
          I                          73     111      49
          J                          74     112      4A
          K               .          75     113      4B
          L               <          76     114      4C
          M               (          77     115      4D
          N               +          78     116      4E
          O               |          79     117      4F
          P               &          80     120      50
          Q                          81     121      51
          R                          82     122      52
          S                          83     123      53
          T                          84     124      54
          U                          85     125      55
          V                          86     126      56
          W                          87     127      57
          X                          88     130      58
          Y                          89     131      59
          Z               !          90     132      5A
          [               $          91     133      5B
          \               *          92     134      5C
          ]               )          93     135      5D
          ^               ;          94     136      5E
          _                          95     137      5F
          `               -          96     140      60
          a               /          97     141      61
          b                          98     142      62
          c                          99     143      63
          d                          100    144      64
          e                          101    145      65
          f                          102    146      66
          g                          103    147      67
          h                          104    150      68
          i                          105    151      69
          j                          106    152      6A
          k               ,          107    153      6B
          l               %          108    154      6C
          m               _          109    155      6D
          n               >          110    156      6E
          o               ?          111    157      6F
          p                          112    160      70
          q                          113    161      71
          r                          114    162      72
          s                          115    163      73
          t                          116    164      74
          u                          117    165      75
          v                          118    166      76
          w                          119    167      77
          x                          120    170      78
          y                          121    171      79
          z               :          122    172      7A
          {               #          123    173      7B
          |               @          124    174      7C
          }               '          125    175      7D
          ~               =          126    176      7E
         DEL              "          127    177      7F
                                     128    200      80
                          a          129    201      81
                          b          130    202      82
                          c          131    203      83
                          d          132    204      84
                          e          133    205      85
                          f          134    206      86
                          g          135    207      87
                          h          136    210      88
                          i          137    211      89
                                     138    212      8A
                                     139    213      8B
                                     140    214      8C
                                     141    215      8D
                                     142    216      8E
                                     143    217      8F
                          j          144    220      90
                          k          145    221      91
                          l          146    222      92
                                     147    223      93
                          m          148    224      94
                          n          149    225      95
                          o          150    226      96
                          p          151    227      97
                          q          152    230      98
                          r          153    231      99
                                     154    232      9A
                                     155    233      9B
                                     156    234      9C
                                     157    235      9D
                                     158    236      9E
                                     159    237      9F
                                     160    240      A0
                          ~          161    241      A1
                          s          162    242      A2
                          t          163    243      A3
                          u          164    244      A4
                          v          165    245      A5
                          w          166    246      A6
                          x          167    247      A7
                          y          168    250      A8
                          z          169    251      A9
                                     170    252      AA
                                     171    253      AB
                                     172    254      AC
                                     173    255      AD
                                     174    256      AE
                                     175    257      AF
                                     176    260      B0
                                     177    261      B1
                                     178    262      B2
                                     179    263      B3
                                     180    264      B4
                                     181    265      B5
                                     182    266      B6
                                     183    267      B7
                                     184    270      B8
                                     185    271      B9
                                     186    272      BA
                                     187    273      BB
                                     188    274      BC
                                     189    275      BD
                                     190    276      BE
                                     191    277      BF
                                     192    300      C0
                          A          193    301      C1
                          B          194    302      C2
                          C          195    303      C3
                          D          196    304      C4
                          E          197    305      C5
                          F          198    306      C6
                          G          199    307      C7
                          H          200    310      C8
                          I          201    311      C9
                                     202    312      CA
                                     203    313      CB
                                     204    314      CC
                                     205    315      CD
                                     206    316      CE
                                     207    317      CF
                                     208    320      D0
                          J          209    321      D1
                          K          210    322      D2
                          L          211    323      D3
                          M          212    324      D4
                          N          213    325      D5
                          O          214    326      D6
                          P          215    327      D7
                          Q          216    330      D8
                          R          217    331      D9
                                     218    332      DA
                                     219    333      DB
                                     220    334      DC
                                     221    335      DD
                                     222    336      DE
                                     223    337      DF
                          \          224    340      E0
                                     225    341      E1
                          S          226    342      E2
                          T          227    343      E3
                          U          228    344      E4
                          V          229    345      E5
                          W          230    346      E6
                          X          231    347      E7
                          Y          232    350      E8
                          Z          233    351      E9
                                     234    352      EA
                                     235    353      EB
                                     236    354      EC
                                     237    355      ED
                                     238    356      EE
                                     239    357      EF
                          0          240    360      F0
                          1          241    361      F1
                          2          242    362      F2
                          3          243    363      F3
                          4          244    364      F4
                          5          245    365      F5
                          6          246    366      F6
                          7          247    367      F7
                          8          248    370      F8
                          9          249    371      F9
                                     250    372      FA
                                     251    373      FB
                                     252    374      FC
                                     253    375      FD
                                     254    376      FE
                                     255    377      FF

   NUL   Null
   SOH   Start of Heading
   STX   Start of Text
   ETX   End of Text
   EOT   End of Transmission
   ENQ   Enquiry
   ACK   acknowledge
   BEL   Bell
   BS    Backspace
   HT    Horizontal Tabulation
   LF    Line Feed
   VT    Vertical Tabulation
   FF    Form Feed
   CR    Carriage Return
   SO    Shift Out
   SI    Shift In
   DLE   Data Link Escape
   DC1   Device Control 1 (X-ON)
   DC2   Device Control 2
   DC3   Device Control 3 (X-OFF)
   DC4   Device Control 4
   NAK   Negative Acknowledge
   SYN   Synchronous Idle
   ETB   End of Transmission Block
   CAN   Cancel
   EM    End of Medium
   SUB   Substitute
   ESC   Escape
   FS    File Separator
   GS    Group Separator
   RS    Record Separator
   US    Unit Separator
   SP    Space (Blank)
   DEL   Delete
(2)下面提供一个ASCII和EBCDIC转化的Java程序

public static final byte[] EBCDIC2ASCII = new byte[] {
	(byte)0x0,  (byte)0x1,  (byte)0x2,  (byte)0x3, 
	(byte)0x9C, (byte)0x9,  (byte)0x86, (byte)0x7F, 
	(byte)0x97, (byte)0x8D, (byte)0x8E, (byte)0xB, 
	(byte)0xC,  (byte)0xD,  (byte)0xE,  (byte)0xF, 
	(byte)0x10, (byte)0x11, (byte)0x12, (byte)0x13, 
	(byte)0x9D, (byte)0xA,  (byte)0x8,  (byte)0x87, 
	(byte)0x18, (byte)0x19, (byte)0x92, (byte)0x8F, 
	(byte)0x1C, (byte)0x1D, (byte)0x1E, (byte)0x1F, 
	(byte)0x80, (byte)0x81, (byte)0x82, (byte)0x83, 
	(byte)0x84, (byte)0x85, (byte)0x17, (byte)0x1B, 
	(byte)0x88, (byte)0x89, (byte)0x8A, (byte)0x8B, 
	(byte)0x8C, (byte)0x5,  (byte)0x6,  (byte)0x7, 
	(byte)0x90, (byte)0x91, (byte)0x16, (byte)0x93, 
	(byte)0x94, (byte)0x95, (byte)0x96, (byte)0x4, 
	(byte)0x98, (byte)0x99, (byte)0x9A, (byte)0x9B, 
	(byte)0x14, (byte)0x15, (byte)0x9E, (byte)0x1A, 
	(byte)0x20, (byte)0xA0, (byte)0xE2, (byte)0xE4, 
	(byte)0xE0, (byte)0xE1, (byte)0xE3, (byte)0xE5, 
	(byte)0xE7, (byte)0xF1, (byte)0xA2, (byte)0x2E, 
	(byte)0x3C, (byte)0x28, (byte)0x2B, (byte)0x7C, 
	(byte)0x26, (byte)0xE9, (byte)0xEA, (byte)0xEB, 
	(byte)0xE8, (byte)0xED, (byte)0xEE, (byte)0xEF, 
	(byte)0xEC, (byte)0xDF, (byte)0x21, (byte)0x24, 
	(byte)0x2A, (byte)0x29, (byte)0x3B, (byte)0x5E, 
	(byte)0x2D, (byte)0x2F, (byte)0xC2, (byte)0xC4, 
	(byte)0xC0, (byte)0xC1, (byte)0xC3, (byte)0xC5, 
	(byte)0xC7, (byte)0xD1, (byte)0xA6, (byte)0x2C, 
	(byte)0x25, (byte)0x5F, (byte)0x3E, (byte)0x3F, 
	(byte)0xF8, (byte)0xC9, (byte)0xCA, (byte)0xCB, 
	(byte)0xC8, (byte)0xCD, (byte)0xCE, (byte)0xCF, 
	(byte)0xCC, (byte)0x60, (byte)0x3A, (byte)0x23, 
	(byte)0x40, (byte)0x27, (byte)0x3D, (byte)0x22, 
	(byte)0xD8, (byte)0x61, (byte)0x62, (byte)0x63, 
	(byte)0x64, (byte)0x65, (byte)0x66, (byte)0x67, 
	(byte)0x68, (byte)0x69, (byte)0xAB, (byte)0xBB, 
	(byte)0xF0, (byte)0xFD, (byte)0xFE, (byte)0xB1, 
	(byte)0xB0, (byte)0x6A, (byte)0x6B, (byte)0x6C, 
	(byte)0x6D, (byte)0x6E, (byte)0x6F, (byte)0x70, 
	(byte)0x71, (byte)0x72, (byte)0xAA, (byte)0xBA, 
	(byte)0xE6, (byte)0xB8, (byte)0xC6, (byte)0xA4, 
	(byte)0xB5, (byte)0x7E, (byte)0x73, (byte)0x74, 
	(byte)0x75, (byte)0x76, (byte)0x77, (byte)0x78, 
	(byte)0x79, (byte)0x7A, (byte)0xA1, (byte)0xBF, 
	(byte)0xD0, (byte)0x5B, (byte)0xDE, (byte)0xAE, 
	(byte)0xAC, (byte)0xA3, (byte)0xA5, (byte)0xB7, 
	(byte)0xA9, (byte)0xA7, (byte)0xB6, (byte)0xBC, 
	(byte)0xBD, (byte)0xBE, (byte)0xDD, (byte)0xA8, 
	(byte)0xAF, (byte)0x5D, (byte)0xB4, (byte)0xD7, 
	(byte)0x7B, (byte)0x41, (byte)0x42, (byte)0x43, 
	(byte)0x44, (byte)0x45, (byte)0x46, (byte)0x47, 
	(byte)0x48, (byte)0x49, (byte)0xAD, (byte)0xF4, 
	(byte)0xF6, (byte)0xF2, (byte)0xF3, (byte)0xF5, 
	(byte)0x7D, (byte)0x4A, (byte)0x4B, (byte)0x4C, 
	(byte)0x4D, (byte)0x4E, (byte)0x4F, (byte)0x50, 
	(byte)0x51, (byte)0x52, (byte)0xB9, (byte)0xFB, 
	(byte)0xFC, (byte)0xF9, (byte)0xFA, (byte)0xFF, 
	(byte)0x5C, (byte)0xF7, (byte)0x53, (byte)0x54, 
	(byte)0x55, (byte)0x56, (byte)0x57, (byte)0x58, 
	(byte)0x59, (byte)0x5A, (byte)0xB2, (byte)0xD4, 
	(byte)0xD6, (byte)0xD2, (byte)0xD3, (byte)0xD5, 
	(byte)0x30, (byte)0x31, (byte)0x32, (byte)0x33, 
	(byte)0x34, (byte)0x35, (byte)0x36, (byte)0x37, 
	(byte)0x38, (byte)0x39, (byte)0xB3, (byte)0xDB, 
	(byte)0xDC, (byte)0xD9, (byte)0xDA, (byte)0x9F
};
public static final byte[] ASCII2EBCDIC = new byte[] {
	(byte)0x0,  (byte)0x1,  (byte)0x2,  (byte)0x3, 
	(byte)0x37, (byte)0x2D, (byte)0x2E, (byte)0x2F, 
	(byte)0x16, (byte)0x5,  (byte)0x15, (byte)0xB, 
	(byte)0xC,  (byte)0xD,  (byte)0xE,  (byte)0xF, 
	(byte)0x10, (byte)0x11, (byte)0x12, (byte)0x13, 
	(byte)0x3C, (byte)0x3D, (byte)0x32, (byte)0x26, 
	(byte)0x18, (byte)0x19, (byte)0x3F, (byte)0x27, 
	(byte)0x1C, (byte)0x1D, (byte)0x1E, (byte)0x1F, 
	(byte)0x40, (byte)0x5A, (byte)0x7F, (byte)0x7B, 
	(byte)0x5B, (byte)0x6C, (byte)0x50, (byte)0x7D, 
	(byte)0x4D, (byte)0x5D, (byte)0x5C, (byte)0x4E, 
	(byte)0x6B, (byte)0x60, (byte)0x4B, (byte)0x61, 
	(byte)0xF0, (byte)0xF1, (byte)0xF2, (byte)0xF3, 
	(byte)0xF4, (byte)0xF5, (byte)0xF6, (byte)0xF7, 
	(byte)0xF8, (byte)0xF9, (byte)0x7A, (byte)0x5E, 
	(byte)0x4C, (byte)0x7E, (byte)0x6E, (byte)0x6F, 
	(byte)0x7C, (byte)0xC1, (byte)0xC2, (byte)0xC3, 
	(byte)0xC4, (byte)0xC5, (byte)0xC6, (byte)0xC7, 
	(byte)0xC8, (byte)0xC9, (byte)0xD1, (byte)0xD2, 
	(byte)0xD3, (byte)0xD4, (byte)0xD5, (byte)0xD6, 
	(byte)0xD7, (byte)0xD8, (byte)0xD9, (byte)0xE2, 
	(byte)0xE3, (byte)0xE4, (byte)0xE5, (byte)0xE6, 
	(byte)0xE7, (byte)0xE8, (byte)0xE9, (byte)0xAD, 
	(byte)0xE0, (byte)0xBD, (byte)0x5F, (byte)0x6D, 
	(byte)0x79, (byte)0x81, (byte)0x82, (byte)0x83, 
	(byte)0x84, (byte)0x85, (byte)0x86, (byte)0x87, 
	(byte)0x88, (byte)0x89, (byte)0x91, (byte)0x92, 
	(byte)0x93, (byte)0x94, (byte)0x95, (byte)0x96, 
	(byte)0x97, (byte)0x98, (byte)0x99, (byte)0xA2, 
	(byte)0xA3, (byte)0xA4, (byte)0xA5, (byte)0xA6, 
	(byte)0xA7, (byte)0xA8, (byte)0xA9, (byte)0xC0, 
	(byte)0x4F, (byte)0xD0, (byte)0xA1, (byte)0x7, 
	(byte)0x20, (byte)0x21, (byte)0x22, (byte)0x23, 
	(byte)0x24, (byte)0x25, (byte)0x6,  (byte)0x17, 
	(byte)0x28, (byte)0x29, (byte)0x2A, (byte)0x2B, 
	(byte)0x2C, (byte)0x9,  (byte)0xA,  (byte)0x1B, 
	(byte)0x30, (byte)0x31, (byte)0x1A, (byte)0x33, 
	(byte)0x34, (byte)0x35, (byte)0x36, (byte)0x8, 
	(byte)0x38, (byte)0x39, (byte)0x3A, (byte)0x3B, 
	(byte)0x4,  (byte)0x14, (byte)0x3E, (byte)0xFF, 
	(byte)0x41, (byte)0xAA, (byte)0x4A, (byte)0xB1, 
	(byte)0x9F, (byte)0xB2, (byte)0x6A, (byte)0xB5, 
	(byte)0xBB, (byte)0xB4, (byte)0x9A, (byte)0x8A, 
	(byte)0xB0, (byte)0xCA, (byte)0xAF, (byte)0xBC, 
	(byte)0x90, (byte)0x8F, (byte)0xEA, (byte)0xFA, 
	(byte)0xBE, (byte)0xA0, (byte)0xB6, (byte)0xB3, 
	(byte)0x9D, (byte)0xDA, (byte)0x9B, (byte)0x8B, 
	(byte)0xB7, (byte)0xB8, (byte)0xB9, (byte)0xAB, 
	(byte)0x64, (byte)0x65, (byte)0x62, (byte)0x66, 
	(byte)0x63, (byte)0x67, (byte)0x9E, (byte)0x68, 
	(byte)0x74, (byte)0x71, (byte)0x72, (byte)0x73, 
	(byte)0x78, (byte)0x75, (byte)0x76, (byte)0x77, 
	(byte)0xAC, (byte)0x69, (byte)0xED, (byte)0xEE, 
	(byte)0xEB, (byte)0xEF, (byte)0xEC, (byte)0xBF, 
	(byte)0x80, (byte)0xFD, (byte)0xFE, (byte)0xFB, 
	(byte)0xFC, (byte)0xBA, (byte)0xAE, (byte)0x59, 
	(byte)0x44, (byte)0x45, (byte)0x42, (byte)0x46, 
	(byte)0x43, (byte)0x47, (byte)0x9C, (byte)0x48, 
	(byte)0x54, (byte)0x51, (byte)0x52, (byte)0x53, 
	(byte)0x58, (byte)0x55, (byte)0x56, (byte)0x57, 
	(byte)0x8C, (byte)0x49, (byte)0xCD, (byte)0xCE, 
	(byte)0xCB, (byte)0xCF, (byte)0xCC, (byte)0xE1, 
	(byte)0x70, (byte)0xDD, (byte)0xDE, (byte)0xDB, 
	(byte)0xDC, (byte)0x8D, (byte)0x8E, (byte)0xDF
};
public static byte[] ebcdicToAsciiBytes(byte[] e, int offset, int len) {
	byte[] a = new byte[len];
	for (int i=0; i<len; i++)
		a[i] = EBCDIC2ASCII[e[offset+i]&0xFF];
	return a;
}
public static void asciiToEbcdic(String s, byte[] e, int offset) {
	int len = s.length();
	for (int i=0; i<len; i++)
		e[offset + i] = ASCII2EBCDIC[s.charAt(i)&0xFF];
}

(3)在openssl里有个文件ebcdic.c,这个文件也实现了ASCII与IBM的EBCDIC编码的相互转化的方法。

/* crypto/ebcdic.c */

#ifndef CHARSET_EBCDIC

#include <openssl/e_os2.h>
#if defined(PEDANTIC) || defined(__DECC) || defined(OPENSSL_SYS_MACOSX)
static void *dummy=&dummy;
#endif

#else /*CHARSET_EBCDIC*/

#include "ebcdic.h"
/*      Initial Port for  Apache-1.3     by <Martin.Kraemer@Mch.SNI.De>
 *      Adapted for       OpenSSL-0.9.4  by <Martin.Kraemer@Mch.SNI.De>
 */

#ifdef _OSD_POSIX
/*
    "BS2000 OSD" is a POSIX subsystem on a main frame.
    It is made by Siemens AG, Germany, for their BS2000 mainframe machines.
    Within the POSIX subsystem, the same character set was chosen as in
    "native BS2000", namely EBCDIC. (EDF04)

    The name "ASCII" in these routines is misleading: actually, conversion
    is not between EBCDIC and ASCII, but EBCDIC(EDF04) and ISO-8859.1;
    that means that (western european) national characters are preserved.

    This table is identical to the one used by rsh/rcp/ftp and other POSIX tools.
*/

/* Here's the bijective ebcdic-to-ascii table: */
const unsigned char os_toascii[256] = {
/*00*/ 0x00, 0x01, 0x02, 0x03, 0x85, 0x09, 0x86, 0x7f,
       0x87, 0x8d, 0x8e, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, /*................*/
/*10*/ 0x10, 0x11, 0x12, 0x13, 0x8f, 0x0a, 0x08, 0x97,
       0x18, 0x19, 0x9c, 0x9d, 0x1c, 0x1d, 0x1e, 0x1f, /*................*/
/*20*/ 0x80, 0x81, 0x82, 0x83, 0x84, 0x92, 0x17, 0x1b,
       0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x05, 0x06, 0x07, /*................*/
/*30*/ 0x90, 0x91, 0x16, 0x93, 0x94, 0x95, 0x96, 0x04,
       0x98, 0x99, 0x9a, 0x9b, 0x14, 0x15, 0x9e, 0x1a, /*................*/
/*40*/ 0x20, 0xa0, 0xe2, 0xe4, 0xe0, 0xe1, 0xe3, 0xe5,
       0xe7, 0xf1, 0x60, 0x2e, 0x3c, 0x28, 0x2b, 0x7c, /* .........`.<(+|*/
/*50*/ 0x26, 0xe9, 0xea, 0xeb, 0xe8, 0xed, 0xee, 0xef,
       0xec, 0xdf, 0x21, 0x24, 0x2a, 0x29, 0x3b, 0x9f, /*&.........!$*);.*/
/*60*/ 0x2d, 0x2f, 0xc2, 0xc4, 0xc0, 0xc1, 0xc3, 0xc5,
       0xc7, 0xd1, 0x5e, 0x2c, 0x25, 0x5f, 0x3e, 0x3f, /*-/........^,%_>?*/
/*70*/ 0xf8, 0xc9, 0xca, 0xcb, 0xc8, 0xcd, 0xce, 0xcf,
       0xcc, 0xa8, 0x3a, 0x23, 0x40, 0x27, 0x3d, 0x22, /*..........:#@'="*/
/*80*/ 0xd8, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
       0x68, 0x69, 0xab, 0xbb, 0xf0, 0xfd, 0xfe, 0xb1, /*.abcdefghi......*/
/*90*/ 0xb0, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70,
       0x71, 0x72, 0xaa, 0xba, 0xe6, 0xb8, 0xc6, 0xa4, /*.jklmnopqr......*/
/*a0*/ 0xb5, 0xaf, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78,
       0x79, 0x7a, 0xa1, 0xbf, 0xd0, 0xdd, 0xde, 0xae, /*..stuvwxyz......*/
/*b0*/ 0xa2, 0xa3, 0xa5, 0xb7, 0xa9, 0xa7, 0xb6, 0xbc,
       0xbd, 0xbe, 0xac, 0x5b, 0x5c, 0x5d, 0xb4, 0xd7, /*...........[\]..*/
/*c0*/ 0xf9, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
       0x48, 0x49, 0xad, 0xf4, 0xf6, 0xf2, 0xf3, 0xf5, /*.ABCDEFGHI......*/
/*d0*/ 0xa6, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50,
       0x51, 0x52, 0xb9, 0xfb, 0xfc, 0xdb, 0xfa, 0xff, /*.JKLMNOPQR......*/
/*e0*/ 0xd9, 0xf7, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58,
       0x59, 0x5a, 0xb2, 0xd4, 0xd6, 0xd2, 0xd3, 0xd5, /*..STUVWXYZ......*/
/*f0*/ 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
       0x38, 0x39, 0xb3, 0x7b, 0xdc, 0x7d, 0xda, 0x7e  /*0123456789.{.}.~*/
};


/* The ascii-to-ebcdic table: */
const unsigned char os_toebcdic[256] = {
/*00*/  0x00, 0x01, 0x02, 0x03, 0x37, 0x2d, 0x2e, 0x2f,
	0x16, 0x05, 0x15, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,  /*................*/
/*10*/  0x10, 0x11, 0x12, 0x13, 0x3c, 0x3d, 0x32, 0x26,
	0x18, 0x19, 0x3f, 0x27, 0x1c, 0x1d, 0x1e, 0x1f,  /*................*/
/*20*/  0x40, 0x5a, 0x7f, 0x7b, 0x5b, 0x6c, 0x50, 0x7d,
	0x4d, 0x5d, 0x5c, 0x4e, 0x6b, 0x60, 0x4b, 0x61,  /* !"#$%&'()*+,-./ */
/*30*/  0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
	0xf8, 0xf9, 0x7a, 0x5e, 0x4c, 0x7e, 0x6e, 0x6f,  /*0123456789:;<=>?*/
/*40*/  0x7c, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7,
	0xc8, 0xc9, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6,  /*@ABCDEFGHIJKLMNO*/
/*50*/  0xd7, 0xd8, 0xd9, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6,
	0xe7, 0xe8, 0xe9, 0xbb, 0xbc, 0xbd, 0x6a, 0x6d,  /*PQRSTUVWXYZ[\]^_*/
/*60*/  0x4a, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
	0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96,  /*`abcdefghijklmno*/
/*70*/  0x97, 0x98, 0x99, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6,
	0xa7, 0xa8, 0xa9, 0xfb, 0x4f, 0xfd, 0xff, 0x07,  /*pqrstuvwxyz{|}~.*/
/*80*/  0x20, 0x21, 0x22, 0x23, 0x24, 0x04, 0x06, 0x08,
	0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x09, 0x0a, 0x14,  /*................*/
/*90*/  0x30, 0x31, 0x25, 0x33, 0x34, 0x35, 0x36, 0x17,
	0x38, 0x39, 0x3a, 0x3b, 0x1a, 0x1b, 0x3e, 0x5f,  /*................*/
/*a0*/  0x41, 0xaa, 0xb0, 0xb1, 0x9f, 0xb2, 0xd0, 0xb5,
	0x79, 0xb4, 0x9a, 0x8a, 0xba, 0xca, 0xaf, 0xa1,  /*................*/
/*b0*/  0x90, 0x8f, 0xea, 0xfa, 0xbe, 0xa0, 0xb6, 0xb3,
	0x9d, 0xda, 0x9b, 0x8b, 0xb7, 0xb8, 0xb9, 0xab,  /*................*/
/*c0*/  0x64, 0x65, 0x62, 0x66, 0x63, 0x67, 0x9e, 0x68,
	0x74, 0x71, 0x72, 0x73, 0x78, 0x75, 0x76, 0x77,  /*................*/
/*d0*/  0xac, 0x69, 0xed, 0xee, 0xeb, 0xef, 0xec, 0xbf,
	0x80, 0xe0, 0xfe, 0xdd, 0xfc, 0xad, 0xae, 0x59,  /*................*/
/*e0*/  0x44, 0x45, 0x42, 0x46, 0x43, 0x47, 0x9c, 0x48,
	0x54, 0x51, 0x52, 0x53, 0x58, 0x55, 0x56, 0x57,  /*................*/
/*f0*/  0x8c, 0x49, 0xcd, 0xce, 0xcb, 0xcf, 0xcc, 0xe1,
	0x70, 0xc0, 0xde, 0xdb, 0xdc, 0x8d, 0x8e, 0xdf   /*................*/
};

#else  /*_OSD_POSIX*/

/*
This code does basic character mapping for IBM's TPF and OS/390 operating systems.
It is a modified version of the BS2000 table.

Bijective EBCDIC (character set IBM-1047) to US-ASCII table:
This table is bijective - there are no ambigous or duplicate characters.
*/
const unsigned char os_toascii[256] = {
    0x00, 0x01, 0x02, 0x03, 0x85, 0x09, 0x86, 0x7f, /* 00-0f:           */
    0x87, 0x8d, 0x8e, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, /* ................ */
    0x10, 0x11, 0x12, 0x13, 0x8f, 0x0a, 0x08, 0x97, /* 10-1f:           */
    0x18, 0x19, 0x9c, 0x9d, 0x1c, 0x1d, 0x1e, 0x1f, /* ................ */
    0x80, 0x81, 0x82, 0x83, 0x84, 0x92, 0x17, 0x1b, /* 20-2f:           */
    0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x05, 0x06, 0x07, /* ................ */
    0x90, 0x91, 0x16, 0x93, 0x94, 0x95, 0x96, 0x04, /* 30-3f:           */
    0x98, 0x99, 0x9a, 0x9b, 0x14, 0x15, 0x9e, 0x1a, /* ................ */
    0x20, 0xa0, 0xe2, 0xe4, 0xe0, 0xe1, 0xe3, 0xe5, /* 40-4f:           */
    0xe7, 0xf1, 0xa2, 0x2e, 0x3c, 0x28, 0x2b, 0x7c, /*  ...........<(+| */
    0x26, 0xe9, 0xea, 0xeb, 0xe8, 0xed, 0xee, 0xef, /* 50-5f:           */
    0xec, 0xdf, 0x21, 0x24, 0x2a, 0x29, 0x3b, 0x5e, /* &.........!$*);^ */
    0x2d, 0x2f, 0xc2, 0xc4, 0xc0, 0xc1, 0xc3, 0xc5, /* 60-6f:           */
    0xc7, 0xd1, 0xa6, 0x2c, 0x25, 0x5f, 0x3e, 0x3f, /* -/.........,%_>? */
    0xf8, 0xc9, 0xca, 0xcb, 0xc8, 0xcd, 0xce, 0xcf, /* 70-7f:           */
    0xcc, 0x60, 0x3a, 0x23, 0x40, 0x27, 0x3d, 0x22, /* .........`:#@'=" */
    0xd8, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, /* 80-8f:           */
    0x68, 0x69, 0xab, 0xbb, 0xf0, 0xfd, 0xfe, 0xb1, /* .abcdefghi...... */
    0xb0, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70, /* 90-9f:           */
    0x71, 0x72, 0xaa, 0xba, 0xe6, 0xb8, 0xc6, 0xa4, /* .jklmnopqr...... */
    0xb5, 0x7e, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, /* a0-af:           */
    0x79, 0x7a, 0xa1, 0xbf, 0xd0, 0x5b, 0xde, 0xae, /* .~stuvwxyz...[.. */
    0xac, 0xa3, 0xa5, 0xb7, 0xa9, 0xa7, 0xb6, 0xbc, /* b0-bf:           */
    0xbd, 0xbe, 0xdd, 0xa8, 0xaf, 0x5d, 0xb4, 0xd7, /* .............].. */
    0x7b, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, /* c0-cf:           */
    0x48, 0x49, 0xad, 0xf4, 0xf6, 0xf2, 0xf3, 0xf5, /* {ABCDEFGHI...... */
    0x7d, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50, /* d0-df:           */
    0x51, 0x52, 0xb9, 0xfb, 0xfc, 0xf9, 0xfa, 0xff, /* }JKLMNOPQR...... */
    0x5c, 0xf7, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, /* e0-ef:           */
    0x59, 0x5a, 0xb2, 0xd4, 0xd6, 0xd2, 0xd3, 0xd5, /* \.STUVWXYZ...... */
    0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, /* f0-ff:           */
    0x38, 0x39, 0xb3, 0xdb, 0xdc, 0xd9, 0xda, 0x9f  /* 0123456789...... */
};


/*
The US-ASCII to EBCDIC (character set IBM-1047) table:
This table is bijective (no ambiguous or duplicate characters)
*/
const unsigned char os_toebcdic[256] = {
    0x00, 0x01, 0x02, 0x03, 0x37, 0x2d, 0x2e, 0x2f, /* 00-0f:           */
    0x16, 0x05, 0x15, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, /* ................ */
    0x10, 0x11, 0x12, 0x13, 0x3c, 0x3d, 0x32, 0x26, /* 10-1f:           */
    0x18, 0x19, 0x3f, 0x27, 0x1c, 0x1d, 0x1e, 0x1f, /* ................ */
    0x40, 0x5a, 0x7f, 0x7b, 0x5b, 0x6c, 0x50, 0x7d, /* 20-2f:           */
    0x4d, 0x5d, 0x5c, 0x4e, 0x6b, 0x60, 0x4b, 0x61, /*  !"#$%&'()*+,-./ */
    0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, /* 30-3f:           */
    0xf8, 0xf9, 0x7a, 0x5e, 0x4c, 0x7e, 0x6e, 0x6f, /* 0123456789:;<=>? */
    0x7c, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, /* 40-4f:           */
    0xc8, 0xc9, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6, /* @ABCDEFGHIJKLMNO */
    0xd7, 0xd8, 0xd9, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, /* 50-5f:           */
    0xe7, 0xe8, 0xe9, 0xad, 0xe0, 0xbd, 0x5f, 0x6d, /* PQRSTUVWXYZ[\]^_ */
    0x79, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, /* 60-6f:           */
    0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, /* `abcdefghijklmno */
    0x97, 0x98, 0x99, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, /* 70-7f:           */
    0xa7, 0xa8, 0xa9, 0xc0, 0x4f, 0xd0, 0xa1, 0x07, /* pqrstuvwxyz{|}~. */
    0x20, 0x21, 0x22, 0x23, 0x24, 0x04, 0x06, 0x08, /* 80-8f:           */
    0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x09, 0x0a, 0x14, /* ................ */
    0x30, 0x31, 0x25, 0x33, 0x34, 0x35, 0x36, 0x17, /* 90-9f:           */
    0x38, 0x39, 0x3a, 0x3b, 0x1a, 0x1b, 0x3e, 0xff, /* ................ */
    0x41, 0xaa, 0x4a, 0xb1, 0x9f, 0xb2, 0x6a, 0xb5, /* a0-af:           */
    0xbb, 0xb4, 0x9a, 0x8a, 0xb0, 0xca, 0xaf, 0xbc, /* ................ */
    0x90, 0x8f, 0xea, 0xfa, 0xbe, 0xa0, 0xb6, 0xb3, /* b0-bf:           */
    0x9d, 0xda, 0x9b, 0x8b, 0xb7, 0xb8, 0xb9, 0xab, /* ................ */
    0x64, 0x65, 0x62, 0x66, 0x63, 0x67, 0x9e, 0x68, /* c0-cf:           */
    0x74, 0x71, 0x72, 0x73, 0x78, 0x75, 0x76, 0x77, /* ................ */
    0xac, 0x69, 0xed, 0xee, 0xeb, 0xef, 0xec, 0xbf, /* d0-df:           */
    0x80, 0xfd, 0xfe, 0xfb, 0xfc, 0xba, 0xae, 0x59, /* ................ */
    0x44, 0x45, 0x42, 0x46, 0x43, 0x47, 0x9c, 0x48, /* e0-ef:           */
    0x54, 0x51, 0x52, 0x53, 0x58, 0x55, 0x56, 0x57, /* ................ */
    0x8c, 0x49, 0xcd, 0xce, 0xcb, 0xcf, 0xcc, 0xe1, /* f0-ff:           */
    0x70, 0xdd, 0xde, 0xdb, 0xdc, 0x8d, 0x8e, 0xdf  /* ................ */
};
#endif /*_OSD_POSIX*/

/* Translate a memory block from EBCDIC (host charset) to ASCII (net charset)
 * dest and srce may be identical, or separate memory blocks, but
 * should not overlap. These functions intentionally have an interface
 * compatible to memcpy(3).
 */

void *
ebcdic2ascii(void *dest, const void *srce, size_t count)
{
    unsigned char *udest = dest;
    const unsigned char *usrce = srce;

    while (count-- != 0) {
        *udest++ = os_toascii[*usrce++];
    }

    return dest;
}

void *
ascii2ebcdic(void *dest, const void *srce, size_t count)
{
    unsigned char *udest = dest;
    const unsigned char *usrce = srce;

    while (count-- != 0) {
        *udest++ = os_toebcdic[*usrce++];
    }

    return dest;
}

#endif


评论 6
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值