Aporte: Descargar videos de Youtube

[bebo]

Les dejo un codigo muy bueno para descargar videos de youtube:

Código ASP:

<%
function reemplazar(que)
que=replace(que,"%7C","|")
que=replace(que,"%3A",":")
que=replace(que,"%2F","/")
que=replace(que,"%3F","?")
que=replace(que,"%3D","=")
que=replace(que,"%26","&")
que=replace(que,"%25","%")
que=replace(que,"%2C",",")
reemplazar=que
end function
 
Class video_youtube
Public titulo
Public ruta_video1
Public ruta_video2
Public ruta_normal
 
sub descargar(ruta_v)
on error resume next
set ajax=Server.CreateObject("Microsoft.XMLHttp")
ajax.open "GET",ruta_v,false
ajax.send
texto=ajax.responseText
texto=split(texto,chr(10))
for i=103 to 120
redim preserve t(i-102)
t(i-102)=texto(i)
next
url_tmp=join(t,vbcrlf)
url_tmp=replace(url_tmp,"       yt.setMsg({","")
url_tmp=replace(url_tmp,"           'LOADING': 'Cargando...',"&vbcrlf&_
"           'FLAG_DEFAULT': ""Seleccionar un motivo"""&vbcrlf&_
"       });"&vbcrlf&vbcrlf&_
"       yt.setConfig({","")
url_tmp=right(url_tmp,len(url_tmp)-8)
url_tmp=split(url_tmp,vbcrlf)
titulo=replace(url_tmp(1),"'VIDEO_TITLE': '","")
titulo=replace(left(titulo,len(titulo)-2)," ","")
ruta=replace(url_tmp(4),"   ","")
ruta=replace(ruta,"'SWF_ARGS': {""","")
ruta=split(ruta,"""fmt_url_map""")
ruta(1)=right(ruta(1),len(ruta(1))-3)
ruta(1)=reemplazar(ruta(1))
url=split(ruta(1),"|")
ruta_video2=url(2)
ruta_video2_=split(ruta_video2,",")
for i=0 to ubound(ruta_video2_)-1
r2=r2&ruta_video2_(i)&","
next
ruta_video2=left(r2,len(r2)-1)
ruta_=trim(url(1))
ruta_=split(ruta_,",")
for i=0 to ubound(ruta_)-1
ruta_video=ruta_video&ruta_(i)&","
next
ruta_video1=left(ruta_video,len(ruta_video)-1)
r_1=split(ruta_video1,chr(34))
r_2=split(ruta_video2,chr(34))
ruta_video1=r_1(0)
ruta_video2=r_2(0)
if err.description<>"" then
response.write "Hubo un error al bajar el video. Intente otra vez."
exit sub
end if
set ajax=nothing
id3=split(ruta_v,"/")
id2=replace(id3(3),"watch?v=","")
ruta_normal="http://www.youtube.com/v/"&id2&"&hl=es_MX&fs=1"
end sub
end class
%>
<%
If not request("descargar")="true" then
%>
<form action="?descargar=true" method=post>
Escriba la URL del video: <input type=text name=url size=50><br>
<input type=submit value="Descargar video"></form>
<%
else
set video=new video_youtube
video.descargar request("url")
%>
Se descargará el video <b><%=video.titulo%></b><br>
Para descargar el video, elija uno de los dos enlaces:
<ol>
<li><a href="<%=video.ruta_video1%>">Enlace 1</a>
<li><a href="<%=video.ruta_video2%>">Enlace 2</a>
</ol><br><center>
<%%>
<object width="425" height="344"><param name="movie" value="<%=video.ruta_normal%>"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="<%=video.ruta_normal%>" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="425" height="344"></embed></object>
<%end if%>