News k-otik.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 113 fois - Téléchargée 31 fois

Contenu du snippet

Voici un code permettant de recevoir les news d'un site sur la sécurité informatique.

Screenshot : http://membres.lycos.fr/xdbconcept/scripting/k-otik.gif
(comme le site accepte pas les .gif et qu'il trouve l'image trop grosse..)

Source / Exemple :


alias k-otik { if $1 { var %!^ securite,news,virus,exploits
    if $istok(%!^,$1,44) { set %!: $1 | $iif($2 && $2 == html,set %!:: html,) }
    if !$window(@K-otik.news) { window -ae @K-otik.news } 
    sockclose k.otik |  clear @K-otik.news
    sockopen k.otik www.k-otik.com 80
  } 
  else { echo -s /k-otik: paramètres manquants et/ou erronés - /k-otik securite\virus\exploits\news (html) | sockclose k.otik | halt  }
}

on *:sockopen:k.otik:{ if $sockerr { echo -a $_sockerr($sockerr) | return }
  if %!:: { write -c K-otik.htm $+(<u><b><font color="#002980"><p style="text-align: center">Liste des News du site K-otik.com</b></u>,$chr(58)</p></font>) <br><hr>
    write K-otik.htm <title>News du site www.k-otik.com par tofu.</title>
  echo @K-otik.news Création de la page Html en cours ... veuillez patienter, elle s'ouvrira automatiquement. }
  else { echo @K-otik.news $+($u(Liste des News du site K-otik.com),$chr(58))) }
  if %!: { sockwrite -n $sockname GET $+($chr(47),$replace(%!:,securite,advisories),.xml) HTTP/1.1 }
  sockwrite -n $sockname Host: k-otik.com $+ $str($crlf,2)
}
on *:sockread:k.otik:{
  sockread %!
  if <title> isin %! {
    if  !%!:: { echo @K-otik.news - | echo @K-otik.news $str($b($chr(155)),2) $+($b($u($regstrip(%!))),$chr(58)) }
    else { write K-otik.htm <b>&#8250;&#8250;<u><font color="#002980"> $regstrip(%!) $+ </u></font></b>: <br> }
  }
  if <link> isin %! { $iif(!%!::,echo @K-otik.news $+($u(Lien),:) $regstrip(%!),write K-otik.htm <u>Lien</u>: <a href= $+ $regstrip(%!) $+ > $+ $regstrip(%!) </a> <br>) }
  if <description> isin %! { $iif(!%!::,echo @K-otik.news $+($u(Description),:) $regstrip(%!),write K-otik.htm <u>Description</u>: $regstrip(%!) <br><br>) } 
}
on *:sockclose:k.otik:{
  if %!:: { write K-otik.htm <br><hr> Fin de la liste des news du site <a href= $+ www.k-otik.com >www.k-otik.com</a> <>
    write K-otik.htm addon by <a href=mailto:eric@xdb.exagon.org>tofu</a>
  run iexplore $mircdir $+ K-otik.htm }
echo @K-otik.news - | echo @K-otik.news Fin des news . | unset %!* }

alias _sockerr {
  if $$1 == 0 { return aucune erreur }
  elseif $$1 == 1 { return impossible d'interpréter la requête à cause d'une erreur de format }
  elseif $$1 == 2 { return impossible d'exécuter à cause d'une erreur interne du serveur }
  elseif $$1 == 3 { return l'adresse soumise n'existe pas }
  elseif $$1 == 4 { return type de la requête non supporté }
  elseif $$1 == 5 { return demande refusée }
  else { return erreur non documentée }
}
alias u { return $+($chr(31),$1,$chr(31)) }
alias b { return $+($chr(2),$1,$chr(2)) }
alias regstrip { var %i,%a = $1-,%b = $regsub(%a,/<[^>]+>/g,,%i) | return $remove(%i,$chr(59),$chr(38)) }

menu menubar,channel,@K-otik.news {
  K-otik
  .$submenu($menu-k($1))
}
alias menu-k {
  if ($1 == begin || $1 == 5 || $1 == 10 || $1 == end) { return - }
  if ($1 == 1) return News:/k-otik news
  if ($1 == 2) return Exploits:/k-otik exploits
  if ($1 == 3) return Virus:/k-otik virus
  if ($1 == 4) return Sécurité:/k-otik securité
  if ($1 == 6) return News html:/k-otik news html
  if ($1 == 7) return Exploits html:/k-otik exploits html
  if ($1 == 8) return Virus html:/k-otik virus html
  if ($1 == 9) return Sécurité html:/k-otik securite html
  if ($1 == 11) return Visiter K-otik.com:url www.k-otik.com
}

Conclusion :


C'est un addon en construction, donc il risque d'y avoir des bugs. si je le poste c'est parce que il est tard et j'ai du mal à voir cmt continuer d'optimiser donc si vous pouviez me donner quelques idées, elles seront les bienvenues.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
199
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
7 avril 2005

"
alias _sockerr {
if $$1 == 0 { return aucune erreur }
"

Je pense que c'est inutile ça...
Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
oui ou alors faire pareil que ce que m'a dis sorn au début avec :
var %^ begin,5,10,end | if $istok(%^,$1,44) { return - }
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
en fait c pas tant du chipotage que ca : vu que end et begin sont pas des nombres $calc renverra 0 aussi donc :
if ($1 begin || $1 5 || $1 == 10 || $1 == end) { return - }
peut devenir tout simplement :
if !$calc($1 % 5) { return - }
/me est content de lui
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
adresse internet pas adresse mail ...
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
si si on veut chipoter :
$1 5 || $1 10 > !$calc($1 % 5)

et le "run iexplore $mircdir $+ K-otik.htm " tu peux ptet virer iexplore (je dis ca comme ca , il doit manquer un R non ? , de toute facon pour une adresse mail perso je précise jamais rien /run ca marche la je sais po)

a part ca j'aime bien les noms de tes var locales =)
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.