世界首款火星文版字符串有损压缩器，通过谐音变成单个字符，一般的人类很难读懂。

123

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 火星文压缩文本, 文本型, 公开
    
13. .参数 文本, 文本型
    
14. .局部变量 计数, 整数型
    
15. .局部变量 汉字, 文本型
    
16. 
    
17. 
    
18. .变量循环首 (-32768, 32767, 1, 计数)
    
19.     汉字 ＝ 到文本 (到字节集 (到短整数 (计数)))
    
20.     .如果真 (取拼音 (汉字, 1) ＝ “ling”)  ' 零
    
21.         文本 ＝ 子文本替换 (文本, 汉字, “0”, , , 真)
    
22.     .如果真结束
    
23.     .如果真 (取拼音 (汉字, 1) ＝ “yi”)  ' 一
    
24.         文本 ＝ 子文本替换 (文本, 汉字, “1”, , , 真)
    
25.     .如果真结束
    
26.     .如果真 (取拼音 (汉字, 1) ＝ “er”)  ' 二
    
27.         文本 ＝ 子文本替换 (文本, 汉字, “2”, , , 真)
    
28.     .如果真结束
    
29.     .如果真 (取拼音 (汉字, 1) ＝ “san”)  ' 三
    
30.         文本 ＝ 子文本替换 (文本, 汉字, “3”, , , 真)
    
31.     .如果真结束
    
32.     .如果真 (取拼音 (汉字, 1) ＝ “shan”)  ' 三
    
33.         文本 ＝ 子文本替换 (文本, 汉字, “3”, , , 真)
    
34.     .如果真结束
    
35.     .如果真 (取拼音 (汉字, 1) ＝ “si”)  ' 四
    
36.         文本 ＝ 子文本替换 (文本, 汉字, “4”, , , 真)
    
37.     .如果真结束
    
38.     .如果真 (取拼音 (汉字, 1) ＝ “wu”)  ' 五
    
39.         文本 ＝ 子文本替换 (文本, 汉字, “5”, , , 真)
    
40.     .如果真结束
    
41.     .如果真 (取拼音 (汉字, 1) ＝ “liu”)  ' 六
    
42.         文本 ＝ 子文本替换 (文本, 汉字, “6”, , , 真)
    
43.     .如果真结束
    
44.     .如果真 (取拼音 (汉字, 1) ＝ “qi”)  ' 七
    
45.         文本 ＝ 子文本替换 (文本, 汉字, “7”, , , 真)
    
46.     .如果真结束
    
47.     .如果真 (取拼音 (汉字, 1) ＝ “ba”)  ' 八
    
48.         文本 ＝ 子文本替换 (文本, 汉字, “8”, , , 真)
    
49.     .如果真结束
    
50.     .如果真 (取拼音 (汉字, 1) ＝ “jiu”)  ' 九
    
51.         文本 ＝ 子文本替换 (文本, 汉字, “9”, , , 真)
    
52.     .如果真结束
    
53.     .如果真 (取拼音 (汉字, 1) ＝ “a”)  ' 啊
    
54.         文本 ＝ 子文本替换 (文本, 汉字, “a”, , , 真)
    
55.     .如果真结束
    
56.     .如果真 (取拼音 (汉字, 1) ＝ “ai”)  ' 爱
    
57.         文本 ＝ 子文本替换 (文本, 汉字, “I”, , , 真)
    
58.     .如果真结束
    
59.     .如果真 (取拼音 (汉字, 1) ＝ “bi”)  ' 币
    
60.         文本 ＝ 子文本替换 (文本, 汉字, “B”, , , 真)
    
61.     .如果真结束
    
62.     .如果真 (取拼音 (汉字, 1) ＝ “di”)  ' 第
    
63.         文本 ＝ 子文本替换 (文本, 汉字, “D”, , , 真)
    
64.     .如果真结束
    
65.     .如果真 (取拼音 (汉字, 1) ＝ “e”)  ' 额
    
66.         文本 ＝ 子文本替换 (文本, 汉字, “e”, , , 真)
    
67.     .如果真结束
    
68.     .如果真 (取拼音 (汉字, 1) ＝ “ji”)  ' 积
    
69.         文本 ＝ 子文本替换 (文本, 汉字, “G”, , , 真)
    
70.     .如果真结束
    
71.     .如果真 (取拼音 (汉字, 1) ＝ “en”)  ' 嗯
    
72.         文本 ＝ 子文本替换 (文本, 汉字, “N”, , , 真)
    
73.     .如果真结束
    
74.     .如果真 (取拼音 (汉字, 1) ＝ “o”)  ' 哦
    
75.         文本 ＝ 子文本替换 (文本, 汉字, “O”, , , 真)
    
76.     .如果真结束
    
77.     .如果真 (取拼音 (汉字, 1) ＝ “pi”)  ' 皮
    
78.         文本 ＝ 子文本替换 (文本, 汉字, “P”, , , 真)
    
79.     .如果真结束
    
80.     .如果真 (取拼音 (汉字, 1) ＝ “ti”)  ' 替
    
