<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>Ломаем Letitbit</title>
<HTA:APPLICATION
APPLICATIONNAME="Letitbit URL converter"
SCROLL="no"
>
</head>
<script language="VBScript">
Sub Window_onLoad
window.resizeTo 600,330
End sub
</script>
<script language="JScript">
function getURL(){
var doc, fso, fo, rs;
newURL.value = "";
try {
doc = new ActiveXObject("Microsoft.XMLHTTP");
doc.open("GET", oldURL.value, false);
doc.send();
rs = doc.responseText;
x1 = rs.indexOf("check_install");
if(x1>0){
x2 = rs.indexOf(")",x1+1);
rs = rs.substring(x1,x2);
x1 = rs.indexOf("'");
x2 = rs.indexOf("'",x1+1);
rs = rs.substring(x1+1,x2);
rez = new ActiveXObject("Microsoft.XMLHTTP");
rez.open("GET", rs, false);
rez.send();
rs = rez.responseText;
x1 = rs.indexOf("download5");
if(x1>0){
ss = rs.substring(0, x1);
x1 = ss.lastIndexOf("http");
x2 = rs.indexOf(">",x1);
rs = rs.substring(x1,x2-1);
newURL.value = rs.replace("download5","download3");
} else {newURL.value = "ошибка преобразования URL";}
} else {newURL.value = "ошибка преобразования URL";}
} catch(err) {newURL.value = "ошибка преобразования URL";}
}
</script>
<body>
<p>URL с Letitbit
<br><input name="oldURL" style="width:100%; border: 1px solid Navy;"></input>
</p>
<p><input onClick=getURL type="submit" value="convert URL" style="width:110px;"></input></p>
<p>URL для закачки
<br><input name="newURL" style="width:100%; border: 1px solid Navy;"></input>
</p>
</body>
</html>
дада. Именно самый обыкновенный блокнот. Открываем его.
25.12.2008 - 12:04
