unit2.~pas

传奇 外挂 原代码,供感兴趣的人研究. 传奇终结者2.0

 if (y>267) and (y<309) then result:='碧波' else
 if (y>309) and (y<351) then result:='青山' else
 if (y>351) and (y<393) then result:='绿野' else result:='未知';
end
else
if Logo='江山如画(21区)' then begin
 if (y>225) and (y<267) then result:='秋水' else
 if (y>267) and (y<309) then result:='长天' else
 if (y>309) and (y<351) then result:='沧海' else
 if (y>351) and (y<393) then result:='桑田' else result:='未知';
end
else
if Logo='网通宽带(22区)' then begin
 if (y>225) and (y<267) then result:='雾都(new!)' else
 if (y>267) and (y<309) then result:='紫金' else
 if (y>309) and (y<351) then result:='赤焰' else
 if (y>351) and (y<393) then result:='红日' else result:='未知';
end
else
if Logo='群雄逐鹿(23区)' then begin
 if (y>225) and (y<267) then result:='金戈' else
 if (y>267) and (y<309) then result:='铁马' else
 if (y>309) and (y<351) then result:='至尊' else
 if (y>351) and (y<393) then result:='无敌' else result:='未知';
end
else
if Logo='西部圣域III(24区)' then begin
 if (y>225) and (y<267) then result:='长征(遵义)' else
 if (y>267) and (y<309) then result:='东坡(眉山)' else
 if (y>309) and (y<351) then result:='倚天(天府)' else
 if (y>351) and (y<393) then result:='屠龙(天府)' else result:='未知';
end
else
if Logo='风云II(25区)' then begin
 if (y>225) and (y<267) then result:='越秀' else
 if (y>267) and (y<309) then result:='黄埔' else
 if (y>309) and (y<351) then result:='珠江' else
 if (y>351) and (y<393) then result:='海印' else result:='未知';
end
else
if Logo='仙女湖(26区)' then begin
 if (y>225) and (y<267) then result:='嵩阳' else
 if (y>267) and (y<309) then result:='玄妙' else
 if (y>309) and (y<351) then result:='流波' else
 if (y>351) and (y<393) then result:='月涛' else result:='未知';
end
else
if Logo='网通宽带II(27区)' then begin
 if (y>141) and (y<183) then result:='风月' else
 if (y>183) and (y<225) then result:='紫月' else
 if (y>225) and (y<267) then result:='大唐' else
 if (y>267) and (y<309) then result:='大秦' else
 if (y>309) and (y<351) then result:='龙吟' else
 if (y>351) and (y<393) then result:='聚义' else
 if (y>393) and (y<435) then result:='星海' else
 if (y>435) and (y<477) then result:='佳星' else result:='未知';
end
else
if Logo='中游传奇(28区)' then begin
 if (y>225) and (y<267) then result:='乾坤' else
 if (y>267) and (y<309) then result:='八卦' else
 if (y>309) and (y<351) then result:='奇门' else
 if (y>351) and (y<393) then result:='遁甲' else result:='未知';
end
else
if Logo='东海风暴(29区)' then begin
 if (y>225) and (y<267) then result:='御风' else
 if (y>267) and (y<309) then result:='惊云' else
 if (y>309) and (y<351) then result:='劈波' else
 if (y>351) and (y<393) then result:='斩浪' else result:='未知';
end
else
if Logo='安徽热线(30区)' then begin
 if (y>267) and (y<309) then result:='逍遥' else
 if (y>309) and (y<351) then result:='傲岳' else result:='未知';
end
else
if Logo='甲天下(31区)' then begin
 if (y>225) and (y<267) then result:='冷月' else
 if (y>267) and (y<309) then result:='无双' else
 if (y>309) and (y<351) then result:='灵凤' else
 if (y>351) and (y<393) then result:='云舞' else result:='未知';
end
else
if Logo='英雄天地(32区)' then begin
 if (y>225) and (y<267) then result:='黄山' else
 if (y>267) and (y<309) then result:='燕赵' else
 if (y>309) and (y<351) then result:='辽沈' else
 if (y>351) and (y<393) then result:='潇湘' else result:='未知';