81.         文本 ＝ 子文本替换 (文本, 汉字, “T”, , , 真)
    
82.     .如果真结束
    
83.     .如果真 (取拼音 (汉字, 1) ＝ “you”)  ' 优
    
84.         文本 ＝ 子文本替换 (文本, 汉字, “U”, , , 真)
    
85.     .如果真结束
    
86.     .如果真 (取拼音 (汉字, 1) ＝ “wei”)  ' 微
    
87.         文本 ＝ 子文本替换 (文本, 汉字, “V”, , , 真)
    
88.     .如果真结束
    
89.     .如果真 (取拼音 (汉字, 1) ＝ “cha”)  ' 查
    
90.         文本 ＝ 子文本替换 (文本, 汉字, “X”, , , 真)
    
91.     .如果真结束
    
92.     .如果真 (取拼音 (汉字, 1) ＝ “wai”)  ' 外
    
93.         文本 ＝ 子文本替换 (文本, 汉字, “Y”, , , 真)
    
94.     .如果真结束
    
95.     .如果真 (取拼音 (汉字, 1) ＝ “mi”)  ' 米
    
96.         文本 ＝ 子文本替换 (文本, 汉字, “*”, , , 真)
    
97.     .如果真结束
    
98.     .如果真 (取拼音 (汉字, 1) ＝ “xing”)  ' 星
    
99.         文本 ＝ 子文本替换 (文本, 汉字, “*”, , , 真)
    
100.     .如果真结束
     
101.     .如果真 (取拼音 (汉字, 1) ＝ “cheng”)  ' 乘
     
102.         文本 ＝ 子文本替换 (文本, 汉字, “*”, , , 真)
     
103.     .如果真结束
     
104.     .如果真 (取拼音 (汉字, 1) ＝ “jing”)  ' 井
     
