IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - mIRC ile basit bir Web Server denemesi. (Socklisten kullanımı.)

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:

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:

<!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...]