end
else
if Logo='西部圣域IV(33区)' then begin
 if (y>141) and (y<183) then result:='华容' else
 if (y>183) and (y<225) then result:='官渡' else
 if (y>225) and (y<267) then result:='剑阁' else
 if (y>267) and (y<309) then result:='赤壁' else
 if (y>309) and (y<351) then result:='桃源' else
 if (y>351) and (y<393) then result:='白帝' else
 if (y>393) and (y<435) then result:='虎牢' else
 if (y>435) and (y<477) then result:='赤水' else result:='未知';
end
else
if Logo='五里河(34区)' then begin
 if (y>225) and (y<267) then result:='龙腾' else
 if (y>267) and (y<309) then result:='虎跃' else
 if (y>309) and (y<351) then result:='凤舞' else
 if (y>351) and (y<393) then result:='鹰翔' else result:='未知';
end
else
if Logo='江苏电信(35区)' then begin
 if (y>225) and (y<267) then result:='广陵' else
 if (y>267) and (y<309) then result:='汉邦' else
 if (y>309) and (y<351) then result:='龙蟠' else
 if (y>351) and (y<393) then result:='虎踞' else result:='未知';
end
else
if Logo='网通宽带III(36区)' then begin
 if (y>141) and (y<183) then result:='荒原' else
 if (y>183) and (y<225) then result:='苍穹' else
 if (y>225) and (y<267) then result:='地豁' else
 if (y>267) and (y<309) then result:='天漏' else
 if (y>309) and (y<351) then result:='中京' else
 if (y>351) and (y<393) then result:='王朝' else
 if (y>393) and (y<435) then result:='大漠' else
 if (y>435) and (y<477) then result:='天池' else result:='未知';
end
else
if Logo='古城热线(37区)' then begin
 if (y>225) and (y<267) then result:='周' else
 if (y>267) and (y<309) then result:='秦' else
 if (y>309) and (y<351) then result:='汉' else
 if (y>351) and (y<393) then result:='唐' else result:='未知';
end
else
if Logo='风云III(38区)' then begin
 if (y>225) and (y<267) then result:='黄鹤楼' else
 if (y>267) and (y<309) then result:='晴川阁' else
 if (y>309) and (y<351) then result:='荆州城' else
 if (y>351) and (y<393) then result:='武当山' else result:='未知';
end
else
if Logo='风云IV(39区)' then begin
 if (y>225) and (y<267) then result:='太白' else
 if (y>267) and (y<309) then result:='骊山' else
 if (y>309) and (y<351) then result:='雁塔' else
 if (y>351) and (y<393) then result:='莲湖' else result:='未知';
end
else
if Logo='仁者无敌(41区)' then begin
 if (y>225) and (y<267) then result:='如意' else
 if (y>267) and (y<309) then result:='井冈' else
 if (y>309) and (y<351) then result:='仙水' else
 if (y>351) and (y<393) then result:='星城' else result:='未知';
end
else
if Logo='风云V(42区)' then begin
 if (y>141) and (y<183) then result:='鼓岭(福州)' else
 if (y>183) and (y<225) then result:='鹭岛(福州)' else
 if (y>225) and (y<267) then result:='金湖(福州)' else
 if (y>267) and (y<309) then result:='武夷(福州)' else
 if (y>309) and (y<351) then result:='秀屿(福州)' else
 if (y>351) and (y<393) then result:='清源(福州)' else
 if (y>393) and (y<435) then result:='鹫峰(福州)' else
 if (y>435) and (y<477) then result:='丹霞(福州)' else result:='未知';
end
else
if Logo='教育网(43区)' then begin
 if (y>225) and (y<267) then result:='山海经(北京)' else
 if (y>267) and (y<309) then result:='东周传(北京)' else
 if (y>309) and (y<351) then result:='战国策(北京)' else
 if (y>351) and (y<393) then result:='镜花缘(北京)' else result:='未知';