105.         文本 ＝ 子文本替换 (文本, 汉字, “#”, , , 真)
     
106.     .如果真结束
     
107.     .如果真 (取拼音 (汉字, 1) ＝ “jin”)  ' 金
     
108.         文本 ＝ 子文本替换 (文本, 汉字, “#”, , , 真)
     
109.     .如果真结束
     
110.     .如果真 (取拼音 (汉字, 1) ＝ “jia”)  ' 加
     
111.         文本 ＝ 子文本替换 (文本, 汉字, “+”, , , 真)
     
112.     .如果真结束
     
113.     .如果真 (取拼音 (汉字, 1) ＝ “yu”)  ' 与
     
114.         文本 ＝ 子文本替换 (文本, 汉字, “&”, , , 真)
     
115.     .如果真结束
     
116.     .如果真 (取拼音 (汉字, 1) ＝ “qie”)  ' 且
     
117.         文本 ＝ 子文本替换 (文本, 汉字, “&”, , , 真)
     
118.     .如果真结束
     
119.     .如果真 (取拼音 (汉字, 1) ＝ “huo”)  ' 或
     
120.         文本 ＝ 子文本替换 (文本, 汉字, “|”, , , 真)
     
121.     .如果真结束
     
122.     .如果真 (取拼音 (汉字, 1) ＝ “fei”)  ' 非
     
123.         文本 ＝ 子文本替换 (文本, 汉字, “!”, , , 真)
     
124.     .如果真结束
     
125.     .如果真 (取拼音 (汉字, 1) ＝ “tan”)  ' 叹
     
126.         文本 ＝ 子文本替换 (文本, 汉字, “!”, , , 真)
     
127.     .如果真结束
     
128.     .如果真 (取拼音 (汉字, 1) ＝ “fan”)  ' 反
     
129.         文本 ＝ 子文本替换 (文本, 汉字, “!”, , , 真)
     
130.     .如果真结束
     
131.     .如果真 (取拼音 (汉字, 1) ＝ “bo”)  ' 波
     
132.         文本 ＝ 子文本替换 (文本, 汉字, “~”, , , 真)
     
133.     .如果真结束
     
134.     .如果真 (取拼音 (汉字, 1) ＝ “wen”)  ' 波
     
135.         文本 ＝ 子文本替换 (文本, 汉字, “?”, , , 真)
     
136.     .如果真结束
     
137.     .如果真 (取拼音 (汉字, 1) ＝ “dian”)  ' 点
     
138.         文本 ＝ 子文本替换 (文本, 汉字, “.”, , , 真)
     
139.     .如果真结束
     
140.     .如果真 (取拼音 (汉字, 1) ＝ “deng”)  ' 等
     
141.         文本 ＝ 子文本替换 (文本, 汉字, “=”, , , 真)
     
142.     .如果真结束
     
143.     .如果真 (取拼音 (汉字, 1) ＝ “dou”)  ' 逗
     
144.         文本 ＝ 子文本替换 (文本, 汉字, “,”, , , 真)
     
145.     .如果真结束
     
146.     .如果真 (取拼音 (汉字, 1) ＝ “ge”)  ' 个
     
147.         文本 ＝ 子文本替换 (文本, 汉字, “g”, , , 真)
     
148.     .如果真结束
     
149.     .如果真 (取拼音 (汉字, 1) ＝ “yin”)  ' 引
     
150.         文本 ＝ 子文本替换 (文本, 汉字, #引号, , , 真)
     
151.     .如果真结束
     
152.     .如果真 (取拼音 (汉字, 1) ＝ “fen”)  ' 分
     
153.         文本 ＝ 子文本替换 (文本, 汉字, “;”, , , 真)
     
154.     .如果真结束
     
155.     .如果真 (取拼音 (汉字, 1) ＝ “mao”)  ' 冒
     
156.         文本 ＝ 子文本替换 (文本, 汉字, “:”, , , 真)
     
157.     .如果真结束
     
158.     .如果真 (取拼音 (汉字, 1) ＝ “bai”)  ' 百
     
159.         文本 ＝ 子文本替换 (文本, 汉字, “%”, , , 真)
     
160.     .如果真结束
     
161.     .如果真 (取拼音 (汉字, 1) ＝ “xiao”)  ' 小
     
162.         文本 ＝ 子文本替换 (文本, 汉字, “<”, , , 真)
     
163.     .如果真结束
     
164.     .如果真 (取拼音 (汉字, 1) ＝ “da”)  ' 大
     
165.         文本 ＝ 子文本替换 (文本, 汉字, “>”, , , 真)
     
166.     .如果真结束
     
167.     .如果真 (取拼音 (汉字, 1) ＝ “chu”)  ' 除
     
168.         文本 ＝ 子文本替换 (文本, 汉字, “/”, , , 真)
     
169.     .如果真结束
     
170.     .如果真 (取拼音 (汉字, 1) ＝ “gun”)  ' 棍
     
171.         文本 ＝ 子文本替换 (文本, 汉字, “|”, , , 真)
     
172.     .如果真结束
     
173.     .如果真 (取拼音 (汉字, 1) ＝ “mei”)  ' 没
     
174.         文本 ＝ 子文本替换 (文本, 汉字, “M”, , , 真)
     
175.     .如果真结束
     
176.     .如果真 (取拼音 (汉字, 1) ＝ “me”)  ' 么
     
177.         文本 ＝ 子文本替换 (文本, 汉字, “m”, , , 真)
     
178.     .如果真结束
     
179.     .如果真 (取拼音 (汉字, 1) ＝ “zi”)  ' 自
     
180.         文本 ＝ 子文本替换 (文本, 汉字, “z”, , , 真)
     
181.     .如果真结束
     
182.     .如果真 (取拼音 (汉字, 1) ＝ “jian”)  ' 减
     
183.         文本 ＝ 子文本替换 (文本, 汉字, “-”, , , 真)
     
184.     .如果真结束
     
185.     .如果真 (取拼音 (汉字, 1) ＝ “yue”)  ' 月
     
186.         文本 ＝ 子文本替换 (文本, 汉字, 字符 (14), , , 真)
     
187.     .如果真结束
     
188.     .如果真 (取拼音 (汉字, 1) ＝ “nan”)  ' 男
     
189.         文本 ＝ 子文本替换 (文本, 汉字, 字符 (11), , , 真)
     
190.     .如果真结束
     
191.     .如果真 (取拼音 (汉字, 1) ＝ “nv”)  ' 女
     
192.         文本 ＝ 子文本替换 (文本, 汉字, 字符 (12), , , 真)
     
193.     .如果真结束
     
194.     .如果真 (取拼音 (汉字, 1) ＝ “yang”)  ' 阳
     
195.         文本 ＝ 子文本替换 (文本, 汉字, 字符 (7), , , 真)
     
196.     .如果真结束
     
197.     .如果真 (取拼音 (汉字, 1) ＝ “ri”)  ' 日
     
198.         文本 ＝ 子文本替换 (文本, 汉字, 字符 (7), , , 真)
     
199.     .如果真结束
     
200.     .如果真 (取拼音 (汉字, 1) ＝ “zuo”)  ' 左
     
201.         文本 ＝ 子文本替换 (文本, 汉字, 字符 (27), , , 真)
     
202.     .如果真结束
     
203. 
     
204. 
     
205. 
     
206. 
     
207. .变量循环尾 ()
     
208. 返回 (文本)
     
209. 
     
210. 
     
211. .子程序 _临时子程序
     
212. 
     
213. 输出调试文本 (火星文压缩文本 (“火星文版压缩文本，不作死就不会死”))
     
214. 输出调试文本 (火星文压缩文本 (“测试微劈恩”))
     
215. 输出调试文本 (火星文压缩文本 (“北京天津南京山西山东四川贵阳武汉银川乌鲁木齐沈阳哈尔滨”))
     
216. 
     
217. 
     

复制代码

CNWTEPRG

啥神发明玩意了，度娘也不存在。

Cute

字符串有损压缩，我也是头一次听说。

520

看看是森么玩意了梗。

demon

....

66大顺

这里神发明真多

主人

啥玩意了还回复可见。

小莉今年7岁

想不通字符串有损压缩是啥方法实现的。

程序猿

猿也来看看神发明了

星期零

字符串有损压缩是啥玩意...