Dcc fake

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_RysS)