katalog indirme hk.

Tarihe göre sırala Oylara göre sırala
zztri

zztri

Yaşayan Forum Efsanesi
9 Tem 2015
10,053
4
390
Ankara
Yahu hacker olacaksınız yaa.. İncelemeyi bilin. F12'ye basın bakın, her sayfayı tek tek jpeg olarak çekiyor. Yeri de http://istanbulseyrusefa.com.tr/katalog/files/mobile/<sayfano>.jpg

Kataloğun sonuna kadar tıkladım, 60 sayfalı imiş.. Hemen açıyoruz, notepad.. Bunun için normal bir programlama dili kullanmak ayıp olur vbscript kullanacağız.

Kod: 
dim http
set http=createobject("Microsoft.XMLHTTP")
'http bağlantı objesi oluşturduk.
dim stream
'Kullanacağımız 'stream' objesi
for i=1 to 60
'1'den 60'a kadaaaar...
	http.Open "GET", "http://istanbulseyrusefa.com.tr/katalog/files/mobile/"&i&".jpg", False
	'Önce GET ile sayfayı çekecek isteği oluşturuyoruz.
	http.Send
	'İsteği gönderiyoruz
	set stream=createobject("Adodb.Stream")
	'Sıfırdan stream'i set ediyoruz
	with stream
	'Bu stream ile....
		.type=1
		'Tipi 1, yani binary, text değil..
		.open
		'Açıyoruz, boş stream hala
		.write http.responsebody
		'isteğimizin cevabına gelen binary veriyi (yani resmi) yazıyoruz
		.savetofile("d:\aa\"&i&".jpg")
		'D:\aa içine aynı isimde kaydediyoruz. Başka yere istersen bir burayı değiştir.
	end with
next

Bunu "<bilmemne>.vbs" diye kaydediyoruz. Bitti..
 
Oyla 0 Downvote
misteryomas

misteryomas

Katılımcı Üye
18 Ara 2008
307
0
zztri' Alıntı:
Yahu hacker olacaksınız yaa.. İncelemeyi bilin. F12'ye basın bakın, her sayfayı tek tek jpeg olarak çekiyor. Yeri de http://istanbulseyrusefa.com.tr/katalog/files/mobile/<sayfano>.jpg

Kataloğun sonuna kadar tıkladım, 60 sayfalı imiş.. Hemen açıyoruz, notepad.. Bunun için normal bir programlama dili kullanmak ayıp olur vbscript kullanacağız.

Kod: 
dim http
set http=createobject("Microsoft.XMLHTTP")
'http bağlantı objesi oluşturduk.
dim stream
'Kullanacağımız 'stream' objesi
for i=1 to 60
'1'den 60'a kadaaaar...
	http.Open "GET", "http://istanbulseyrusefa.com.tr/katalog/files/mobile/"&i&".jpg", False
	'Önce GET ile sayfayı çekecek isteği oluşturuyoruz.
	http.Send
	'İsteği gönderiyoruz
	set stream=createobject("Adodb.Stream")
	'Sıfırdan stream'i set ediyoruz
	with stream
	'Bu stream ile....
		.type=1
		'Tipi 1, yani binary, text değil..
		.open
		'Açıyoruz, boş stream hala
		.write http.responsebody
		'isteğimizin cevabına gelen binary veriyi (yani resmi) yazıyoruz
		.savetofile("d:\aa\"&i&".jpg")
		'D:\aa içine aynı isimde kaydediyoruz. Başka yere istersen bir burayı değiştir.
	end with
next

Bunu "<bilmemne>.vbs" diye kaydediyoruz. Bitti..
Genişletmek için tıkla ...


jpg kaliteleri okunmayacak kadar düşük geliyor sanırım.
 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.