Visualisation d'un snippet

Snippets

www.codeswall.info

Super proxy
Auteur(s):	Averell
Date de soumission (Heure française):	22 février 2006 (22:32)
Taille du fichier:	3.9 Ko
Type du fichier:	snippet
Déjà visualisé:	1396 fois
Poster un commentaire
Un addon qui peut etre utile.. Il s'agit d'un proxy. Vous renseignez "adresse ip cible" et "port cible" (par exemple, l'adresse d'un serveur irc et le port 6667), et vous mettez comme port proxy, par exemple 8000. Ensuite, les personnes qui se connecteront à votre ip (y compris vous) sur le port 8000 se connecteront sur le serveur irc de votre choix. L'intérêt est que vous pouvez espionner les échanges protocolaires entre le client et le serveur: c'et utile si vous, vous écrivez un client ou un serveur. Ca marche aussi pour d'autres protocoles que le protocole irc (par exemple le web) (84.101.46.***)

; Super proxaille - Encore une création Averell (Averell@mircscriptsfrfm.com)

dialog wing {
  title "Super Proxaille, pour bidouilleurs"
  size -1 -1 400 182

  box "", 11, 10 10 380 150
  button "&Accept", 101, 260 62 120 25, default
  button "&Cancel", 111, 260 94 120 25,cancel
  text "Adresse ip cible", 103, 0 30 110 25,right
  text "Port cible", 104, 0 62 80 25,right
  text "Port proxy", 107, 0 94 80 25,right
  edit "",105,115 30 100 25,right
  edit "",106,115 62 100 25,right
  edit "",108,115 94 100 25,right
}

on 1:dialog:wing:edit:105:{ %tempserv = $did(105).text }
on 1:dialog:wing:edit:106:{ %tempport = $did(106).text }
on 1:dialog:wing:edit:108:{ %tempprox = $did(108).text }
on 1:dialog:wing:sclick:101: dialog -c wing | set %wingport %tempport | set %wingserv %tempserv | set %wingprox %tempprox

alias wingconfig   {
  dialog -m wing wing
  did -ra wing 105 %wingserv
  did -ra wing 106 %wingport
  did -ra wing 108 %wingprox
  set %tempport %wingport | set %tempserv %wingserv | set %tempprox %wingprox
}

alias openwin socklisten swingate %wingprox | echo 4 -s *** Port proxy %wingprox ouvert

alias closewin {
  %i = 1
  :boucle
  %temp1 = win $+ %i | %temp2 = totowin $+ %i
  if ( $sock(%temp2).name != $null ) { sockwrite -n %temp2 quit :Closing of the wingate server | sockclose %temp2  }
  sockclose %temp1
  inc %i
  if ( %i < 31 ) goto boucle
  sockclose swingate | sockclose swingate2 | echo 4 -s *** Port proxy fermé
}

on 1:socklisten:swingate*: {
  sockaccept NewSocket | %ip =  $sock(Newsocket).ip | echo 4 -s *** Connexion de %ip sur $sockname
  set %i 1
  :bouclewin
  set %temp2  win $+ %i
  set %temp  $sock(%temp2).name
  if ( %temp == $null )  {
  sockrename NewSocket win $+ %i | goto finbouclewin }
  inc %i
  if ( %i > 30 ) goto finbouclewin
  goto bouclewin
  :finbouclewin
  %temp = @win $+ %i
  if ( $window(%temp).state == $null ) window -n %temp
  titlebar %temp ( %ip )
  aline -ph 6 %temp *** Connection of  %ip ( $+ %temp $+ )
}

on 1:sockclose:win*: {
  echo 4 -s *** Disconnection of $sockname ( $sock($sockname).ip )
  %temp = @ $+ $sockname | aline -ph 6 %temp *** Déconnexion de $sock($sockname).ip ( $+ $sockname $+ )
}
on 1:sockread:win*: {
  sockread %temp
  if ( $sockerr > 0 ) return
  %temp2 = $gettok(%temp,2,32)
  %winsock = toto $+ $sockname
  %temp3 = @ $+ $sockname
  if (%temp != $null) { aline -ph 1 %temp3 %temp }
  else aline -ph %temp3 ***
  if ( $sock(%winsock).name == $null ) {
    sockopen %winsock %wingserv %wingport
  }
  set %temp2 toto $+ $sockname | %temp2 = $sock(%temp2).mark
  %a = $true
  if (%temp2 == putain) { sockwrite -n toto $+ $sockname %temp }
  else {
    %i = $hget($sockname,0)
    if (%i == $null) { hmake $sockname | set %i 0 }
    inc %i
    hadd $sockname %i %temp
    hadd $sockname 0 %i
  }
}

on 1:sockopen:toto*:{
  %temp = $right($sockname,$calc($len($sockname)-4))
  %temp2 = @ $+ %temp
  if ( $sockerr > 0 ) {  sockwrite -n %temp ERREUR Connexion... | aline -ph 6 %temp2 *** Erreur connexion | return }
  aline -ph 6 %temp2 *** Connexion établie sur $sockname
  set %N $hget(%temp,0) | set %i 1 | sockmark $sockname putain
  while (%i <= %N) {
    sockwrite -n $sockname $hget(%temp,%i)
    inc %i
  }
  hfree %temp
}

on 1:sockread:toto*:{
  %temp = $right($sockname,$calc($len($sockname)-4))
  if ( $sockerr > 0 ) { return }
  sockread %temp2
  sockwrite -n %temp %temp2
  %temp3 = @ $+ %temp
  if (%temp2 != $null) { aline -ph 12 %temp3 %temp2 }
  else aline -ph 12 %temp3 ***
}

on 1:sockclose:toto*: {
  %temp = $right($sockname,$calc($len($sockname)-4))
  %ip = $sock(%temp).ip | %temp2 = @ $+ %temp
  echo 4 -s *** Déconnexion de %temp ( %ip ) | sockclose %temp
  aline -ph 6 %temp2 *** Déconnexion de %ip ( $+ $sockname $+ )
}

menu menubar {
  Super Proxaille
  .Ouvrir le proxy: openwin
  .Fermer le proxy:  if ($?!="Il y a peut être des connexions en cours. Etes-vous sûr?" == $True) { closewin }
  .Configurer le proxy: wingconfig
}

Retour à la liste des snippets

De le 23 février 2006 (16:56) (86.202.106.***)

Ca peux être interessant :)