IRCTELNET , Source N°14340

Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 25/07/2002 Date de mise à jour : 25/07/2002 22:45:47 Vu : 2 624

Auteur : Sverdlovsky

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

Client de connection sur serveur (usage expérimental) permettant de se connecter à des serveurs FTP, IRC, POP, SMTP...

Source

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Lancement par /irctelnet <host> <port> ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias irctelnet {
if (($1 == $null) && ($2 == $null)) {
set %server $?="Host ou adresse IP du serveur ?"
set %portserv $?="Port du serveur ?"
set %quidonc $?="Pseudo ?"
}
if (($1 != $null) && ($2 != $null)) {
set %server $1
set %portserv $2
set %quidonc $3
}
window -e @IRC | titlebar @IRC Session IRCTELNET : %server sur port %portserv
sockclose irctelnet*
sockopen irctelnet %server %portserv
}
on *:sockopen:irctelnet:{
if ($sockerr > 0) {
aline -ph 4 @IRC Connection impossible sur %server sur le port %portserv
return
}
else {
aline -ph 3 @IRC Connection établie avec %server sur le port %portserv
if (%portserv == 6667) {
sockwrite -n irctelnet USER Lycos U U : IrcTelnet
sockwrite -n irctelnet NICK %quidonc
if (%quidonc == $null) sockwrite -n irctelnet NICK IRCtelnet
}
}
}
on *:sockclose:irctelnet:{
aline -ph 4 @IRC Fermeture IRCTELNET sur %server sur le port %portserv
}
on *:sockread:irctelnet:{
if ($sockerr > 0) { return }
:rect
sockread %ircdata
if ($sockbr == 0) { return }
if (%ircdata != $null) {
aline -ph 1 @IRC %ircdata
if (%ircdata == PING :irc04.icq.com) { sockwrite -n irctelnet PONG :irc04.icq.com
aline -ph 9 @IRC PONG :irc04.icq.com }
if (%ircdata == PING : $+ %server) { sockwrite -n irctelnet PONG : $+ %server
aline -ph 9 @IRC PONG : $+ %server }
if (%server == 212.68.194.235) {
if (%ircdata == PING :infocenter.net) { sockwrite -n irctelnet PONG :infocenter.net
aline -ph 9 @IRC PONG :infocenter.net }
}
goto rect
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Lancement par /irctelnet <host> <port> ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias irctelnet {
  if (($1 == $null) && ($2 == $null)) {
    set %server $?="Host ou adresse IP du serveur ?"
    set %portserv $?="Port du serveur ?"
    set %quidonc $?="Pseudo ?"
  }
  if (($1 != $null) && ($2 != $null)) {
    set %server $1
    set %portserv $2
    set %quidonc $3
  }
  window -e @IRC | titlebar @IRC Session IRCTELNET : %server sur port %portserv
  sockclose irctelnet*
  sockopen irctelnet %server %portserv

}

on *:sockopen:irctelnet:{
  if ($sockerr > 0) { 
    aline -ph 4 @IRC Connection impossible sur %server sur le port %portserv
    return
  }
  else {
    aline -ph 3 @IRC Connection établie avec %server sur le port %portserv
    if (%portserv == 6667) {
      sockwrite -n irctelnet USER Lycos U U : IrcTelnet
      sockwrite -n irctelnet NICK %quidonc
      if (%quidonc == $null) sockwrite -n irctelnet NICK IRCtelnet
    }
  }
}

on *:sockclose:irctelnet:{
  aline -ph 4 @IRC Fermeture IRCTELNET sur %server sur le port %portserv
}

on *:sockread:irctelnet:{
  if ($sockerr > 0) { return }
  :rect
  sockread %ircdata
  if ($sockbr == 0) { return }
  if (%ircdata != $null) {
    aline -ph 1 @IRC %ircdata

    if (%ircdata == PING :irc04.icq.com) { sockwrite -n irctelnet PONG :irc04.icq.com 
    aline -ph 9 @IRC PONG :irc04.icq.com }


    if (%ircdata == PING : $+ %server) { sockwrite -n irctelnet PONG : $+ %server 
    aline -ph 9 @IRC PONG : $+ %server }
    if (%server == 212.68.194.235) {
      if (%ircdata == PING :infocenter.net) { sockwrite -n irctelnet PONG :infocenter.net 
      aline -ph 9 @IRC PONG :infocenter.net }
    }
    goto rect
  }

Conclusion

Ce code est assez pratique pour accéder à des serveurs sans quitter le client mIRC.
Une connection sur un port 6667 (irc) est instructive sur les commandes raw.
Exemple, pour exécuter LIST, vous taperez : /sockwrite -n irctelnet LIST
Idem pour les autres commandes.
Code instructif pour ceux qui débutent en sockets.

Sources du même auteur

Toutes les sources de Sverdlovsky

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Commentaires

Commentaire de pounard le 29/11/2002 02:51:16

ca c cool comme code, en tout cas très intéressant.... partique je sais pas, rien ne vaut un bon vieux telenet ou ssh traditionel (en plus le telnet c pas crypté, c bien pour les egg quoi...)
Commentaire de Sverdlovsky le 29/11/2002 15:59:23

L'avantage de mon code est que l'on peut le lire en entier dans la fenêtre et qu'on peut le sauvegarder.Sur un client telnet (comme celui de Windows), c'est moins aisé à manipuler, car le texte défile vite sur l'écran.