易语言解码虾米加密外链原理+写法+成品（有回帖奖励）

冰楓丶殘瀷

教程什么的百度也看了很多基本都是PHP解码
易语言的没几个源码，看了一下，根本看不懂（我是易语言渣）
虾米的加密用的是凯撒方阵

1、将红色部分替换为蓝色部分
原地址：http://www.xiami.com/song/1772222342
替换后：http://www.xiami.com/widget/xml-single/uid/0/sid/1772222342

2、打开替换后的地址查看源码

3、我们要取出圈出来的代码
也就是<location><![CDATA[]]></location>之间的内容


4、虾米一共有6种排列法
我已经把6种排列法全都复制下来了
排列法1

4h%2Ff.moF%14153%72279.%uk327756619-86%%nt3Fmixim827%6E2272_83m3teD747%667d14%55utA%5li.%7F82845F2317_pFhydf54574b5475EElp%2.eac2417F%4912441l3a_%a41eE358533E--l

排列法2

5h3%..i%41%84%7349mF_375e66b58%E-tA2fx.2%72%322473pakDf15648-45-nt%FiicF28F52F228_3ued47%75917E%up2mlao8F71E512_7l%tya77531d43%5l%F5emm7146497211.3h%244E675365El

排列法3

6hAFlm%%814%227.Fkd7464946Ent%mei2276422_1maea4e65d3%-ut25..FF483F219puy25571585%lpF.xc81%%212433t%71%3754E5l%%fio71255737_%h3f756b-7%E32iam47FE9748l3_D47E68135-

排列法4

7h%5xo4863138.ay77E4d8EEt2.im%782747mu%f76554%-tFfa%24%5721pt34461575np%im2F%592_93hD7e77-3Eu%2liF12E%213%_d453b16-l3Fe.81F4224_3ka5%684%%lAm.c7714F27lFe21569355

排列法5

8h2fmF113729%k2761-6%tFii87627_33e77671%5t%l.788521_Fyf47b45Ep2ec47%924la%4e383E-%F.o%45%27.u375698%n3mxm2%E228mtD4%6d45uA5i%F24F37phd55457El%.a21F41413_a1E553-l

排列法6

9hFlc%%4123F%7%4565t%eo2247__a3455-%Et2.mFF371luD5E115-pFx%11224.td1674En%mi216527mha76b3%u35aF78928p_277885lA.m88%%273k74394El%fi775231%efe6d7-2i.44EF493y45653%

5、这些加密链接开头的数字是几，就代表凯撒方阵有几行
凯撒方阵我文章最前面已经说过了，不明白的可以百度

6、我们现在来找规律
我们知道链接的地址是http://开头的
":"URL加密后为"%3A"
"/"URL加密后为"%2F"
也就是：http%3A%2F%2F
首先我们先把首位数字置顶

接下来打开搜索功能
首位是h我们已经知道了

接下来按照http://我们需要找到t

好，找到了，我们从t这边换行
接下来我们可以很容易的发现第二个t
就在第一行末尾对下来的地方
好，我们继续从t这边换行

第三位是p，也是如此
在第二行末尾对下来处
同上面一样继续换行

好了4行排列好了

我们先还原下，我们直接一个一个的搜索试试
第一个还是对的

那我们搜索第二个试试

发现不对了是不是
所以软件不像我们一样会换位思考
我们要是不给它固定的关键字他就会乱找
所以我们要多取个关键字
我开始的时候是按照，凯撒方阵每行的前2位关键字（t3,tA,p%）
测试发现在会出现重复导致排列出来的地址是错误的
后来我按照，凯撒方阵每行的前3位关键字
测试的时候就没有出现重复了
我们凯撒方阵把排列好的

现在记录每行的前3位关键词
排列法1关键字：t3F，tA%，p%2


排列法1已经解决了
我们现在来解决排列法2
从排列法2可以看出凯撒方阵有5排
依次下去分别是6排，7排，8排，9排
按排列法1来，第一步搜索t

在第一行末尾对下去找到第二个t

然后是p

现在http已经完成了
轮到":"了，我上面说过":"URL编码后是"%3A"
所以下一个是%

现在取除第一行的关键字外的前三位关键字
排列法2关键字：tA2，t%F，p2m，%F5

我最后再讲一下排列法3
因为之后的排列法都没有什么特别的地方了
先把6置顶
搜索t

在第一行末尾对下去找到第二个t

再是p

接着是%

按照上面来应该从2这里换行

有发现什么不对的地方嘛
我刚才讲过":"URL编码后是"%3A"
现在竖着这么看下来是http%2

所以我们遇到ll是之后是要提前一位换行
也就是从3这边开始换行

好现在对了，接下来把除第一行的前三位关键字找出来

关键字：t%m，t25，pF.，%%f，32i

排列法4
按照正常的排列就行了

关键字：t2.，tFf，p%i，%2l，3Fe，Am.

排列法5
按照正常情况排列即可

关键字：tFi，t%l，p2e，%F.，3mx，A5i，%.a

