SNAIL Soft的所有作品都是开源的，以供大家学习、参考。我们虽然不反对大家对源码进行修改，但是希望保留源码中的SNAIL Soft字样！
10 GRAPH
20 LOCATE 2,4:PRINT "网址 加密 专家","Copy by SNAIL (2007)","[测试版]"
30 LOCATE 5,10:PRINT "SNAIL Soft";
40 W$=INKEY$
50 CLS:CLEAR
60 PRINT "a.网址解密","b.网址加密(All)","c.网址加密(Part)","输入不要加http://"
70 LOCATE 5,10:PRINT "SNAIL Soft";
80 W$=INKEY$
90 IF W$="a" THEN 120
91 IF W$="b" THEN 280
100 IF W$="c" THEN PA=1:280
101 IF ASC(W$)=27 THEN CLS:LOCATE 3,6:PRINT "SNAIL Soft":END
110 BEEP:GOTO 80
120 TEXT
130 INPUT "Enter Add.:";ADX$
140 GRAPH
150 LAD=LEN(ADX$)
151 IF LAD=0 THEN 50
160 A=A+1
161 OPEN "Temp.wal" FOR OUTPUT AS #1
162 WRITE#1,A,LAD,ADX$
163 CLOSE#1
164 CLEAR
165 OPEN "Temp.wal" FOR INPUT AS #1
166 INPUT#1,A,LAD,ADX$
167 CLOSE#1
170 IF A>LAD THEN 260
180 TEA$=MID$(ADX$,A,1)
190 TEA=ASC(TEA$)
191 IF TEA<>37 THEN PRINT TEA$;:160
192 IF A+2>LAD THEN P=0:230
193 TEAA$=MID$(ADX$,A+1,1)
194 TEAB$=MID$(ADX$,A+2,1)
195 TEAA=ASC(TEAA$)
196 TEAB=ASC(TEAB$)
200 IF TEAA<=57 AND TEAA>=48 THEN TEB=TEB+(TEAA-48)*16:P=1
201 IF TEAB<=57 AND TEAB>=48 THEN TEB=TEB+(TEAB-48):P=1
210 IF TEAA>=65 AND TEAA<=70 THEN TEB=TEB+(TEAA-55)*16:P=1
211 IF TEAB>=65 AND TEAB<=70 THEN TEB=TEB+(TEAB-55):P=1
220 IF TEAA>=97 AND TEAA<=120 THEN TEB=TEB+(TEAA-87)*16:P=1
221 IF TEAB>=97 AND TEAB<=120 THEN TEB=TEB+(TEAB-87):P=1
230 IF P=0 THEN CLS:PRINT "Web Address Error.":W$=INKEY$:50
240 P=0:A=A+2 :PRINT CHR$(TEB);:IF A/80=INT(A/80)THEN 250 ELSE 160
241 GOTO 260
250 PRINT CHR$(29);:LOCATE 5,10:PRINT "SNAIL Soft";:W$=INKEY$:CLS:GOTO 160
260 LOCATE 5,10:PRINT "SNAIL Soft";:CLEAR:W$=INKEY$
270 GOTO 50
280 TEXT
290 INPUT "Enter Add.:";ADD$
300 GRAPH:CLS:LAD=LEN(ADD$)
301 IF LAD=0 THEN 50
310 A=A+1
320 IF A>LAD THEN 410
330 TEA$=MID$(ADD$,A,1)
340 TEA=ASC(TEA$)
341 IF PA=1 AND TEA>=65 AND TEA<=90 THEN PRINT TEA$;:391
342 IF PA=1 AND TEA>=97 AND TEA<=122 THEN PRINT TEA$;:391
343 IF PA=1 AND TEA>=48 AND TEA<=57 THEN PRINT TEA$;:391
350 TEB=INT(TEA/16)
360 IF TEB>9 THEN TEB$=CHR$(TEB+87)ELSE TEB$=STR$(TEB)
370 TEC=TEA-TEB*16
380 IF TEC>9 THEN TEC$=CHR$(TEC+87)ELSE TEC$=STR$(TEC)
390 PRINT "%";TEB$;TEC$;
391 IF A/26=INT(A/26)THEN 400 ELSE 310
400 LOCATE 5,1:PRINT CHR$(29);:LOCATE 5,10:PRINT "SNAIL Soft";:W$=INKEY$:CLS:GOTO 310
410 LOCATE 5,10:PRINT "SNAIL Soft";:CLEAR:W$=INKEY$:GOTO 50