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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Şifreyi Siteden Aldirma (https://www.ircforumlari.net/mirc-scripting-sorunlari/10386-sifreyi-siteden-aldirma.html)

djiNn 08 Ocak 2006 18:12

Şifreyi Siteden Aldirma
 
if (%acilis <= 1) { /set %sifregirdi $$?="Şifreyi Giriniz.." }
if (%acilis <= 1) && (%pLusOn == %sifregirdi) { falan filan yaptir



şimdi buradaki %pLusOn Deişkenindeki şifreyi bir sitedeki txt ye koysam.. oradan nasıl aldirabilirim acaba ..

Alience 08 Ocak 2006 18:19

ascii ve binary şeklinde 2 si içinde forumda kod mevcut arama fonksiyonunu kullanalım.

djiNn 08 Ocak 2006 22:00

on *:sockopen:ircforumlari:{
sockwrite -n $sockname GET /getdirsifreyi.txt HTTP/1.1
sockwrite -n $sockname Host: blue_eye_child.sitemynet.com $+ $crlf $+ $crlf
}
on *:sockread:ircforumlari:{
if ($sockerr) {
echo 4 -st Hata. | halt
}
else {
var %temptext
sockread %temptext
if (*a* iswm %temptext) { echo 4 -st 03 %temptext }
}
}
alias htmlfree { %temptext }



buradaki txt dosyanin içindeki sifreye ulasamiyorum ??? nasıl ulaşabilirim ?

Kablosuz NET 08 Ocak 2006 22:14

Alıntı:

Alience Nickli Üyeden Alıntı
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
kolay gelsin.


Arkadaşlar forumda arama yapsanız bulcaksınız bakın arkadaş daha birkaç başlık önce vermişti zaten..

djiNn 08 Ocak 2006 22:34

Üstad Verildiğini biliyorumda Ben Kendime Uyarlamıştım Bi Onceki Postumdaki olay Oydu ben Onu Nasıl Düzeltebilirim.. Bana Istediğim bilgiyi Vermiyor ?

Kablosuz NET 08 Ocak 2006 22:43

mircde variables bölümüne %temptex diye bi değişken oluşturur oraya kaydeder.

djiNn 08 Ocak 2006 22:52

ah be abicim hepsine bakiyorum yannız senin koddan önemli olan benim vermiş oldugum iLk Code ben bu codeyi ellet in yapmış oldugu codenin yardimiyla kendime uyarlamaya çalıştım ama olmadı..


on *:sockopen:ircforumlari:{
sockwrite -n $sockname GET /getdirsifreyi.txt HTTP/1.1
sockwrite -n $sockname Host: blue_eye_child.sitemynet.com $+ $crlf $+ $crlf
}
on *:sockread:ircforumlari:{
if ($sockerr) {
echo 4 -st Hata. | halt
}
else {
var %temptext
sockread %temptext
if (*a* iswm %temptext) { echo 4 -st 03 %temptext }
}
}
alias htmlfree { %temptext }



Eger Yardim Edece Birisi Varsa Cok MakbuLe Gecer..

djiNn 10 Ocak 2006 01:44

ya arkadaşlar allah aşkına ya getdirsifreyi.txt nin içindeki bilgiyi nasıL aLabiLirim ?..

Alience 10 Ocak 2006 09:31

yukarıda Ask_Harfleri verdiği benim yazmış olduğum kodda ufak değişiklikler yaparak sorununu çözebilirsin:
Kod:

alias sohbetlere {
  if $sock(sohbetlere) { sockclose sohbetlere }
  sockopen sohbetlere blue_eye_child.sitemynet.com 80
}

on *:sockopen:sohbetlere: {
  sockwrite -n $sockname GET /getdirsifreyi.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: blue_eye_child.sitemynet.com $crlf
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:sockread:sohbetlere: {
  if $sockerr { return }
  sockread &getbin
  if $crlf !isin $bvar(&getbin,1,1024).text { set %temptex $v2 }
}

kodu çalıştırmak için /sohbetlere yazman yeterli, senin istediğin şifreyi %temptex'te tutucak. ayrıca daha önce isteyen arkadaşa da sordum sanada sorayım ne diye bin olarak upload edersinizki şu dosyayı?

djiNn 10 Ocak 2006 13:58

alias sohbetlere {
if $sock(sohbetlere) { sockclose sohbetlere }
sockopen sohbetlere blue_eye_child.sitemynet.com 80
}
on *:sockopen:sohbetlere: {
sockwrite -n $sockname GET /getdirsifreyi.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: blue_eye_child.sitemynet.com $crlf
sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:sockread:sohbetlere: {
if $sockerr { return }
sockread &getbin
if ($crlf !isin $bvar(&getbin,1,1024).text) { set %temptex $v2 | echo -a %temptex }
}



Abicim Allah Razı olsun Uğraşıyonuz Ama işhte benim sorunumda O bak siz biLe aldirtamadınız.. hatta kırmızı yeri Alience nin koduna emin olmak için ekledim ama sonuç Negatif


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] girin bide kendiniz bakın

ekolaybaslangic2548keneoldumb4emavi yazili şifreyi almak ama Alana KAdar Daha qimbiLir neLer oLacak beLLi deil Tekrardan Herşey Için TeşekkürLer.. ;scare ;scare

Alience 10 Ocak 2006 14:04

- ekolaybaslangic2548keneoldumb4e
gayet güzel çalışıyor zaten çalışmasa kodu buraya niye yazıyım? ve denemesem denemedim diye belirtirim ;oki

djiNn 10 Ocak 2006 14:25

Üstad Aha Senin Kodu Kendime Uyarladım Hem Tag Olayindan Kurtulsun Hemde Biraz Cawliyim ışi Diye ama Gene VariabLede biRŞey yoK ;huh

alias bLue {
if $sock(bLue) { sockclose bLue }
sockopen bLue blue_eye_child.sitemynet.com 80
}

on *:sockopen:bLue:{
sockwrite -n $sockname GET /getdirsifreyi.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)
sockwrite -n $sockname Accept: */* $crlf
sockwrite -n $sockname Accept-Encoding: gzip, deflate $crlf
sockwrite -n $sockname Host: blue_eye_child.sitemynet.com $crlf
sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}

on *:sockread:bLue:{
if $sockerr { return }
sockread &getbin
if $crlf !isin $bvar(&getbin,1,1024).text { set %temptir $v2 }
}


Buyur Üstad Hatam Nerede Çalışmıyor ddd.txt Dosyasına Atiyorum load ediyorum buraya kadar Sorun Varmı ?..

Alience 10 Ocak 2006 14:33

oda gayet güzel çalışıyor :D aşağıdaki kodu remoteye kopyalayıp cıkan yazıları pastele bir.

alias bLue {
if $sock(bLue) { sockclose bLue | echo : 1 }
sockopen bLue blue_eye_child.sitemynet.com 80
echo : 2
}
on *:sockopen:bLue:{
echo : 3
sockwrite -n $sockname GET /getdirsifreyi.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)
sockwrite -n $sockname Accept: */* $crlf
sockwrite -n $sockname Accept-Encoding: gzip, deflate $crlf
sockwrite -n $sockname Host: blue_eye_child.sitemynet.com $crlf
sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
echo : 4
}
on *:sockread:bLue:{
if $sockerr { return | echo : 5 }
sockread &getbin
echo : 6
if $crlf !isin $bvar(&getbin,1,1024).text { set %temptir $v2 | echo : 7 }
}

djiNn 10 Ocak 2006 14:39

: 1
: 2
: 3
: 4
: 6
: 6
: 7

7 ye kadar cıkıyor tamam sonuna kadar çalışıyor ama Variable ye biLgi geLmiyor ? ;scare

Alience 10 Ocak 2006 14:47

alias bLue {
if $sock(bLue) { sockclose bLue }
sockopen bLue blue_eye_child.sitemynet.com 80
}
on *:sockopen:bLue:{
sockwrite -n $sockname GET /getdirsifreyi.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)
sockwrite -n $sockname Accept: */* $crlf
sockwrite -n $sockname Accept-Encoding: gzip, deflate $crlf
sockwrite -n $sockname Host: blue_eye_child.sitemynet.com $crlf
sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:sockread:bLue:{
if $sockerr { return }
sockread &getbin
echo : $bvar(&getbin,1,4096).text
}


şunu yazıp dene çıkan yazıyı pastele

djiNn 10 Ocak 2006 14:52

Üstad Bunlar cıktı

: HTTP/1.1 200 OK
Server: Microsoft-IIS/5.0
Cache-Control: max-age=2592000
Expires: Thu, 09 Feb 2006 12:46:20 GMT
Date: Tue, 10 Jan 2006 12:46:20 GMT
Content-Type: text/plain
Accept-Ranges: bytes
Last-Modified: Sun, 08 Jan 2006 16:59:40 GMT
ETag: "0a6ece97414c61:e99"
Content-Length: 31

: ekolaybaslangic2548keneoldumb4e


:) en sonunda ulaştım ama dierleri nie geldi onu annamadım :D

Alience 10 Ocak 2006 14:57

başından beri çalışıyorduki zaten :D sadece ayrılmamış halini gosterdim sana ve 1024 byte değilde 4 katını okuttum gerçi farketmiyor o bu durumda. $bvar(&getbin,1,4096).text değişkenini ayırmak sana kalıyor kolay gelsin :D.

not: diğerleri dediğin http/1.1 protokolune göre gönderilen header ;oki

djiNn 10 Ocak 2006 15:03

demekki bnm pc 4 kerede anliyor :D

djiNn 11 Ocak 2006 11:55

sheyy BAska BasLik Açamadan Soriyim Dedm

on *:sockread:bLue:{
if $sockerr { return }
sockread &getbin
echo : $bvar(&getbin,1,4096).text
}


Buradaki Getbin Nedir ? anlatımları okudum Ama Buradaki Codeyi cozemedim ?

el33t 11 Ocak 2006 12:33

&getbin aldı binary'ye sockettan gelen bilgiyi kaydediyor. sockread %getbin olsaydı %getbin aldı variable'a yani değişkene kaydetmiş olacaktık ama sen dosyayı ascii değilde binary şeklinde yüklediğin için &getbin kullanıldı.

djiNn 11 Ocak 2006 12:39

heh bunu ascii nasıl yapariz beLkide O şekilde Başarabilirim Istedğim Şeyi :) ?

djiNn 11 Ocak 2006 23:48

Gene Ayazda Kaldık..

djiNn 12 Ocak 2006 10:37

Ascii şeklinde Nasıl Olur
 
Not : P.M mim Dikkate Alınmadığı için bu Başliği AÇTIM !

alias bLue {
if $sock(bLue) { sockclose bLue }
sockopen bLue blue_eye_child.sitemynet.com 80
}
on *:sockopen:bLue:{
sockwrite -n $sockname GET /removeblack.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)
sockwrite -n $sockname Accept: */* $crlf
sockwrite -n $sockname Accept-Encoding: gzip, deflate $crlf
sockwrite -n $sockname Host: blue_eye_child.sitemynet.com $crlf
sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:sockread:bLue:{
if $sockerr { return }
sockread &getbin
echo : $bvar(&getbin,1,4096).text
}


Arkadaşlar Kime sorduysam Ascii Şeklinde Yapsaydin Daha Iyi Olurdu diyoR ama HaLa anlamadım Nasıl bir ascii bu ? Bu Konuda Yardim Edebilirmisiniz

Alience 12 Ocak 2006 11:07

siteye upload ederken dosyayı ascii olarak upload etmen demek, buda kullandığın ftp programına göre değişir.

ayrıca:
on *:sockread:bLue:{
if $sockerr { return }
sockread %gettext
echo : %gettext
}
olarak değiştirmen demek konu daha önceki konun ile birleştirilmiştir.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:55.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net