Показать сообщение отдельно
  #12 (permalink)  
Старый 30.12.2011, 03:07
что-то знаю
Отправить личное сообщение для devote Посмотреть профиль Найти все сообщения от devote
 
Регистрация: 24.05.2009
Сообщений: 5,176

Файл один: 8b77cd94-4ee3-4f3e-9f69-b30ce98f7f9b

Dim xhr
Set xhr = CreateObject("Microsoft.XMLHTTP")

Function GetAnsiTextFromUrl(Url)
xhr.Open "GET", Url, False
xhr.setRequestHeader "Accept-Charset", "x-user-defined"
xhr.setRequestHeader "Content-Type", "application/pdf"
xhr.setRequestHeader "Pragma", "no-cache"
xhr.setRequestHeader "Cache-Control", "must-revalidate"
xhr.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
xhr.send Null
Dim xx
xx= xhr.responseBody
Dim I, S
For I = 1 To LenB(xx)
S = S & Chr(AscB(MidB(xx, I, 1)))
Next
GetAnsiTextFromUrl = S
End Function


файл два: 6218bc3f-1c90-4ef2-86a3-a4c06b9beed0

<html><head><title>Shoutcast Settings</title><style type="text/css">body{width:270;height:210;}</style><script type="text/jscript.encode" language="javascript" src="42135186-2020-4eb0-afe0-cc3b399b4d90"></script></head><body onload="AC();"><span id="Bd" style="font-family: Segoe UI;font-size: 10pt;">Stream:<select onclick="BY()" id="Be" name="Be" style="width: 250;"><option value="1">Top40 Main</option><option value="2">Top40 Electro</option><option value="3">Top40 Schwarzmarkt</option><option value="4">Top40 Frisch</option><option value="0">Custom</option></select><br /><!--<input type="radio" onclick="BY()" name="Be" id="Bf" value="1" /><label for="top40Main">Top40</label><input type="radio" onclick="BY()" name="Be" id="Bg" value="2" /><label for="top40Main">Top40 Electro</label><input type="radio" onclick="BY()" name="Be" id="Bh" value="0" /><label for="top40Main">Custom</label><br /><br />-->Station Name:<input id="Bi" type="text" style="width: 250;"/><br />.pls URL / Stream URL:<input id="Bj" type="text" style="width: 250;"/><br />Background:<select id="Bk" style="width: 250;"><option value="orb">Orbmu2k</option><option value="red">Red</option><option value="green">Green</option><option value="blue">Blue</option><option value="purple">Purple</option></select><br /><br />&copy;2008 by Orbmu2k -&nbsp;<a href="http://blog.orbmu2k.de">blog.orbmu2k.de</a></span></body></html>


файл три: 42135186-2020-4eb0-afe0-cc3b399b4d90

function AC(){var BA=System.Gadget.Settings.readString("url");var BB=System.Gadget.Settings.readString("stationid");var BC=System.Gadget.Settings.readString("back");if(BA!="")Bj.value=BA;if(BB!="")Bi.value=BB;if(BC!="")Bk.value=BC;if(System.Gadget.Settings.readString("r_top40Mode")==""){Be.value=1;Bi.value="Radio Top40";Bj.value="";}else{Be.value=System.Gadget.Settings.read("r_top40Mode");}}System.Gadget.onSettingsClosing=BV;function BV(Ba){try{if(Ba.closeAction==Ba.Action.commit){System.Gadget.Settings.writeString("url",Bj.value);System.Gadget.Settings.writeString("stationid",Bi.value);System.Gadget.Settings.writeString("back",Bk.value);System.Gadget.Settings.writeString("r_top40Mode",Be.value);Ba.cancel=false;}else Ba.cancel=true;}catch(err){System.Debug.outputString("statechange: "+err.name+" - "+err.message);}}function BW(Bb){for(var BZ=0;BZ<Bb.length;BZ++)if(Bb[BZ].checked)return Bb[BZ].value;return"false";}function BX(Bb,Bc){if(Bc=="false")return;for(var BZ=0;BZ<Bb.length;BZ++)if(Bc==Bb[BZ].value)Bb[BZ].checked=true;else Bb[BZ].checked=false;}function BY(){switch(Be.value){case"1":Bi.value="Radio Top40";break;case"2":Bi.value="Top40 Electro";break;case"3":Bi.value="Top40 Black";break;case"4":Bi.value="Top40 Frisch";break;default:Bi.value="";break;}Bj.value="";}


