|
 |
 |
; Scriptlet farceur destiné à écrire un message d'insulte nominatif à travers une page web.
;
; Ne fonctionne que sur les "vieux" serveurs et réseaux qui n'encryptent pas les hosts (genre
; dalnet, ou undernet à la condition que le pseudo de la victime ne soit pas en mode +x)
;
; Faites "Farce web/Ouvrir serveur" , ce qui va déclencher un mini-serveur web sur votre port 80.
;
; Sur l'irc, faites un /who #channel en entrant sur le canal de vos victimes, récupérez votre ip
; (//Echo 1 -a $ip) et balancez un message de pub dans le chan, genre:
;
; <Vous> ----> http://votre_ip/Nimportequoi/truc_machinchouette.jpg <--- Regardez cette image
;
; Les personnes qui iront visiter cette "image" verront une série de phrases insultantes
; A L'ADRESSE NOMINATIVE DE LEUR PSEUDO! La fonction $ial effectue en effet le lien entre l'adresse ip
; de leur connexion web, et leur pseudo sur irc (attention de faire un /who #channel avant) pourvu que vous
; les voyiez.
;
; Mattez la fenetre status: vous verrez s'afficher les pseudos de vos victimes!
; C'est hilarant, mais attention car les ops supportent mal la pub pour des sites http!!
;
; Auteur: Averell (webmaster@mircscriptsfrfm.com)
on 1:socklisten:mchatsys: mwebopen $sockname
on 1:sockread:mweb*:mwebread $sockname
#mondns off
on 1:dns: {
set %uhost *!*@ $+ $raddress
set %nick $ial(%uhost,1).nick
echo 2 -s $chr(91) $+ $left($time,5) $+ $chr(93) $iif(%nick == $null,<inconnu>,%nick) ( $+ %uhost $+ ) s'est fait avoir :) | echo 2 -s -
set %i 0
unset %sok
while (%i < %walea) {
if ($sock(mweb $+ %i).ip == $address) %sok = mweb $+ %i
inc %i
}
sockwrite -n %sok HTTP/1.0 200 Document follows
sockwrite -n %sok Cache-Control: no-cache, no-store, private
sockwrite -n %sok Pragma: no-cache
sockwrite -n %sok content-type: text/html
sockwrite -n %sok
%nick = <b> $+ %nick $+ </b>
set %i 0
while (%i < 5) {
sockwrite -n %sok <body bgcolor=black><center><font size=5 face=verdana>
sockwrite -n %sok <font color=darkgreen> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=red> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=darkred> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=darkmagenta> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=orange> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=yellow> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=green> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=darkcyan> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=cyan> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=blue> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=magenta> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=gray> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
sockwrite -n %sok <font color=darkgray> %nick tu ferais mieux de bosser au lieu de glander sur l'irc</Font>
inc %i
}
sockwrite -n %sok </font></center></body>
sockclose %sok
.disable #mondns
}
#mondns end
alias mwebopen {
sockaccept mweb $+ %walea
inc %walea
}
alias mwebread {
var %fic, %para, %temp, %rien, %time
set %fic $null
set %para $null
sockread %temp
if ( %temp == $null ) {
.enable #mondns
.dns $sock($1).ip
}
}
menu menubar {
Farce web
.Ouvrir serveur: socklisten mchatsys 80 | set %walea 0 | echo 2 -s * Ouverture du serveur
.Fermer serveur: sockclose mchatsys | echo 2 -s * Fermeture du serveur
}
|  |
 |
Retour à la liste des snippets
Cette annonce est-elle crédible? |
|
|
|