Unbreakable Algorythm

    Hallöle ;)

    Hab hier mal was gebastelt :)

    Kleinen Algorythmus der für dumme User als eine Art Captcha oder Passwort Abfrage genutzt werden kann.

    Source liegt bei.

    Close geht nur über rechtsklick icon/exit script ^^ war etwas zu faul das zu fixxen :P

    kleiner tipp: man muss auf die labels klicken ;)

    Gruß

    Kev

    //edit

    ich glaub ich hab algo falsch geschrieben ^^ wayne

    http://www.virustotal.com/de/analisis/91…441f-1280405365

    Das is ne schöne Idee aber Ich denke das das nicht nur mir so geht wenn ich sage das, das viel zu schnell wechselt xD. Ich komme da schnell genug auf das Lable um darauf zu klicken :)

    Edit:
    Außerdem ist das captcha sehr leicht zu umgehen. einfach den Captcha text auslesen und dann mit Controlsettext unten eintragen.
    Ich denke ein Script um das zu umgehen poste ich besser nicht.

    Mfg
    monkey

    Monkey - die finale Potenz von göttlich!
    Sloganizer

    Einmal editiert, zuletzt von monkey (29. Juli 2010 um 13:31)

    Ich finde das ist wirklich etwas zu schwer.
    Aber die Idee ist sehr gut.
    Du könntest ja sowas wie eine Geschwindigkeitsabfrage einbauen.

    Meine Projekte:
    ClipBoard Manager (beendet)
    Gutes ClipBoard Verwaltungs Programm mit nützlichen Funktionen.

    HTML Creator (beendet)
    Nützliches Tool um schnell ein eigenes HTML Dokument zu erstellen.

    Für Schrubber - Version bei Mausbewegung generiere neue Ziffern :pinch:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=116990-matte-blue-and-white-square-icon-business-key7.ico
    #AutoIt3Wrapper_outfile=Unbreakable Algorythm.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Res_Comment=thx to Schrubbi & Lev
    #AutoIt3Wrapper_Res_Description=Unbreakable Algorythm
    #AutoIt3Wrapper_Res_LegalCopyright=Open Source
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.2.0
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    #include <Array.au3>

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

    ;AdlibRegister("start",2000)
    adlibregister("gen_Pass",70000)

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

    Opt("GUIOnEventMode", 1)
    Dim $lbl[40], $achars[28]

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

    global $random
    Global $key = ""
    Global $i , $read , $pass , $password

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

    start()
    $gui = GUICreate("Unbreakable Algorythm", 415, 280)
    $lbl[0] = GUICtrlCreateLabel("", 20, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[1] = GUICtrlCreateLabel("", 60, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[2] = GUICtrlCreateLabel("", 100, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[3] = GUICtrlCreateLabel("", 140, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[4] = GUICtrlCreateLabel("", 180, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[5] = GUICtrlCreateLabel("", 220, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[6] = GUICtrlCreateLabel("", 260, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[7] = GUICtrlCreateLabel("", 300, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[8] = GUICtrlCreateLabel("", 340, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[9] = GUICtrlCreateLabel("", 380, 20, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[10] = GUICtrlCreateLabel("", 20, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[11] = GUICtrlCreateLabel("", 60, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[12] = GUICtrlCreateLabel("", 100, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[13] = GUICtrlCreateLabel("", 140, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[14] = GUICtrlCreateLabel("", 180, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[15] = GUICtrlCreateLabel("", 220, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[16] = GUICtrlCreateLabel("", 260, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[17] = GUICtrlCreateLabel("", 300, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[18] = GUICtrlCreateLabel("", 340, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[19] = GUICtrlCreateLabel("", 380, 60, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[20] = GUICtrlCreateLabel("", 20, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[21] = GUICtrlCreateLabel("", 60, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[22] = GUICtrlCreateLabel("", 100, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[23] = GUICtrlCreateLabel("", 140, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[24] = GUICtrlCreateLabel("", 180, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[25] = GUICtrlCreateLabel("", 220, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[26] = GUICtrlCreateLabel("", 260, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[27] = GUICtrlCreateLabel("", 300, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[28] = GUICtrlCreateLabel("", 340, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $lbl[29] = GUICtrlCreateLabel("", 380, 100, 20, 20)
    GUICtrlSetFont(-1, 12)
    GUICtrlSetOnEvent(-1, "_add")
    $inpt = Guictrlcreateinput("",7,210,400,25)
    Guictrlsetstate(-1,$GUI_DISABLE)
    $checkbtn= Guictrlcreatebutton("Enter",160,250,100,25)
    Guictrlcreatelabel("Password will change every 15 Seconds",110,140,2000,25)
    Guictrlsetstate(-1,$GUI_DISABLE)
    $pass = Guictrlcreatelabel("",160,170,300,25)
    Guictrlsetfont(-1,15,"","","Sylfaen")
    gen_Pass()
    GUISetState(@SW_SHOW) ; Zeigt das leere GUI-Fenster

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

    Guictrlsetonevent($checkbtn,"check")

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

    Func start()
    For $i = 0 To $lbl[29]
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $read = Chr($random)
    GUICtrlSetData($lbl[$i],$read)
    Next
    EndFunc ;==>start

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

    func exits()
    exit
    Endfunc

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

    While 1
    $dll = dllopen("user32.dll")
    if _ispressed("0D",$dll) Then
    check()
    EndIf
    $mouse = MouseGetPos()
    $mouseneu = MousegetPos()
    if $mouse[0] <> $mouseneu[0] then
    start()
    Endif
    if $mouse[1] <> $mouseneu[1] then
    start()
    Endif
    WEnd

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

    func _add()
    GUICtrlSetData($inpt, GUICTRLREAD($inpt) & GUICTRLREAD($lbl[@GUI_CtrlId]-3))
    EndFunc

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

    Func gen_Pass()
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $read = Chr($random)
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $read2 = Chr($random)
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $read3 = Chr($random)
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $read4 = Chr($random)
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $read5 = Chr($random)
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $read6 = Chr($random)
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $read7 = Chr($random)
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $read8 = Chr($random)
    $random=Random(48,83,1)
    If $random>57 Then $random +=39
    $password = $read & $read2 & $read3 & $read4 & $read5 & $read6 & $read7 & $read8
    Guictrlsetdata($pass,$password)
    Guictrlsetdata($inpt,"")
    EndFunc ;==>start

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

    func check()
    if $password = Guictrlread($inpt) Then
    Traytip("Unbreakable Algorythm","Password Check confirmed..continue..",2,1)
    ;start Program here
    Else
    Traytip("Unbreakable Algorythm","Password Check Error.." & @crlf & "resetting..",2,1)
    sleep(2000)
    Traytip("","",1)
    Guictrlsetdata($inpt,"")
    ;or exit
    EndIf
    Endfunc

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