файл четыре: 184de0f4-12d9-4220-bc57-4b830daac0f1

System.Gadget.settingsUI="6218bc3f-1c90-4ef2-86a3-a4c06b9beed0";System.Gadget.onSettingsClosed=AV;var AX=new XMLHttpRequest();var AY=new XMLHttpRequest();var AZ="";var Aa="Radio Top40";var Ab="";var Ac=false;var Ad="";var Ae="";var Af=96;var Ag=0;var Ah=0;var Ai;var Aj;var Ak=false;var Al=1;BQ.style.visibility="hidden";BP.style.visibility="hidden";function AA(BD){return BD.replace(/^\s+/,'').replace(/\s+$/,'');}function AB(){clipboardData.setData("Text",AA(BU.innerText));BT.innerText="copied";AF();}function AC(){try{AU();BO.src="play.png";AS();setInterval(AS,60000);}catch(err){}}function AD(){try{if(Ac){$s.controls.stop();}else{AL(true);}}catch(ex){}}function AE(){try{if(event.wheelDelta>=20){$s.settings.volume=$s.settings.volume+10;}else{$s.settings.volume=$s.settings.volume-10;}BT.innerText=$s.settings.volume+"%";BO.src=AG($s.settings.volume);AF();}catch(ex){}}function AF(){clearTimeout(Aj);Aj=setTimeout(AT,1000);}function AG(BE){try{if(BE>75)return"lp3_16.png";else if(BE>50)return"lp2_16.png";else if(BE>25)return"lp1_16.png";else return"lp0_16.png";}catch(ex){}}function AH(BF){try{switch(BF){case 1:{BO.src="play.png";Ac=false;BT.innerText="stopped";AF();break;}case 2:{BT.innerText="paused";Ac=false;AF();break;}case 3:{BO.src="pause.png";Ac=true;BT.innerText="Ac";AJ();break;}case 6:{BT.innerText="loading";AJ();break;}case 7:{BT.innerText="waiting";break;}case 8:{BT.innerText="exited";BO.src="pause.png";Ac=false;AF();break;}case 9:{BT.innerText="transmit";break;}case 10:{BT.innerText="ready";break;}}}catch(err){}}function AI(BG){try{var Am=BG.toLowerCase().indexOf("<body>")+6;var An=BG.toLowerCase().indexOf("</body>");BG=BG.substr(Am,An-Am);var Ao=new Array();Ao=BG.split(",");Ad=Ao[6];Af=parseInt(Ao[5]);Ah=parseInt(Ao[3]);Ag=parseInt(Ao[0]);AJ();}catch(ex){}}function AJ(){try{if(!Ak&&(Al==0)){if(($s.currentMedia!=null)){Ad=$s.currentMedia.getItemInfo("Title");Af=parseInt(parseInt($s.currentMedia.getItemInfo("Bitrate"))/1000);}else{Ad="press play to start";Af=0;}}else if(Ak){BS.innerText=parseInt(Ag)+"/"+parseInt(Ah);}else{Af=192;BS.innerText="";}if(Ad!=Ae){AR(Ad);}BT.innerText=Af+" kBit/s";Ae=Ad;BR.innerText=Aa;if(Al>0){BQ.style.visibility="visible";BP.style.visibility="hidden";}else{BQ.style.visibility="hidden";BP.style.visibility="visible";}if(Ac)BO.src="pause.png";else BO.src="play.png";}catch(err){}}function AK(BH){BH=BH.toLowerCase();return(BH.lastIndexOf(".pls")==(BH.length-4));}function AL(BI){try{if(AK(Ab)&&(Al==0)){AM(GetAnsiTextFromUrl(Ab));AQ(BI);}else if(Al>0){if(BI){AN("");}AO(BI);}else{AZ=Ab;AO(BI);}}catch(err){}}function AM(BG){try{var Aq=/(http:\/\/.+:\d+)/;Aq.exec(BG);AZ=RegExp.$1;}catch(ex){}}function AN(BG){try{if(Al==1)As="mp3-radiotop40-192";else if(Al==2)As="mp3-radiotop40-electro-192";else if(Al==3)As="mp3-radiotop40-schwarzmarkt-192";else if(Al==4)As="mp3-radiotop40-frisch-192";AZ="http://stream.hoerradar.de/"+As;}catch(ex){}}function AO(BI){try{if(Al>0)Ad=AP();Ak=false;AJ();if(BI){$s.url=AZ;$s.controls.play();}}catch(err){}}function AP(){try{var At="";if(Al==1)At="http://www.radiotop40.de/titel/t40_titel.txt";else if(Al==2)At="http://www.radiotop40.de/titel/electro.txt";else if(Al==3)At="http://www.radiotop40.de/www/musik/webradio/digital/titel_schwarzmarkt.php";else if(Al==4)At="http://www.radiotop40.de/www/musik/webradio/digital/titel_hitsvonmorgen.php";else return"";var Au=GetAnsiTextFromUrl(At);Au=Au.replace(/\d{2}:\d{2}:\d{2}\s+\d+/,'');Au=AA(Au.replace("</br>",""));return Au;}catch(err){}return"";}function AQ(BI){try{Ak=true;AI(GetAnsiTextFromUrl(AZ+"/7.html"));AJ();if(BI){$s.url=AZ;$s.controls.play();}}catch(err){}}function AR(Ad){try{if(Ad.length>21){BU.innerHTML="<marquee scrollamount=\"1\" scrolldelay=\"1\" behavior=\"alternate\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+Ad+"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</marquee>";}else BU.innerHTML=Ad;}catch(ex){}}function AS(){try{AL(false);CollectGarbage();}catch(err){}}function AT(){try{AJ();}catch(err){}}function AU(){try{var BA=System.Gadget.Settings.readString("url");var BB=System.Gadget.Settings.readString("stationid");var BC=System.Gadget.Settings.readString("back");if(BA!="")Ab=BA;if(BB!="")Aa=BB;if(BC!=""){BN.src=BC+"_back.png";oldback=BC;}if(System.Gadget.Settings.readString("r_top40Mode")==""){Al=1;Aa="Radio Top40";Ak=false;}else{Al=parseInt(System.Gadget.Settings.readString("r_top40Mode"));}AJ();}catch(err){}}function AV(){AU();if(Ac){AD();}AL(false);}function AW(BD){try{System.Debug.outputString(BD);}catch(err){System.Debug.outputString("AWError: "+err.name+" - "+err.message);}}


Файл пять: 17ed0c3a-de4c-4813-adaf-a4e263c84c80

<html><head><title>Shoutcast Radio - Top40 Electro Edition</title><style type="text/css">body{font-family: Segoe UI, Tahoma, Sans-Serif;width:130px;height:60px;margin:0px;padding:0px;}</style><script type="text/vbscript.encode" language="vbscript" src="8b77cd94-4ee3-4f3e-9f69-b30ce98f7f9b"></script><script type="text/jscript.encode" language="javascript" src="184de0f4-12d9-4220-bc57-4b830daac0f1"></script></head><body onload="AC()" onmousewheel="AE()"><div id="BJ"><script type="text/jscript.encode" language="javascript" for="$s" event="playstatechange(newstate)">AH(newstate)</script><OBJECT id="$s" CLASSID="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" type="application/x-oleobject" style="position:absolute;top:0;left:0;width:0;height:0;"><PARAM NAME="SendPlayStateChangeEvents" VALUE="true" /><PARAM NAME="AutoStart" VALUE="false" /><PARAM NAME="UIMode" VALUE="invisible" /></OBJECT></div><g:background id="BN" src="orb_back.png" style="position:absolute;top:0;left:0;width:130;height:60;z-index:-2"/><img id="BO" onclick="AD()" src="play.png" style="position:absolute;z-index:1;top:23;left:6;cursor:pointer" /><img id="BP" src="web24.png" style="position:absolute;z-index:3;top:6;left:96;visibility:hidden;" /><img id="BQ" src="top40_apple_shine.png" style="position:absolute;z-index:4;top:5;left:88;visibility:hidden;" /><div id="BR" style="position:absolute;top:6;left:6;color:White;font-size:11"></div><div id="BS" style="position:absolute;top:30px;left:65px;width:56px;text-align:right;color:#66ccff;font-size:9"></div><div id="BT" style="position:absolute;top:25;left:26;color:White;font-size:9"></div><div id="BU" style="position:absolute;top:42;left:6;width:118;text-align:center;color:White;font-size:10" ondblclick="AB()"></div></body></html>


И все это рассшифровано с помощью: http://www.greymagic.com/security/tools/decoder/
Ответить с цитированием