end
else
if Logo='潇湘圣域(44区)' then begin
 if (y>225) and (y<267) then result:='湘江(湖南)' else
 if (y>267) and (y<309) then result:='洞庭(湖南)' else
 if (y>309) and (y<351) then result:='衡山(湖南)' else
 if (y>351) and (y<393) then result:='武陵(湖南)' else result:='未知';
end
else
if Logo='西部圣域V(45区)' then begin
 if (y>225) and (y<267) then result:='玄冰(成都)' else
 if (y>267) and (y<309) then result:='天罡(成都)' else
 if (y>309) and (y<351) then result:='黔灵(贵阳)' else
 if (y>351) and (y<393) then result:='花溪(贵阳)' else result:='未知';
end
else
if Logo='逐鹿中原(46区)' then begin
 if (y>141) and (y<183) then result:='英雄(郑州)' else
 if (y>183) and (y<225) then result:='天煞(郑州)' else
 if (y>225) and (y<267) then result:='卧龙(焦作)' else
 if (y>267) and (y<309) then result:='凤雏(焦作)' else
 if (y>309) and (y<351) then result:='纵横(上海)' else
 if (y>351) and (y<393) then result:='轩辕(三门峡)' else
 if (y>393) and (y<435) then result:='战神(上海)' else
 if (y>435) and (y<477) then result:='悬风(上海)' else result:='未知';
end
else
if Logo='西部圣域VI(47区)' then begin
 if (y>141) and (y<183) then result:='锦州(绵阳)' else
 if (y>183) and (y<225) then result:='佛都(乐山)' else
 if (y>225) and (y<267) then result:='竹海(宜宾)' else
 if (y>267) and (y<309) then result:='酒城(泸州)' else
 if (y>309) and (y<351) then result:='果城(南充)' else
 if (y>351) and (y<393) then result:='甜城(内江)' else
 if (y>393) and (y<435) then result:='雨城(雅安)' else
 if (y>435) and (y<477) then result:='阳光(资阳)' else result:='未知';
end
else
if Logo='网通宽带IV(48区)' then begin
 if (y>183) and (y<225) then result:='星海二(大连)' else
 if (y>225) and (y<267) then result:='千山一(鞍山)' else
 if (y>267) and (y<309) then result:='千山二(辽阳)' else
 if (y>309) and (y<351) then result:='盛京一(沈阳)' else
 if (y>351) and (y<393) then result:='盛京二(沈阳)' else
 if (y>393) and (y<435) then result:='淮扬(江苏)' else result:='未知';
end
else
if Logo='广电星空II(49区)' then begin
 if (y>246) and (y<288) then result:='凤凰(唐山)' else
 if (y>288) and (y<330) then result:='津沽(天津)' else
 if (y>330) and (y<372) then result:='津沽二(天津)' else result:='未知';
end
else
if Logo='天津宽带(50区)' then begin
 if (y>225) and (y<267) then result:='无名(天津)' else
 if (y>267) and (y<309) then result:='长空(天津)' else
 if (y>309) and (y<351) then result:='残剑(天津)' else
 if (y>351) and (y<393) then result:='飞雪(天津)' else result:='未知';
end
else
if Logo='吉林通信专区(51区)' then begin
 if (y>225) and (y<267) then result:='神舟(长春)' else
 if (y>267) and (y<309) then result:='雾淞(长春)' else
 if (y>309) and (y<351) then result:='九州(上海)' else
 if (y>351) and (y<393) then result:='天下(上海)' else result:='未知';
end
else
if Logo='浙江电信专区(52区)' then begin
 if (y>225) and (y<267) then result:='西湖(杭州)' else
 if (y>267) and (y<309) then result:='西塘(杭州)' else
 if (y>309) and (y<351) then result:='鉴湖(杭州)' else
 if (y>351) and (y<393) then result:='双龙(杭州)' else result:='未知';
end
else result:='未知(区域)';
End;

function EncodeBASE64(Encoded: TMemoryStream ; Decoded: TMemoryStream): Integer;
const
    _Code64: String[64] =
        ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/');
var
    I: LongInt;
    B: array[0..2279] of Byte;
    J, K, L, M, Quads: Integer;
    Stream: string[76];
    EncLine: String;
