Dcc fake

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 898 fois - Téléchargée 26 fois

Contenu du snippet

cette petite dialog permet d'envoyer un DCC fake ( un faux DCC en clair ) avec selection de l'ip de la taille et du port ( qui ce dernier s'ouvre chez la cible si elle accepte le dcc avec un timeout de 60 sec en general )

Source / Exemple :


menu nicklist {
  DCC FakE:/dialog -m dccfake dccfake
}
menu query {
  DCC FakE:/dialog -m dccfake dccfake
}
dialog dccfake {
  title "DCC FakE By RysSAlphA"
  size -1 -1 168 111
  option dbu
  box "VictimE", 1, 6 3 76 31
  edit "", 2, 26 10 50 10, autohs
  text "NicK :", 3, 9 12 16 8
  button "NicKLisT SelecT ", 4, 28 22 46 9
  box "FichieR A SenD", 5, 6 35 76 74
  edit "", 6, 9 53 70 10, autohs
  text "NoM Du FichieR :", 7, 10 45 44 8
  text "TaillE :", 9, 10 64 25 8
  box "Ip && PorT", 10, 86 3 80 50
  text "IP  :", 11, 90 14 11 8
  edit "", 60, 88 23 18 10, limit 3
  edit "", 61, 107 23 18 10, limit 3
  edit "", 62, 126 23 18 10, limit 3
  edit "", 63, 145 23 18 10, limit 3
  edit "", 64, 107 36 35 10  
  edit "", 18, 10 75 50 10,autohs
  edit "", 19, 10 92 50 10,autohs read
  text "Bytes", 21, 62 76 17 8
  text "Kbytes", 22, 61 93 18 8
  text "PorT : ", 23, 92 37 17 8
  button "TaillE OfF", 25, 39 64 37 10
  button "ReseT", 26, 86 55 80 14
  button "SenD", 27, 86 69 80 38,default
  button "" ,70,0 0 0 0,ok
  button "Kb", 28, 10 85 16 7
  button "Mb", 29, 26 85 16 7
  button "Gb", 30, 42 85 16 7
  text "=", 31, 67 85 10 8
}
on *:dialog:dccfake:init:*:{
  did -ra dccfake 2 $snick($active,1)
  set %dccfake.stat.unit k
  did -b dccfake 28
}
on *:dialog:dccfake:sclick:*:{
  if ($did == 4) did -ra dccfake 2 $snick($active,1)
  if ($did == 25) {
    if ( $did(25) == TaillE OfF ) { did -a dccfake 25 TaillE On | did -b dccfake 18,19 }
    elseif ( $did(25) == TaillE On ) { did -a dccfake 25 TaillE OfF | did -e dccfake 18,19 }
  }
  if ($did == 26) did -r dccfake 2,6,18,19,60,61,62,63,64 
  if ($did == 27) {
    privmsg $did(2) $chr(1) $+ DCC SEND $did(6) $longip($did(60) $+ . $+ $did(61) $+ . $+ $did(62) $+ . $+ $did(63))) $did(64) $iif($did(25) == TaillE OfF,$did(18)) SEND $did(6) $longip($did(60) $+ . $+ $did(61) $+ . $+ $did(62) $+ . $+ $did(63))) $did(64) $iif($did(25) == TaillE OfF,$did(18)) $+ $chr(1)
    echo -at 2DCC FAKE SEND To 12[3 $did(2) 12]1 , 2AveC L'IP 12[3  $did(60) $+ . $+ $did(61) $+ . $+ $did(62) $+ . $+ $did(63) 12]1 , 2PorT 12[3  $did(64) 12]1 , 2FichieR 12[3  $did(6) 12]1 , 2TaillE 12[3  $iif($did(25) == TaillE OfF,$did(18) ByteS) $iif($did(25) == TaillE On, n/a ByteS ) 12]1
  }
  if ($did == 28) {
    set %dccfake.stat.unit k
    did -b dccfake 28
    did -e dccfake 29,30
    did -ar dccfake 22 Kbytes
    did -ar dccfake 19 $bytes($did(18),%dccfake.stat.unit)  
  }
  if ($did == 29) {
    set %dccfake.stat.unit m
    did -b dccfake 29
    did -e dccfake 30,28
    did -ar dccfake 22 Mbytes
    did -ar dccfake 19 $bytes($did(18),%dccfake.stat.unit)
  }
  if ($did == 30) {
    set %dccfake.stat.unit g
    did -b dccfake 30
    did -e dccfake 29,28
    did -ar dccfake 22 Gbytes
    did -ar dccfake 19 $bytes($did(18),%dccfake.stat.unit)  
  }
}
on *:dialog:dccfake:edit:18:did -ar dccfake 19 $bytes($did(18),%dccfake.stat.unit)

Conclusion :


heu bas moi perso j'ai pas trouvé de bug , si en voyez un dire le moi

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1466
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
7 février 2011

certes je suis en retard de 4ans, mais... (je m'adresse aux utilisateurs actuels potentiels de cette source) :

menu nicklist {
DCC FakE:/dialog -m dccfake dccfake
}
menu query {
DCC FakE:/dialog -m dccfake dccfake
}
devient (selon moi) :
menu nicklist,query {
DCC FakE:/dialog -m dccfake dccfake
}
et puis tu peux regrouper les events du dialog :
on *:dialog:dccfake:*:*:{
if ($devent == init) { ... }
if ($devent == sclick) {
if ($did == 4) { ... }
etc
}
}
voila 2 ptites erreurs de rien du tout :p
maintenant, je le teste x)
Messages postés
56
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
22 mai 2004

ou est ce que j'ai mi que ct utile ?
en plus j'avai fait une faute : le port qui s'ouvre c chez soi et non chez la cible
Messages postés
290
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
29 février 2008

Totalement inutile mais bien coder :)

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.