排列法6
遇到ll之后提前1位换行

排列完成

关键字：t%e，t2.，pFx，%mi，35a，A.m，%fi，2i.

7、接下来打开易语言
添加精益模块

右键添加模块引用

添加


8、添加一个编辑框和按钮


9、双击按钮开始写代码


10、插入一个变量

为什么要插入变量？
因为我们要用变量来获取网页源码里面的内容

11、变量的名字写网页源码

类型填文本型
因为网页源码里都是字
所以要填文本型


12、现在我们要访问网页源码

因为网页源码是文本型的嘛
所以我们要这么写
然后打一个括号

接下来是要进行的是网页访问

再打一个括号
接下来我们该填要访问的地址了
先在括号里打好引号，因为我们要引用那个地址
然后把地址粘贴进去

如果我们要给别人用呢？
别人用什么地址我们都不知道吧
所以我们要把括号里的内容改成 编辑框1.内容

另外，有没有发现
我们一开就把地址替换过了
但总不能让别人这么换吧，实在太麻烦了
所以我们要在网页源码之前就写一个替换功能
对编辑框1.内容的内容进行替换
所以这么写

现在我们在括号里先打几个逗号

然后我们按“↓”把光标移动一下
括号里自己跑出来这么多内容
我们都不知道是什么
我们接下来点一下编辑框1.内容
点一下加号

再点子文本这里的加号

好内容全出来了

欲被替换的文本，就是我们要替换的编辑框里面内容
所以填编辑框1.内容

欲被替换的子文本，就是替换前的内容，红色的内容
http://www.xiami.com/song/1772222342
我们把红色的内容复制到，欲被替换的子文本
因为红色的内容是我们要引用的内容所以要打引号

被用作替换的子文本，也就是被替换后的内容，蓝色的内容
http://www.xiami.com/widget/xml-single/uid/0/sid/1772222342
我们把蓝色的内容复制到，被替换的子文本
要打引号，因为蓝色内容是被我们引用的内容

接下来我们点一下编辑框1.内容，然后点前面的减号
把拓展内容缩回去

13、我们现在要取出网页源码中的内容
文章开头我已经写过了
要取出<location><![CDATA[
]]></location>中间的内容

又因为取出的内容要在编辑框里
所以我们要这么写

编辑框1.内容=文本_取出中间文本
然后打一个括号，再在括号里打几个逗号

按“↓”键把光标往下移动一下
然后点编辑框1.内容，点开加号

再点用作赋于的值或资源前的加号


第一个欲取的全文本，也就是我们要取出网页源码的内容
所以第一个填：网页源码

前面的文本刚才已经讲过了
也就是：<location><![CDATA[
后面的文本就是：]]></location>
这两个内容都是我们要引用的内容所以要打引号

这一个逗号没什么用删掉就行了

再点编辑框前面的加号，把拓展关闭

我们按小三角或者按F5调试一下

光标在中间
按下回车发现不能换行

我们把窗口叉掉
点启动窗口

点编辑框

再点属性

我们把滚动条大概移到中间的位置

把允许多行的假改成真

改完了

我们继续调试
把虾米的地址贴进去
然后点一下按钮
有没有发现我每点一次都在变
我刚才说过一共有6种排列法

14、我们现在要判断是哪种排列法
点窗口程序集1继续写代码


因为要判断，所以我们要用到：如果真
这个命令，然后打一个括号

接着我们要寻找关键字了也就是
4h,5h,6h,7h,8h,9h
现在在括号里打，寻找文本并打一个括号

然后按“↓”键把光标往下移一下
点如果真，然后点开前面的加号

再点条件前面的加号

因为我们是在编辑框里面找所以被搜寻的文本填：编辑框1.内容

欲寻找的文本就是我们要找的关键字，所以填4h
要打引号，因为4h是被我们引用的内容
填完了，我们点一下如果真

再点如果真前面的减号关掉拓展

再在括号后面打一个≠-1

现在我们把如果真这条命令复制5份
分别改成5h,6h,7h,8h,9h

改完了


15、我们终于要对虾米的加密地址进行了
因为我们已经判断好，该怎么排列了
所以要把加密地址前面的数字进行删除
但是每个加密地址里面不止一个4、5、6、7、8、9
所以我们取前两位进行替换也就是4h替换成h，依次类推

因为我们之前有写过替换代码
我们现在复制下来改一下就行了
下面的也同理


接下来要用到精易模块的，文本_插入文本到某字前
我们这么写，编辑框1.内容=文本_插入文本到某字前
然后打一个括号，并在括号里打几个逗号

打开拓展

原文本也就是编辑框1的内容，在原文本那打：编辑框1.内容

某字就是我们前面找出来的关键字
排列法1关键字：t3F，tA%，p%2
所以某字处填：t3F
不要忘了引号，t3F是我们引用的内容

被插在某字前的文本，因为我们是要换行
所以打#换行符就行了

关闭拓展，我们写好的这条代码再复制2行

因为还有2个关键词
修改一下关键词就行了
修改完了