begin
    Encoded.Clear;
    Stream := '';
    Quads := 0;
    {为提高效率，每2280字节流为一组进行编码}
    J := Decoded.Size div 2280;
    Decoded.Position := 0;
    {对前J*2280个字节流进行编码}
    for I := 1 to J do
    begin
        Decoded.Read(B, 2280);
        for M := 0 to 39 do
        begin
            for K := 0 to 18 do
            begin
                L:= 57*M + 3*K;
                Stream[Quads+1] := _Code64[(B[L] div 4)+1];
                Stream[Quads+2] := _Code64[(B[L] mod 4)*16 + (B[L+1] div 16)+1];
                Stream[Quads+3] := _Code64[(B[L+1] mod 16)*4 + (B[L+2] div 64)+1];
                Stream[Quads+4] := _Code64[B[L+2] mod 64+1];
                Inc(Quads, 4);
                if Quads = 76 then
                begin
                    Stream[0] := #76;
                    EncLine := Stream+#13#10;
                    Encoded.Write(EncLine[1], Length(EncLine));
                    Quads := 0;
                end;
            end;
        end;
    end;

    {对以2280为模的余数字节流进行编码}
    J := (Decoded.Size mod 2280) div 3;
    for I := 1 to J do
    begin
        Decoded.Read(B, 3);
        Stream[Quads+1] := _Code64[(B[0] div 4)+1];
        Stream[Quads+2] := _Code64[(B[0] mod 4)*16 + (B[1] div 16)+1];
        Stream[Quads+3] := _Code64[(B[1] mod 16)*4 + (B[2] div 64)+1];
        Stream[Quads+4] := _Code64[B[2] mod 64+1];
        Inc(Quads, 4);
        {每行76个字符}
        if Quads = 76 then
        begin
            Stream[0] := #76;
            EncLine := Stream+#13#10;
            Encoded.Write(EncLine[1], Length(EncLine));
            Quads := 0;
        end;
    end;
    {“=”补位}
    if (Decoded.Size mod 3) = 2 then
    begin
        Decoded.Read(B, 2);
        Stream[Quads+1] := _Code64[(B[0] div 4)+1];
        Stream[Quads+2] := _Code64[(B[0] mod 4)*16 + (B[1] div 16)+1];
        Stream[Quads+3] := _Code64[(B[1] mod 16)*4 + 1];
        Stream[Quads+4] := '=';
        Inc(Quads, 4);
    end;

    if (Decoded.Size mod 3) = 1 then
    begin
        Decoded.Read(B, 1);
        Stream[Quads+1] := _Code64[(B[0] div 4)+1];
        Stream[Quads+2] := _Code64[(B[0] mod 4)*16 + 1];
        Stream[Quads+3] := '=';
        Stream[Quads+4] := '=';
        Inc(Quads, 4);
    end;

    Stream[0] := Chr(Quads);
    if Quads > 0 then
    begin
        EncLine := Stream+#13#10;
        Encoded.Write(EncLine[1], Length(EncLine));
    end;

    Result := Encoded.Size;
end;

{对参数Decoded字符串进行Base64编码，返回编码后的字符串}
function EncodeString(Decoded:string):String;
var
    mmTemp,mmDecoded:TMemoryStream;
    strTemp:TStrings;
begin
    mmTemp := TMemoryStream.Create;
    mmDecoded:=TMemoryStream.Create;
    strTemp:=TStringList.Create;
    strTemp.Add(Decoded);
    strTemp.SaveToStream(mmTemp);
    mmTemp.Position := 0;
    {剔除mmTemp从strTemp中带来的字符#13#10}
    mmDecoded.CopyFrom(mmTemp,mmTemp.Size-2);
    {对mmDecoded进行Base64编码，由mmTemp返回编码后的结果}
    EncodeBASE64(mmTemp,mmDecoded);
    {获得Base64编码后的字符串}
    mmTemp.Position:=0;
    strTemp.LoadFromStream(mmTemp);
    {返回结果必须从strTemp[0]中获得，如果使用strTemp.Text会
    带来不必要的字符#13#10}
    Result:=strTemp[0];
end;

end.