autom. syst. schreiber

1. offizieller Beitrag

    guten abend,
    also ich möchte gerne, dass das proggy systematisch strings sendet, bis das gewünschte ergebnis kommt.

    ich würde das ergebnis per pixelget angeben lassen, nur ist das problem das syst. schreiben...

    also zb:

    send a
    send A
    send aa
    send AA

    ... aber da ich net alle möglichen zeichenkombinationen durchgehen will, dachte ich mir das es dafür sicherlich eine funktion gibt... bzw irgentwo sowas schon fertig ^^

    wofür es ist, ist egal bzw die meisten werden es sich denken können... und nein nix böses

    mfg barra

    ja mit chr ...
    soweit war ich auch schon ^^
    aber ich weiß net, wie ich ihm sage erst 1 dann 11 dann 12 ...

    so würde er mir nur alle aufeinmal ausspucken... und das dauerhaft ^^ aber das ja egal

    Spoiler anzeigen


    while 1
    $text = ""
    For $i = 32 to 32+1
    $text = $text & Chr($i)
    Next
    MsgBox(0, "Uppercase alphabet", $text)
    wend

    exit

    es gibt 2 probleme
    1. er soll 1 bis 15 zeichen hinternander setzten
    2. ihm zu sagen wann er was nehmen soll...

    3 Mal editiert, zuletzt von Barra Sargtlin (25. Dezember 2007 um 23:16)

    • Offizieller Beitrag

    Hier eine Variante.
    Allerdings ist die Ausgabe in der Form, dass erst alle gleichlangen Zeichenketten erstellt werden, immer im Wechsel klein/groß:
    sieht so aus:

    Spoiler anzeigen
    Code
    ....
y
Y
z
Z
aa
AA
bb
BB
....
    Spoiler anzeigen
    [autoit]

    $end = 1
    $max = 3
    For $n = 1 To $max
    $k = 65
    For $i = 97 To 122
    $out = ''
    For $ii = 1 To $end
    $out &= Chr($i)
    Next
    ConsoleWrite($out & @CRLF)
    $out = ''
    For $ii = 1 To $end
    $out &= Chr($k)
    Next
    ConsoleWrite($out & @CRLF)
    $k += 1
    Next
    $end += 1
    Next

    [/autoit]

    vielen dank, werde mir das ganze mal genauer ansehen und zu verstehen versuchen und dann anpassen...
    schönen weinachtstag noch

    /edit: ok ich habs net verstanden ^^
    da mir die hilfe da net weiterhilft :(
    sind ja sachen die man verstanden haben muss...

    Einmal editiert, zuletzt von Barra Sargtlin (25. Dezember 2007 um 23:38)

    • Offizieller Beitrag

    Wenn ich dich richtig verstanden habe soll das Ergebnis so aussehen:

    Spoiler anzeigen


    Ich hab den Code jetzt mal angepaßt, dass dieses Ergebnis kommt:

    Spoiler anzeigen
    [autoit]

    $max = 3
    For $i = 97 To 122
    For $n = 1 To $max
    $out = ''
    For $ii = 1 To $n
    $out &= Chr($i)
    Next
    ConsoleWrite($out & @CRLF)
    ConsoleWrite(StringUpper($out) & @CRLF)
    Next
    Next

    [/autoit]

    es gehen zeichen von ehm code 32 bis 127... und max. pro versuch 15 stellen

    hier mal das, so wie ichs dachte ... ka wies sonst geht bwz weiter

    Spoiler anzeigen


    sleep(2000)
    Global $max = 15


    For $1 = 32 To 127
    For $2 = 1 To $max
    $out = ''
    For $3 = 1 To $2
    $out &= Chr($1)
    Next
    send($out & @CRLF)
    send(StringUpper($out) & @CRLF)
    Next
    next
    exit

    2 Mal editiert, zuletzt von Barra Sargtlin (26. Dezember 2007 um 11:42)

    oh
    und was nu :(
    der idiot hat meine umgerechnet 35 € argh will die zurück...
    und nen keylogger ist ja net gerade legal

    ne leider nicht...
    da wir uns das bei ebay erspart haben und es per ingame regelten...

    ich kenn einen, der mir irgentwie helfen will, der redet immer was bon memory die er finden will... aber er braucht irgentwie sonen punkt o_O ^^
    naja zumindest geht das nun nicht... ich bedanke mich trozdem (falls wer weitere ideen hat bitte pn/icq)-> closed

    • Offizieller Beitrag

    Hi,

    kannst dich ja auch so vorarbeiten ;)

    [autoit]

    $permutarray = permute("1234")
    $msg = ""
    For $n = 1 To $permutarray[0]
    $msg &= $permutarray[$n] & @CRLF
    Next
    ConsoleWrite($msg)

    [/autoit][autoit][/autoit][autoit]

    Func rotate($sString, $nRotateLevel)
    Local $aStringArray = StringSplit($sString, "")
    Local $nStartRotate = $aStringArray[0] - $nRotateLevel + 1
    Local $n, $tempchar, $tempstr = "", $retval = ""
    For $n = 1 To $nStartRotate - 1
    $tempstr &= $aStringArray[$n]
    Next
    $tempchar = $aStringArray[$nStartRotate]
    For $n = $nStartRotate + 1 To $aStringArray[0]
    $retval &= $aStringArray[$n]
    Next
    Return $tempstr & $retval & $tempchar
    EndFunc ;==>rotate

    [/autoit][autoit][/autoit][autoit]

    Func permute_internal($sString, $nRotateLevel, ByRef $permutations)
    Local $n, $str
    Dim $arr[$nRotateLevel]
    If $nRotateLevel = 2 Then
    $permutations &= ":" & rotate($sString, $nRotateLevel)
    Return
    EndIf
    $str = $sString
    For $n = 0 To $nRotateLevel - 1
    $str = rotate($str, $nRotateLevel)
    $arr[$n] = $str
    ;--- special check, to stop a level beeing printed twice ---
    If Not (($n = 0) And (StringLen($sString) > $nRotateLevel)) Then
    $permutations &= ":" & $arr[$n]
    EndIf
    permute_internal($arr[$n], $nRotateLevel - 1, $permutations)
    Next
    EndFunc ;==>permute_internal

    [/autoit][autoit][/autoit][autoit]

    Func permute($sString)
    Global $permutations = ""
    permute_internal($sString, StringLen($sString), $permutations)
    $permutations = StringTrimLeft($permutations, 1)
    Return StringSplit($permutations, ":")
    EndFunc ;==>permute

    [/autoit]

    So long,

    Mega