5h那边复制4行代码
6h那边复制5行代码
7h那边复制6行代码
8h那边复制7行代码
9h那边复制8行代码

排列法1关键字：t3F，tA%，p%2
排列法2关键字：tA2，t%F，p2m，%F5
排列法3关键字：t%m，t25，pF.，%%f，32i
排列法4关键字：t2.，tFf，p%i，%2l，3Fe，Am.
排列法5关键字：tFi，t%l，p2e，%F.，3mx，A5i，%.a
排列法6关键字：t%e，t2.，pFx，%mi，35a，A.m，%fi，2i.
大家慢慢复制粘贴修改吧

16.接下来用到一个排列公式
我们插入五个变量
文本数组，类型：文本型
临时文本，类型：文本型
临时文本1，类型：文本型
计次，类型：整数型
计次1类型：整数型
插入新变量按一下回车就行了

文本数组的数组那边要打0

直接复制过去吧，写了4个多小时的帖实在无力再讲了

文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
.如果真 (取数组成员数 (文本数组) ＞ 0)
    .计次循环首 (取文本长度 (文本数组 [1]), 计次1)
        .计次循环首 (取数组成员数 (文本数组), 计次)
            临时文本 ＝ 临时文本 ＋ 取文本中间 (文本数组 [计次], 计次1, 1) ＋ #换行符
            临时文本1 ＝ 临时文本1 ＋ 取文本中间 (文本数组 [计次], 计次1, 1)
        .计次循环尾 ()
    .计次循环尾 ()
    编辑框1.内容 ＝ 临时文本1


17.排列完成之后对地址进行解码
用到精易模块的URL解码功能
对编辑框1.内容解码，所以代码这么写
编辑框1.内容=编码_URL解码
然后打一个括号，在括号里打编辑框1.内容


18、我们接下来按F5调试一下

发现有些点不对，是不是
有一些^这个符号
我们把这些^符号替换成0就行了
复制上面的替换代码修改一下就行了

我们按F5再调试一下
解码完成


成品：http://pan.suning.com/cloud-web/share/link.htm?sk=aaahzJ
源码：http://pan.suning.com/cloud-web/share/link.htm?sk=aaahzK
论坛音乐插入辅助：
http://www.52pojie.cn/thread-378947-1-1.html
外链转换工具 V2.2：
http://www.52pojie.cn/thread-390119-1-1.html
网盘外链转换工具：
http://www.52pojie.cn/thread-394630-1-1.html
各大音乐网站Api接口：
http://www.52pojie.cn/thread-390834-1-1.html
PS：两者配起来会更好用喔

效果图：


喜欢我发音乐的话，请收听我喔↓

wodepj

万吨铜球啊啊啊啊……

276617420qq

滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答答

爱飞的猫

感觉这个算法还可以更精简，懒得做了

.版本 2

.子程序 解密虾米, 文本型
.参数 输入内容, 文本型
.局部变量 段落数目, 整数型
.局部变量 长度, 整数型
.局部变量 余数, 整数型
.局部变量 i, 整数型
.局部变量 段落长度, 整数型, , "0"
.局部变量 基础长度, 整数型
.局部变量 j, 整数型
.局部变量 临时, 整数型
.局部变量 返回文字, 文本型

段落数目 ＝ 到整数 (取文本左边 (输入内容, 1))
' _asm{
' mov eax, [ebp+08h]
' inc dword[eax]
' }
长度 ＝ 取文本长度 (输入内容)
余数 ＝ 长度 ％ 段落数目
重定义数组 (段落长度, 假, 段落数目)

基础长度 ＝ (长度 － 余数) ＼ 段落数目
.计次循环首 (段落数目, i)
    段落长度 [i] ＝ 选择 (余数 ≥ i, 1, 0) ＋ 基础长度
.计次循环尾 ()

.计次循环首 (基础长度 ＋ 1, i)
    临时 ＝ 0
    .计次循环首 (段落数目, j)
        返回文字 ＝ 返回文字 ＋ 取文本中间 (输入内容, 临时 ＋ i, 1)
        临时 ＝ 临时 ＋ 段落长度 [j]
    .计次循环尾 ()
.计次循环尾 ()

返回文字 ＝ 取文本左边 (返回文字, 长度)
' _asm{
' mov eax, [ebp+08h]
' dec dword[eax]
' }
返回 (返回文字)

海泉电脑

对于我们这些比菜鸟还菜鸟的人来说 你说的俺多少明白了一点 但是我不能不说 你的技术实在太牛逼了 想学都没有地方去 顶了

qq20036

学习了，这等好文章。正好在学易语言！膜拜

qq20036

骚年，不要悲伤 、不要心急。忧郁的日子里需要镇静！

邪恶博士

很详细啊，支持个

落幕‘

力挺，我看了好久。。。。详细啊

萋小磊

建议还是视频好点 这个图 太多了

a120019608

这么详细！

就爱玩玩

很好不错

izisak

这教程不错，支持

只不过去是了

好长，我懒得看。不过感谢分享