Jan 8, 2013 02:13 PM (This post was last modified: Feb 11, 2013 05:40 AM by Gr0wlit.)
Hi all, today i present my last software:
SCRIBD DOWNLOADER
[img]http://i5.minus.com/i15aJXGlxKhZi.png[/img]
WHAT IS SCRIBD.COM
Scribd.com is "The World’s Largest Online Library.". Here you can find tons of .pdf for all languages. To download from Scribd.com, you must pay (amount 9$/monthly).
WHAT IS SCRIBD DOWNLOADER
Today, with my software, you can download easily and fastly from scribd.com, by a simple trick i (and many other people i think) have discovered. If you are going to write that it doesn't work, well, study the source and fix it.
(Jan 8, 2013 02:16 PM)PUSHX Wrote: Dim WEBCLIENT = New WebClient()
WEBCLIENT.DownloadFile("URL", "C:\")
What is the plus of your software ?
What is the plus to you posting, you clearly are clueless on this topic, save yourself some time, and possibly some embarrassment and close your account (if that's possible).
(Jan 8, 2013 05:52 PM)EpiCode Wrote: OK so you said their is a "trick" as i quote you.. but all i see in the source is Login details.... User and Password...
So i ask what is the trick?? Correct login details?? lmfao ..
(Jan 8, 2013 05:53 PM)TrackPro+ Wrote: Look at the source clearly and sdfu. 😠
hmmm...i did, but just to shut you up i did look again.. I even changed the pass and username... and guess what failed..
Code
Sub login()
Dim Username = "someuser" ' "Gigiunzo"
Dim Password = "somepass" ' "leccaculo"
Dim token As String = GetBetween((New WebClient().DownloadString("http://scribd.com")), "<meta name=""csrf-token"" content=", "/>", 0).Split(Chr(34))(1)
Dim postData As String = "authenticity_token=" & token & "&login_params%5Bnext_url%5D=http%3A%2F%2Fwww.scribd.com%2F&login_params%5Bcontext%5D=join2&login_or_email=" & Username & "&login_password=" & Password
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://www.scribd.com/login"), HttpWebRequest)
postReq.Method = "POST"
postReq.KeepAlive = True
postReq.CookieContainer = logincookie
postReq.ContentType = "application/x-www-form-urlencoded"
postReq.Referer = "http://www.scribd.com/login"
postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
postReq.ContentLength = byteData.Length
Dim postreqstream As Stream = postReq.GetRequestStream()
postreqstream.Write(byteData, 0, byteData.Length)
postreqstream.Close()
Dim postresponse As HttpWebResponse
postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
logincookie.Add(postresponse.Cookies)
Button1.Invoke(New MethodInvoker(Sub() Button1.Enabled = True))
End Sub
I have no use for it but I just wanted to make a suggestion. Instead of pasting in 1 url into the UI you should allow the user to either a) browse a text file full of urls or b) have a multi line text box to paste in urls which the bot will download for you 1 by 1.
cuz for example if I wanted to download 15 files it would be kinda slow.
Thanks for the tool. I have tried to download couple of pdf files and I am keep on getting message, that this is not a valid PDF when opening with Adobe Reader.
(Jan 8, 2013 07:19 PM)electronZ Wrote: I have no use for it but I just wanted to make a suggestion. Instead of pasting in 1 url into the UI you should allow the user to either a) browse a text file full of urls or b) have a multi line text box to paste in urls which the bot will download for you 1 by 1.
cuz for example if I wanted to download 15 files it would be kinda slow.
just my 2c.
I dont see why that is needed since he has already provided us with the basic, and the most important functions. If you'd like your program to do that, it's not hard at all to make yourself and just add to this existing source.
(Jan 8, 2013 06:01 PM)EpiCode Wrote: hmmm...i did, but just to shut you up i did look again.. I even changed the pass and username... and guess what failed..
Code
Sub login()
Dim Username = "someuser" ' "Gigiunzo"
Dim Password = "somepass" ' "leccaculo"
Dim token As String = GetBetween((New WebClient().DownloadString("http://scribd.com")), "<meta name=""csrf-token"" content=", "/>", 0).Split(Chr(34))(1)
Dim postData As String = "authenticity_token=" & token & "&login_params%5Bnext_url%5D=http%3A%2F%2Fwww.scribd.com%2F&login_params%5Bcontext%5D=join2&login_or_email=" & Username & "&login_password=" & Password
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://www.scribd.com/login"), HttpWebRequest)
postReq.Method = "POST"
postReq.KeepAlive = True
postReq.CookieContainer = logincookie
postReq.ContentType = "application/x-www-form-urlencoded"
postReq.Referer = "http://www.scribd.com/login"
postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
postReq.ContentLength = byteData.Length
Dim postreqstream As Stream = postReq.GetRequestStream()
postreqstream.Write(byteData, 0, byteData.Length)
postreqstream.Close()
Dim postresponse As HttpWebResponse
postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
logincookie.Add(postresponse.Cookies)
Button1.Invoke(New MethodInvoker(Sub() Button1.Enabled = True))
End Sub
So as you say...
Look at the source clearly and sdfu. 😠
You're a dumb ass, provided half of the source. Provide all of it and then talk shit.
(Jan 8, 2013 07:36 PM)Kingstaa Wrote: Thanks for the tool. I have tried to download couple of pdf files and I am keep on getting message, that this is not a valid PDF when opening with Adobe Reader.
Yep, I have got the same problem.
PDF file is not readable. 😟
![[Image: IMG-6011.png]](https://i.postimg.cc/k5fyhYts/IMG-6011.png)