Merhaba, fantezi fikirlere devam olarak çok ufak ve basit bir şekilde web server denemesi yaptım. Uzun süredir socklisten bir web sayfasından php socketlerle mIRC'e data gönderilip bunu işleyip cevap göndermesi şeklinde kullanılıyordu. Diğer programlama dillerinde bir web socket server oluşturulması dikkatimi çekti ve mIRC'te böyle bir şey deneyeyim dedim. Mantık basit olarak, mIRC'te istediğimiz bir portu dinleyip, HTTP 1.1 protokolü üzerinden geri cevap gönderimine dayanıyor. İlerde belki birileri bundan esinlenerek farklı şeyler yapabilir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias sckdeneme { socklisten $+(r,$r(1,9999)) 2025 }
on *:socklisteN:r*: sockaccept $+(q,$r(1,999))
on *:sockread:q*: {
sockread %s | tokenize 32 %s
echo -a %s
if $regex($1-,/Get.+HTTP\/1\.1/i) {
datagonder $sockname
if $len($2) = 1 { anasayfa $sockname }
}
}
alias datagonder {
sockwrite -n $1 HTTP/1.0 200 Ok \n\r
sockwrite -n $1 Connection: Keep-Alive
sockwrite -n $1 Content-Type: text/html; charset=UTF-8
sockwrite -n $1 Vary: Accept-Encoding
sockwrite -n $1 Date: Sat, 20 Mar 2021 21:18:26 GMT
sockwrite -n $1 $crlf $crlf
}
alias anasayfa {
var %k $lines(index.sulh),%l 1
while %l <= %k {
sockwrite -n $1 $read(index.sulh,%l)
inc %l
}
sockwrite -n $1 $crlf
sockclose $1
}
Dizinde bulunan index.sulh içeriği:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
<!DOCTYPE html>
<html>
<head><title>Basit Web Server Denemesi</title></head>
<body bgcolor="black">
<center><font size="15px" color="white">Bu bir denemedir.</font></center>
</body>
</html>
Görüntü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]