Beiträge von Dankeschön

  • Passwort Generator

    Eigentlich ganz schön, nur brauchen sehr wenige Leute einen Generator.
    Da greift man lieber zu eigenen Standart-Passwörtern.

    Entwickle doch etwas, was das Passwort über ein Tastenkürzel eingibt,nicht zu aufdringlich ist,und was mit Windows startet, und was man nicht sieht.

    Eigentlich nicht schwer,aber du könntest das mit deinem Generator verbinden.....

    Auf den ersten Blick scheint es ganz schön zu sein,nur ist ein Passwort-Generator (für mich) nicht das Gelbe vom Ei.


    Aber immer weiter,auf der langen leiter (gabs da nicht ein Lied ?!)

  • [UDF] FTP - Update leicht gemacht

    Habe gerade kurz meine Standart-Update-Stellen in einem kleinem Skript für jedermann zusammengefasst.

    Was die Funktion kann:

    Code
    Sie verbindet sich mit dem FTP-Speicher.
Sie lädt die Update-Datei herunter.
Sie vergleicht die Versionen.
Wenn Update nötig ist,kommt eine anpassbare msgbox.

    Die Vorteile sind:

    - Log-Datei
    - viele Parameter
    - schnelle @error flag - Übersicht, zusätzlich bekommt die variable $err den @error wert (kenne mich mit @error nicht wirklich aus)
    - es ist von mir und meine erste UDF
    - schneller Support (pn an mich)

    Die Variablen und Flags:

    Spoiler anzeigen


    Von Dankeschön,www.autoit.de

    $_da_server = beispielsserver.kilu.de / ftp.extra.hu / etc.
    $_da_usr = FTP-Loginname
    $_da_pass = FTP-Loginpasswort
    $_da_ftpdir = FTP-Verzeichnis,in der die Datei mit der Version liegt (root/update/etc.)
    $_da_ftpdata = Name der Datei auf dem Server,welches die Version enthält
    $_da_log = Pfad zur Log-Datei (default @DesktopCommonDir & "\update.log")
    $_da_line = Zeile, in der die Versionsnummer steht (in der FTP-Datei)
    $_da_oldversion = Version des aktuellen Skriptes
    $_da_msg = Nachricht, die bei nötigem Update ausgegeben wird (default "Sie benötigen ein Update !")
    $_da_msgflag = Flag der Msgbox (default 64)

    @error = 1 - FTP-Server nicht erreichbar / Keine Internetverbidnung
    @error = 2 - Versionsdatei nicht in @temp gefunden !
    @error = 3 - Kein Update nötig

    Das Skript:

    Spoiler anzeigen
    [autoit]


    #include <Process.au3>

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

    Func _updateftp(local $_da_server,local $_da_usr,local $_da_pass,local $_da_ftpdir,local $_da_ftpdata,local $_da_logpath = @DesktopCommonDir & "\update.log",local $_da_line,local $_da_oldversion,local $_da_msg = "Sie benötigen ein Update !",local $_da_msgflag = "64")
    local $ping = Ping($server)
    If $ping = 0 Then
    SetError(1)
    Return
    EndIf
    FileDelete(@tempdir & "\update.ftp")
    Local $_da_FTPskript = @tempdir & "\update.ftp"
    FileChangeDir(@tempdir)
    FileWriteLine($_da_FTPskript,"open " & $_da_server)
    FileWriteLine($_da_FTPskript,"USER " & $_da_usr & " " & $_da_pass)
    FileWriteLine($_da_FTPskript,"cd " & $_da_ftpdir)
    FileWriteLine($_da_FTPskript,"mget " & $_da_ftpdata )
    FileWriteLine($_da_FTPskript,"bye")
    _RunDOS("ftp.exe -n -i -s:" & $_da_FTPskript & " >" & $_da_logpath)

    If not FileExists($_da_ftpdata) Then
    FileDelete($_da_ftpskript)
    SetError(2)
    Return
    EndIf
    local $_da_read = FileReadLine($_da_ftpdata,$_da_line)
    If $_da_read <> $_da_oldversion Then
    MsgBox($_da_msgflag,"Update",$_da_msg)
    Else
    SetError(3)
    EndIf
    FileDelete($_da_ftpskript)

    EndFunc

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

    Verbesserungsvorschläge und Fehlermeldungen werden gerne entgegengenommen !
    Habt bitte drauaf Rücksicht,dass dies meine erste UDF ist und ich mich mit der Marterie nicht wirklich auskenne (besonders was das aufrufen und die errors betrifft)

    //Skript editiert

  • r1fLeX's Training-Room

    Leicht: PC sperren , Kindersicherungen
    Mittel: Eigene Funktionen wie einen "eigenen Papierkorb" (mein datenschredder), Chatprogramme
    Schwer: Musik Spieler mit up&Downloadfunktion (bin grad dran) , (online-)Spiele

    edit: Bei Interesse an Codes pn an mich !

  • Serial/Lizenz.

    Erstelle einen online-ftp speicher.
    Lade dort key-dateien hoch.
    Nun muss der Benutzer einen Key eingeben.
    Wenn dieser auf dem FTP-speicher vorhanden ist -> datei löschen und erfolgreich registriert
    d.h. man kann jeden key nur einmal benutzen.

    Zum Serial selbst:
    Mache einfach einen "multiplen StrinInStr",welcher verschiedene Zahlenkombinationen benötigen.
    beispiel:

    [autoit]


    Case $msg = $weiter
    $read = GUICtrlRead($regkey)
    If StringInStr($read,"6") Then
    If StringInStr($read,"4") Then
    If StringInStr($read,"0") Then
    If StringInStr($read,"91") Then
    GUIDelete($gui2)
    _3()
    EndIf
    EndIf
    EndIf
    EndIf
    MsgBox(16,"Error","Falscher Registrierungscode",5)

    [/autoit]

    Als keygen dazu passt dann:

    [autoit]


    Do
    $random = Round(Random(1,99999999999999999999999999999999999999999999))
    Until StringInStr($random,"6") And StringInStr($random,"4") And StringInStr($random,"0") and StringInStr($random,"91")

    [/autoit]


    SOnst denk dir was eigenes aus :thumbup:

    P.S.: Benutze das Prinzip,um ein paar "exklusive beta-tester" nicht in versuchung zu führen,das zu veröffentlichen :D