IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Socket ile Bilgi okuma.. (https://www.ircforumlari.net/mirc-scripting-sorunlari/10257-socket-ile-bilgi-okuma.html)

Socket ile Bilgi okuma..

Arkadaşlar burda bi bölüm var inceledim ama yapamadım olmadı.. Sitemde bi TXT dosyasını okutmak ve ident yapmak istiyorum. Baya Uğraştım olmuyor socket bağlanıyor ama %temptext değişkenine kaydetmiyor...Yardımcı olurmusunuz ?

yazdıgın kodu ve txt dosyasının adresini yazarmısın.

Kod:

on *:sockopen:sohbetim:{

  sockwrite -n $sockname GET /index.php? HTTP/1.1

  ;Socket siteye bağlanınca /index.php?'ye gitmesini söylüyorum

  sockwrite -n $sockname Host: ircforumlari.net $+ $crlf $+ $crlf

  ;Ve tekrar hostu belirtiyorum.

}
 

on *:sockread:sohbetim:{

  ;Site sockopen'da belirttiğim adrese girdiğinde

  if ($sockerr) {

    ;Eğer socketta hata varsa

    echo 4 -st Hata. | halt

    ;Status'e Hata yazısını echoluyorum ve işlemleri durduruyorum

  }

  else {

    ;Her şey normalse devam ediyorum

    var %temptext 

    ;%temptext diye bir değişken (variable) oluşturuyorum.

    sockread %temptext 

    ;socketimin sitede yazanları %temptext'e yazmasını sağlıyorum

    if (*<div><a href="member.php?* iswm %temptext) { echo 4 -st 03Şu an ircforumlari.net'te12 $numtok($remove($htmlfree(%temptext),$chr(9)),44) 03kayıtlı kullanıcı online, nickleri:04 $remove($htmlfree(%temptext),$chr(9)) }

    ;Bunu aşağıda anlatacağım.

  }

Yukardaki Kodu Burdan Aldım Kendime Göre Düzenledim ama Olmuyor Bu Orjinali.

Kod:

alias htmlfree {
 
 

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

  return %x

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] burdan okutmak ve %temptext değişkenine kaydetmek istiyorum.

sorun dosyayı sitene upload ederken ascii olarak değilde binary olarak upload etmenden kaynaklanıyor. Ama yinede bu şekildeki dosyayı okutabilirsin

alias sohbetlere {
if $sock(sohbetlere) { sockclose sohbetlere }
sockopen sohbetlere [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}

on *:sockopen:sohbetlere: {
sockwrite -n $sockname GET /girissifre.txt HTTP/1.1 $crlf
sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) $crlf
sockwrite -n $sockname Accept: */* $crlf
sockwrite -n $sockname Accept-Encoding: gzip, deflate $crlf
sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $crlf
sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:sockread:sohbetlere: {
if $sockerr { return }
sockread &getbin
set %temptex $gettok($replace($bvar(&getbin,1,1024).text,$crlf $+ $crlf,$chr(3)),2,3)
}

komut için /sohbetlere yazman yeterli ve bin değişkeni 1 ile 1024 baytlar arasını okuyor yani senin header yaklaşık 357 byte, buda demek oluyorki şifreni kesinlikle 500 den yukarı cıkarma :D
kolay gelsin.

Çok Teşekkür ediyorum bu Benim Çok Hemde Çok İşime Yarıcak... ident Fullname giriş Şifresi ve Daha Bir Çok şeyde Kullanıcam Bunu :)