.版本 2 .支持库 spec .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 文件路径, 文本型 .局部变量 加密数据, 字节集 .局部变量 MP3数据, 字节集 .局部变量 ID3V1, ID3V1 .局部变量 ID3V2, ID3V2 文件路径 ＝ “d2c5252fecf1fb8192161ce38ec705d1.kgtemp” 加密数据 ＝ 读入文件 (文件路径) MP3数据 ＝ Kgtemp解密 (加密数据) 写到文件 (“1.mp3”, MP3数据) ' 解析ID3V1 (MP3数据, ID3V1) ' 解析ID3V2 (MP3数据, ID3V2) 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 Kgtemp解密, 字节集, , 优化速度为原来2% .参数 加密数据, 字节集 .局部变量 数据长度, 整数型 .局部变量 解密数据, 字节集 .局部变量 解密低位, 整数型, , "4" .局部变量 解密高位, 整数型, , "4" .局部变量 处理字节, 字节型, , "4" .局部变量 处理低位, 整数型, , "4" .局部变量 处理高位, 整数型, , "4" .局部变量 是否出错, 逻辑型 .局部变量 I, 整数型 .局部变量 J, 整数型 .局部变量 K, 整数型 数据长度 ＝ 取字节集长度 (加密数据) .如果真 (数据长度 ≤ 1024) 返回 ({ }) .如果真结束 解密数据 ＝ 取空白字节集 (数据长度 － 1024) ' 0xAC,0xEC,0xDF,0x57 ' 解密Key ＝ { 172, 236, 223, 87 } .' 计次循环首 (4, I) ' 解密低位 [I] ＝ 位与 (解密Key [I], 15) ' 解密高位 [I] ＝ 右移 (解密Key [I], 4) .' 计次循环尾 () 解密低位 ＝ { 12, 12, 15, 7 } 解密高位 ＝ { 10, 14, 13, 5 } 是否出错 ＝ 假 .变量循环首 (1024, 数据长度 － 4, 4, I) .计次循环首 (4, K) 处理字节 [K] ＝ 加密数据 [I ＋ K] ' 解密后的低4位 处理低位 [K] ＝ 位异或 (位与 (处理字节 [K], 15), 解密低位 [K]) ' 解密后的高4位 处理高位 [K] ＝ 位异或 (右移 (处理字节 [K], 4), 解密高位 [K], 处理低位 [K]) 解密数据 [I － 1024 ＋ K] ＝ 到字节 (位或 (左移 (处理高位 [K], 4), 处理低位 [K])) .计次循环尾 () .变量循环尾 () 返回 (解密数据) .子程序 解析ID3V1, 逻辑型 .参数 MP3数据, 字节集 .参数 返回信息, ID3V1, 参考 可空 .局部变量 处理数据, 字节集 .局部变量 数据长度, 整数型 .局部变量 数据指针, 整数型 数据长度 ＝ 取字节集长度 (MP3数据) .如果真 (数据长度 ＜ 128) 返回 (假) .如果真结束 ' ID3V1为尾部128字节 处理数据 ＝ 取字节集右边 (MP3数据, 128) 数据指针 ＝ 指针_取字节集指针 (处理数据) ' 标签数据必为TAG，如果不是则无ID3V1数据 返回信息.标签 ＝ 到文本 (指针_读数据 (数据指针, 0, 3)) .如果真 (返回信息.标签 ≠ “TAG”) 返回 (假) .如果真结束 返回信息.标题 ＝ 到文本 (指针_读数据 (数据指针, 3, 30)) 返回信息.歌手 ＝ 到文本 (指针_读数据 (数据指针, 33, 30)) 返回信息.专辑 ＝ 到文本 (指针_读数据 (数据指针, 63, 30)) 返回信息.年代 ＝ 取字节集数据 (指针_读数据 (数据指针, 93, 4), #整数型, 1) 返回信息.备注 ＝ 到文本 (指针_读数据 (数据指针, 97, 28)) 返回信息.保留 ＝ 指针_读字节 (数据指针, 125) 返回信息.音轨 ＝ 指针_读字节 (数据指针, 126) 返回信息.流派 ＝ 指针_读字节 (数据指针, 127) 调试输出 (返回信息.标题, 返回信息.歌手, 返回信息.专辑, 返回信息.年代, 返回信息.备注, 返回信息.保留, 返回信息.音轨, 返回信息.流派) 返回 (真) .子程序 解析ID3V2, 逻辑型 .参数 MP3数据, 字节集 .参数 返回信息, ID3V2, 参考 可空 .局部变量 数据长度, 整数型 .局部变量 数据指针, 整数型 .局部变量 目标地址, 整数型 .局部变量 临时数据, 字节集 .局部变量 编码ID, 整数型 .局部变量 标签帧, 标签帧 数据长度 ＝ 取字节集长度 (MP3数据) .如果真 (数据长度 ＜ 10) 返回 (假) .如果真结束 数据指针 ＝ 指针_取字节集指针 (MP3数据) 目标地址 ＝ 数据指针 ＋ 数据长度 ' ID3V2数据在头部，标签数据必为ID3，如果不是则无ID3V2数据 返回信息.标签 ＝ 到文本 (指针_读数据 (数据指针, 0, 3)) .如果真 (返回信息.标签 ≠ “ID3”) 返回 (假) .如果真结束 返回信息.版本 [1] ＝ 指针_读字节 (数据指针, 3) 返回信息.版本 [2] ＝ 指针_读字节 (数据指针, 4) 返回信息.标志 ＝ 指针_读字节 (数据指针, 5) ' 四个字节，每个字节只用7位，最高位不使用恒为0 ' 0xxxxxxx 0xxxxxxx 0xxxxxxx 0xxxxxxx 临时数据 ＝ 指针_读数据 (数据指针, 6, 4) 返回信息.帧长 ＝ 位或 (左移 (临时数据 [1], 21), 左移 (临时数据 [2], 14), 左移 (临时数据 [3], 7), 临时数据 [4]) 清除数组 (返回信息.标签帧) 数据指针 ＝ 数据指针 ＋ 10 .判断循环首 (数据指针 ＜ 目标地址) 标签帧.帧ID ＝ 到文本 (指针_读数据 (数据指针, 0, 4)) .如果真 (取反 (帧ID是否有效 (标签帧.帧ID))) 跳出循环 () .如果真结束 临时数据 ＝ 指针_读数据 (数据指针, 4, 4) 标签帧.大小 ＝ 位或 (左移 (临时数据 [1], 24), 左移 (临时数据 [2], 16), 左移 (临时数据 [3], 8), 临时数据 [4]) 标签帧.标志 [1] ＝ 指针_读字节 (数据指针, 8) 标签帧.标志 [2] ＝ 指针_读字节 (数据指针, 9) .如果 (取文本左边 (标签帧.帧ID, 1) ＝ “T” 且 标签帧.帧ID ≠ “TXXX”) 编码ID ＝ 指针_读字节 (数据指针, 10) 标签帧.数据 ＝ 指针_读数据 (数据指针, 11, 标签帧.大小 － 1) .判断开始 (编码ID ＝ 0) ' ISO-8859-1 .判断 (编码ID ＝ 1) ' UTF-16 .判断 (编码ID ＝ 2) ' UTF-16BE .判断 (编码ID ＝ 3) ' UTF-8 标签帧.文本 ＝ 编码_U2A (标签帧.数据) .默认 标签帧.文本 ＝ 到文本 (标签帧.数据) .判断结束 .否则 标签帧.数据 ＝ 指针_读数据 (数据指针, 10, 标签帧.大小) .如果结束 加入成员 (返回信息.标签帧, 标签帧) 数据指针 ＝ 数据指针 ＋ 10 ＋ 标签帧.大小 .判断循环尾 () 返回 (真) .子程序 帧ID是否有效, 逻辑型 .参数 帧ID, 文本型 .局部变量 帧ID集合, 文本型 .如果真 (帧ID ＝ “”) 返回 (假) .如果真结束 返回 (寻找文本 (“AENC,APIC,COMM,COMR,ENCR,EQUA,ETCO,GEOB,GRID,IPLS,LINK,MCDI,MLLT,OWNE,PRIV,PCNT,POPM,POSS,RBUF,RVAD,RVRB,SYLT,SYTC,TALB,TBPM,TCOM,TCON,TCOP,TDAT,TDLY,TENC,TEXT,TFLT,TIME,TIT1,TIT2,TIT3,TKEY,TLAN,TLEN,TMED,TOAL,TOFN,TOLY,TOPE,TORY,TOWN,TPE1,TPE2,TPE3,TPE4,TPOS,TPUB,TRCK,TRDA,TRSN,TRSO,TSIZ,TSRC,TSSE,TYER,TXXX,UFID,USER,USLT,WCOM,WCOP,WOAF,WOAR,WOAS,WORS,WPAY,WPUB,WXXX”, 帧ID, , 假) ≠ -1) .子程序 取流派名, 文本型 .参数 流派ID, 字节型 .局部变量 流派数组, 文本型, , "0", 148 .如果 (流派ID ＞ 0 且 流派ID ≤ 148) 流派数组 ＝ { “Blues”, “ClassicRock”, “Country”, “Dance”, “Disco”, “Funk”, “Grunge”, “Hip-Hop”, “Jazz”, “Metal”, “NewAge”, “Oldies”, “Other”, “Pop”, “R&B”, “Rap”, “Reggae”, “Rock”, “Techno”, “Industrial”, “Alternative”, “Ska”, “Deathl”, “Pranks”, “Soundtrack”, “Euro-Techno”, “Ambient”, “Trip-Hop”, “Vocal”, “Jazz+Funk”, “Fusion”, “Trance”, “Classical”, “Instrumental”, “Acid”, “House”, “Game”, “SoundClip”, “Gospel”, “Noise”, “AlternRock”, “Bass”, “Soul”, “Punk”, “Space”, “Meditative”, “InstrumentalPop”, “InstrumentalRock”, “Ethnic”, “Gothic”, “Darkwave”, “Techno-Industrial”, “Electronic”, “Pop-Folk”, “Eurodance”, “Dream”, “SouthernRock”, “Comedy”, “Cult”, “Gangsta”, “Top40”, “ChristianRap”, “Pop/Funk”, “Jungle”, “NativeAmerican”, “Cabaret”, “NewWave”, “Psychadelic”, “Rave”, “Showtunes”, “Trailer”, “Lo-Fi”, “Tribal”, “AcidPunk”, “AcidJazz”, “Polka”, “Retro”, “Musical”, “Rock&Roll”, “HardRock”, “Folk”, “Folk-Rock”, “NationalFolk”, “Swing”, “FastFusion”, “Bebob”, “Latin”, “Revival”, “Celtic”, “Bluegrass”, “Avantgarde”, “GothicRock”, “ProgessiveRock”, “PsychedelicRock”, “SymphonicRock”, “SlowRock”, “BigBand”, “Chorus”, “EasyListening”, “Acoustic”, “Humour”, “Speech”, “Chanson”, “Opera”, “ChamberMusic”, “Sonata”, “Symphony”, “BootyBass”, “Primus”, “PornGroove”, “Satire”, “SlowJam”, “Club”, “Tango”, “Samba”, “Folklore”, “Ballad”, “PowerBallad”, “RhythmicSoul”, “Freestyle”, “Duet”, “PunkRock”, “DrumSolo”, “Acapella”, “Euro-House”, “DanceHall”, “Goa”, “Drum&Bass”, “Club-House”, “Hardcore”, “Terror”, “Indie”, “BritPop”, “Negerpunk”, “PolskPunk”, “Beat”, “ChristianGangstaRap”, “Heavyl”, “Blackl”, “Crossover”, “ContemporaryChristian”, “ChristianRock”, “Merengue”, “Salsa”, “Trashl”, “Anime”, “JPop”, “Synthpop” } 返回 (流派数组 [流派ID]) .否则 返回 (“Unknown”) .如果结束