Urządzenie wielofunkcyjne

JestemPolakiem · 12 Września 2013

Hej ...

Na wstępie proszę o cofnięcie do strony wcześniej jeżeli masz mnie obrażać.

Wstawiam 1 projekt na tą stronę byście go ocenili ... nie mam zbytnio pomysłów co poprawić itd ...

Sam kod jest ... masakrycznie chaotyczny ponieważ nie patrzałem na to, niektóre kody dawałem z innych projektów więc mogą być notatki itd ... jeden z nich to kasyno,bank oraz pozyczka w nim.Niektóre kody pożyczałem od różnych autorów innych programów np.:

Phoenix_PL - szyfr (i tak wiele musiałem zmienić oraz zoptymalizować pod mój kod).

... (nie pamiętam jego nicku ;(, lecz pamiętam, że zrobił on bota to SFGAME)

Kod :

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiListView.au3>
#include <String.au3>
Global $TEXT1, $ile, $co
#region GUI
$Form1 = GUICreate("Projekt na informatyke", 954, 571, 190, 121)
$dodawanie = GUICtrlCreateRadio("Dodawanie", 24, 80, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$odejmowanie = GUICtrlCreateRadio("Odejmowanie", 24, 104, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$pierwiastkowanie = GUICtrlCreateRadio("Pierwiastkowanie", 24, 128, 121, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$mnozenie = GUICtrlCreateRadio("Mnozenie ", 160, 80, 97, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$dzielenie = GUICtrlCreateRadio("Dzielenie", 160, 104, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$potegowanie = GUICtrlCreateRadio("Potegowanie ", 160, 128, 129, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input222 = GUICtrlCreateInput("Cyfra 1", 24, 48, 97, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input233 = GUICtrlCreateInput("Cyfra 2", 160, 48, 97, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Kalkulator ", 80, 8, 125, 24)
GUICtrlSetFont(-1, 15, 800, 2, "KaiTi")
GUICtrlSetColor(-1, 0x0066CC)
$co = GUICtrlCreateInput("Co ma wysłac ", 32, 216, 209, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ile = GUICtrlCreateInput("Ile wiadomosci ma wysłac ", 32, 240, 209, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Spambot = GUICtrlCreateLabel("Spambot", 96, 176, 81, 24)
GUICtrlSetFont(-1, 15, 800, 2, "KaiTi")
GUICtrlSetColor(-1, 0x0066CC)
$INFORMACJE = GUICtrlCreateLabel("INFORMACJE", 744, 8, 114, 24)
GUICtrlSetFont(-1, 15, 800, 2, "KaiTi")
GUICtrlSetColor(-1, 0x0066CC)
$Kalkulator = GUICtrlCreateLabel("Kalkulator", 680, 49, 94, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label41 = GUICtrlCreateLabel("Spambot", 680, 72, 67, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label5 = GUICtrlCreateLabel("Kasyno", 680, 120, 58, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label2 = GUICtrlCreateLabel("Pozyczka", 680, 144, 76, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label3 = GUICtrlCreateLabel("ENTER", 864, 49, 49, 19)
GUICtrlSetFont(-1, 11, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label6 = GUICtrlCreateLabel("F1", 864, 72, 22, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label7 = GUICtrlCreateLabel("F3", 864, 120, 22, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label8 = GUICtrlCreateLabel("F4", 864, 144, 22, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Input5 = GUICtrlCreateInput("Co ma szyfrowac ", 32, 328, 121, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
$Input6 = GUICtrlCreateInput("Co ma deszyfrowac ", 32, 352, 121, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$code_hex = GUICtrlCreateRadio("Szyfrowanie HEX ", 184, 320, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$code_bin = GUICtrlCreateRadio("Szyfrowanie binarne", 184, 344, 137, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$code_rev = GUICtrlCreateRadio("Odwrotnosc ", 184, 368, 97, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("Szyfrowanie ", 80, 288, 136, 24)
GUICtrlSetFont(-1, 15, 800, 2, "KaiTi")
GUICtrlSetColor(-1, 0x0066CC)
$Label9 = GUICtrlCreateLabel("Szyfrowanie", 680, 96, 103, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label11 = GUICtrlCreateLabel("Wyjscie", 680, 264, 67, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label12 = GUICtrlCreateLabel("F2", 864, 96, 22, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label13 = GUICtrlCreateLabel("ESCAPE", 864, 264, 58, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label14 = GUICtrlCreateLabel("Wyczysc konsole ", 680, 240, 166, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label15 = GUICtrlCreateLabel("F8", 864, 240, 85, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label16 = GUICtrlCreateLabel("Kasyno ", 392, 8, 81, 24)
GUICtrlSetFont(-1, 15, 800, 2, "KaiTi")
GUICtrlSetColor(-1, 0x0066CC)
$Input1 = GUICtrlCreateInput("Ile stawiasz", 352, 72, 169, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("Na jaka liczbe stawiasz (0-6) ", 352, 48, 169, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label17 = GUICtrlCreateLabel("Bank ", 408, 112, 59, 24)
GUICtrlSetFont(-1, 15, 800, 2, "KaiTi")
GUICtrlSetColor(-1, 0x0066CC)
$Input9 = GUICtrlCreateInput("Wpłac do banku", 352, 175, 177, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input10 = GUICtrlCreateInput("Pozycz (maksymalnie -5000)", 352, 151, 177, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Edit2 = GUICtrlCreateEdit("", 352, 248, 201, 97)
GUICtrlSetData(-1, "")
$Input11 = GUICtrlCreateInput("Ilosc znaków", 352, 352, 201, 21)
$checkcyfry = GUICtrlCreateCheckbox("Cyfry ", 560, 328, 81, 17)
$checkmale = GUICtrlCreateCheckbox("Małe litery ", 560, 304, 89, 17)
$checkduze = GUICtrlCreateCheckbox("Duże litery  ", 560, 280, 105, 17)
$Label18 = GUICtrlCreateLabel("Generuj znaki", 680, 216, 121, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label19 = GUICtrlCreateLabel("Zapisz znaki", 680, 192, 139, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label21 = GUICtrlCreateLabel("F6", 864, 192, 22, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label22 = GUICtrlCreateLabel("F7", 864, 216, 22, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label20 = GUICtrlCreateLabel("Generator znaków ", 352, 216, 201, 24)
GUICtrlSetFont(-1, 15, 800, 2, "KaiTi")
GUICtrlSetColor(-1, 0x0066CC)
$Splata = GUICtrlCreateLabel("Splata", 680, 168, 58, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label25 = GUICtrlCreateLabel("F5", 864, 168, 22, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$ListView1 = GUICtrlCreateListView("Czas|Akcja", 0, 428, 986, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 922)
$Label27 = GUICtrlCreateLabel("Twoj sprzet", 680, 288, 106, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label28 = GUICtrlCreateLabel("F9", 864, 288, 22, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU_HKSCS")
GUICtrlSetColor(-1, 0x3399FF)
$Label29 = GUICtrlCreateLabel("Zapisuj szyfrowanie", 680, 312, 175, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label30 = GUICtrlCreateLabel("F10", 864, 312, 35, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label23 = GUICtrlCreateLabel("Gotówka w kasynie", 680, 336, 157, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label24 = GUICtrlCreateLabel("Gotówka w banku", 680, 360, 139, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label44 = GUICtrlCreateLabel("1500", 864, 336, 40, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
$Label26 = GUICtrlCreateLabel("500 ", 864, 360, 40, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MingLiU")
GUICtrlSetColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)
#endregion GUI


#region szyfrowanie
$mem = ("")
$nth = ("")


If FileExists(@ScriptDir & "/options.tc_set") Then
    $ini_rev = IniRead(@ScriptDir & "/options.tc_set", "default_options", "reverse", 0)
    $ini_hex = IniRead(@ScriptDir & "/options.tc_set", "default_options", "hex", 0)
    $ini_bin = IniRead(@ScriptDir & "/options.tc_set", "default_options", "bin", 0)


    If $ini_hex = 1 Then
        GUICtrlSetState($code_hex, $GUI_CHECKED)
    EndIf


    Sleep(30)
    If $ini_bin = 1 Then
        GUICtrlSetState($code_bin, $GUI_CHECKED)
    EndIf


    Sleep(30)
    If $ini_rev = 1 Then
        GUICtrlSetState($code_rev, $GUI_CHECKED)
    EndIf


    Sleep(30)


    If $ini_rev = 1 Then
        GUICtrlSetState($code_rev, $GUI_UNCHECKED)
    EndIf


    Sleep(30)


    SLD("Szyfrowanie: Odczytano ustawienia początkowe!")
Else
    MsgBox(64, "Błąd", "Nie udało się odczytać ustawień początkowych! Stwórz plik ustawień!")
    Exit
EndIf


#endregion szyfrowanie


#region HotKey
HotKeySet("{F1}", "spam")
HotKeySet("{F2}", "Szyfrowanie")
HotKeySet("{F3}", "kasyno")
HotKeySet("{F4}", "pozycz")
HotKeySet("{F5}", "splac")
HotKeySet("{F6}", "zapisz")
HotKeySet("{F7}", "generuj")
HotKeySet("{Esc}", "knc")
HotKeySet("{Enter}", "kalkulator")
HotKeySet("{F8}", "clear")
HotKeySet("{F9}", "sprzet")


#endregion HotKey


#region tablice


Local $z[26]
Local $x[26]
Local $c[10]


$z[0] = "a"
$z[1] = "b"
$z[2] = "c"
$z[3] = "d"
$z[4] = "e"
$z[5] = "f"
$z[6] = "g"
$z[7] = "h"
$z[8] = "i"
$z[9] = "j"
$z[10] = "k"
$z[11] = "l"
$z[12] = "m"
$z[13] = "n"
$z[14] = "o"
$z[15] = "p"
$z[16] = "q"
$z[17] = "r"
$z[18] = "s"
$z[19] = "t"
$z[20] = "u"
$z[21] = "v"
$z[22] = "w"
$z[23] = "x"
$z[24] = "y"
$z[25] = "z"
$x[0] = "A"
$x[1] = "B"
$x[2] = "C"
$x[3] = "D"
$x[4] = "E"
$x[5] = "F"
$x[6] = "G"
$x[7] = "H"
$x[8] = "I"
$x[9] = "J"
$x[10] = "K"
$x[11] = "L"
$x[12] = "M"
$x[13] = "N"
$x[14] = "O"
$x[15] = "P"
$x[16] = "Q"
$x[17] = "R"
$x[18] = "S"
$x[19] = "T"
$x[20] = "U"
$x[21] = "V"
$x[22] = "W"
$x[23] = "X"
$x[24] = "Y"
$x[25] = "Z"
$c[0] = "0"
$c[1] = "1"
$c[2] = "2"
$c[3] = "3"
$c[4] = "4"
$c[5] = "5"
$c[6] = "6"
$c[7] = "7"
$c[8] = "8"
$c[9] = "9"
#endregion tablice


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            Szyfrowanie()
            kasyno()
            pozycz()
            splac()
            zapisz()
            generuj()
            knc()
            kalkulator()
            wyczysc()
            spam()
            sprzet()
            clear()
    EndSwitch
    Switch @HOUR
        Case 0 To 24
            Sleep(20)
            limit()
    EndSwitch


WEnd








Func Szyfrowanie()
    $ctxt = GUICtrlRead($Input5)
    Local $Hex = _StringToHex($ctxt)
    Local $Reverse = _StringReverse($ctxt)
    $txt = GUICtrlRead($Input6)
    Local $He = _HexToString($txt)
    Local $Bi = BinaryToString ($txt)


    Sleep(50)


    $revtxt = $ctxt
    If GUICtrlRead($code_rev) = $GUI_CHECKED Then
        SLD("Szyfrowanie: Odwracanie tekstu:  "& _StringReverse($ctxt))
        $revtxt = _StringReverse($ctxt)
    EndIf


    $hextxt = $revtxt
    If GUICtrlRead($code_hex) = $GUI_CHECKED Then
        SLD("Szyfrowanie: HEX " & $Hex)
        $hextxt = _StringToHex($revtxt)
    EndIf


    $bintxt = $hextxt
    If GUICtrlRead($code_bin) = $GUI_CHECKED Then
        SLD("Szyfrowanie: Binarne " &StringToBinary($ctxt))
        $bintxt = StringToBinary($hextxt)
    EndIf


    $hexx = $txt
    If GUICtrlRead($code_hex) = $GUI_CHECKED Then
        SLD ("Deszyfrowanie: HEX  "&$He)
        $hex = _HexToString($hexx)
    EndIf


    $binn = $hexx
    If GUICtrlRead($code_bin) == $GUI_CHECKED Then
        SLD ("Deszyfrowanie: Binarne " &$Bi)
    $binn = BinaryToString($binn)
    EndIf








EndFunc   ;==>Szyfrowanie


Func spam()
    Sleep(350)
    GUISetState(@SW_MINIMIZE)
    For $i = 1 To GUICtrlRead($ile) Step +1
        Send(GUICtrlRead($co), "{ENTER}")
        Sleep(38)
    Next
    SLD("Spambot: Wysłano wszystkie wiadomości !")
EndFunc   ;==>spam


Func knc()
    Exit
EndFunc   ;==>knc


Func kalkulator()
    $a = GUICtrlRead($Input222)
    $b = GUICtrlRead($Input233)
    If GUICtrlRead($potegowanie) == $GUI_CHECKED Then
        SLD("Kalkulator: Wynik to: " & $a ^ $
    ElseIf GUICtrlRead($odejmowanie) == $GUI_CHECKED Then
        SLD("Kalkulator: Wynik to: " & $a - $
    ElseIf GUICtrlRead($dodawanie) == $GUI_CHECKED Then
        SLD("Kalkulator: Wynik to: " & $a + $
    ElseIf GUICtrlRead($mnozenie) == $GUI_CHECKED Then
        SLD("Kalkulator: Wynik to: " & $a * $
    ElseIf GUICtrlRead($dzielenie) == $GUI_CHECKED Then
        SLD("Kalkulator: Wynik to : " & $a / $
    ElseIf GUICtrlRead($pierwiastkowanie) == $GUI_CHECKED Then
        SLD("Kalkulator: Wynik to: " & Sqrt($a))
    EndIf
EndFunc   ;==>kalkulator


Func kasyno() ; funkcja start
    $i1 = GUICtrlRead($Input1); stawka
    $i5 = GUICtrlRead($Label44); główna gotówka
    $i2 = GUICtrlRead($Input2); liczba na którą stawiamy
    $l = GUICtrlRead($Label26) ; kasa w banku
    $r = Random(0, 6, 1) ; losuje liczbę od 0-5 dając całości
    If $i1 Or $i2 = "" Then
        SLD("Kasyno: Obstaw jakąś liczbę bądź daj kwotę stawki.")
    ElseIf $r == $i2 Then ;jeśli wylosuje naszą liczbę to :
        $i1 *= 5 ;ile dostaniemy (*=razy)
        SLD("Kasyno: Wygrałeś " & $i1 & " kasy!"); informacja, ze wygralismy xxx zł
        $i5 += $i1 ; dodaje nam stawke do głównej gotówki
        GUICtrlSetData($Label44, $i5); odczytuje co dodało (inaczej gotówka by się nie dodawała)
    Else ;jeśli warunek wyzej nie zostanie spełniony ($r == $i2 Then ...) to :
        $i5 -= $i1 ; odejmie nam kasę, którą daliśmy na daną liczbę
        GUICtrlSetData($Label44, $i5) ; to samo co z $label4,$i5 (zmienne)
        SLD("Kasyno: przegrales " & $i1 & " zł" & ", wylosowało liczbę " & $r)
    EndIf ; zakończenie else
    If $i5 <= 0 Then ; Jeśli nasza główna gotówka = 0 wtedy :
        SLD("Kasyno: Gramy od nowa!"); wyświetli się okno o nazwie "Informacja", a w nim będzie napisane "Gramy od nowa!"
        GUICtrlSetData($Label44, 1500);Zaczynamy od nowa z gotówką o wartości 3000
        GUICtrlSetData($Label8, 500);Zaczynamy od nowa z gotówką o wartości 3000
    EndIf ; koniec if'u
EndFunc   ;==>kasyno


Func pozycz()
    ;______    __________________________BANK__________
    $i3 = GUICtrlRead($Input10);  Pozycz        |
    $l = GUICtrlRead($Label26); Kasa w banku       |
    $i5 = GUICtrlRead($Label44); główna gotówka |
    ;________________________________BANK___________|
    $l -= $i3 * 1.232; odejmuje z banku daną liczbę * 23.2%
    GUICtrlSetData($Label26, $l) ; odczytuje to
    If $i3 >= 0 Then ; jeśli $i3 (Pozycz) jest większe, bądź równe 0 wtedy :
        $i5 += $i3 ; Dodaje daną liczbę do głównej gotówki
        GUICtrlSetData($Label44, $i5) ; odczytuje to
    EndIf ; koniec if'u
EndFunc   ;==>pozycz


Func splac()
    $i5 = GUICtrlRead($Label44); główna gotówka
    $i4 = GUICtrlRead($Input9);  Spłac
    $l = GUICtrlRead($Label26); Kasa
    $i5 -= $i4 ; odejmuje od głównej gotówki daną liczbę
    GUICtrlSetData($Label44, $i5) ; odczytuje to
    $l += $i4 ; dodaje do banku daną liczbę
    GUICtrlSetData($Label26, $l) ; odczytuje to
    If $i4 <= 0 Or "" Then
        SLD("Bank: Musisz dać jakąś liczbę!")
    Else
        SLD("Bank: Wpłaciłeś do banku " & $i4 & " zł")
    EndIf
EndFunc   ;==>splac


Func limit()
    $i3 = GUICtrlRead($Input10);  Pozycz
    $l = GUICtrlRead($Label26) ;
    $i5 = GUICtrlRead($Label44); główna gotówka
    If $l <= -5000.1 Then ; jeśli przekroczy liczbę -4000 w pozczce to :
        $i5 -= $i3 ; odejmie to co dodało
        GUICtrlSetData($Label44, $i5) ; odczytuje
        $l += $i3 * 1.232;  doda to co odjeło
        GUICtrlSetData($Label26, $l) ; odczytuje
        SLD("Bank: Nie mozesz pozyczyc więcej niz -4000 gotówki!")
    EndIf
EndFunc   ;==>limit


Func wyczysc()
EndFunc   ;==>wyczysc


Func zapisz()
    $tmp = GUICtrlRead($Edit2)
    $file = FileSaveDialog("Zapisz plik...", @DesktopDir, "Plik tekstowy (*.*)")
    $file2 = StringReplace($file, "|", "\")
    $q = FileOpen($file2, 10)
    FileWrite($q, $tmp)
    If $file = 1 Then
        SLD("Generator znaków: Zapisano pomyślnie!")
    Else
        SLD("Generator znaków: Zapisywanie nie powiodło się")
    EndIf
EndFunc   ;==>zapisz


Func generuj()
    $cd = GUICtrlRead($checkduze)
    $cm = GUICtrlRead($checkmale)
    $cc = GUICtrlRead($checkcyfry)


    If $cd = $GUI_CHECKED Or $cm = $GUI_CHECKED Or $cc = $GUI_CHECKED Then
        $num = GUICtrlRead($Input11)
        If $num = "" Or $num = 0 Then
            SLD("Generator znaków: Nieprawidłowa liczba znaków!")
            Return
        EndIf
        $i = 0
        Global $str = ""
        While $i < $num
            If $cd = $GUI_CHECKED Then
                $ran1 = Random(0, 25, 1)
            EndIf
            If $cm = $GUI_CHECKED Then
                $ran2 = Random(0, 25, 1)
            EndIf
            If $cc = $GUI_CHECKED Then
                $ran3 = Random(0, 9, 1)
            EndIf
            If $cd = $GUI_CHECKED And $cm = $GUI_CHECKED And $cc = $GUI_CHECKED Then
                $ranm = Random(1, 4, 1)
            ElseIf $cd = $GUI_CHECKED And $cm = $GUI_CHECKED Then
                $ranm = Random(1, 2, 1)
            ElseIf $cm = $GUI_CHECKED And $cc = $GUI_CHECKED Then
                $ranm = Random(2, 3, 1)
            ElseIf $cd = $GUI_CHECKED And $cc = $GUI_CHECKED Then
                $ranm = Random(3, 4, 1)
            ElseIf $cd = $GUI_CHECKED Then
                $ranm = 1
            ElseIf $cm = $GUI_CHECKED Then
                $ranm = 2
            ElseIf $cc = $GUI_CHECKED Then
                $ranm = 3
            EndIf


            If $ranm = 1 Or $ranm = 4 And $cd = $GUI_CHECKED Then
                $str = $str & $x[$ran1]
            EndIf
            If $ranm = 2 And $cm = $GUI_CHECKED Then
                $str = $str & $z[$ran2]
            EndIf
            If $ranm = 3 And $cc = $GUI_CHECKED Then
                $str = $str & $c[$ran3]
            EndIf
            $i = $i + 1
        WEnd
        GUICtrlSetData($Edit2, $str)
    Else
        SLD("Generator znaków: Zaznacz jakąś opcję!")
    EndIf
EndFunc   ;==>generuj


Func SLD($TEXT1)
    GUICtrlCreateListViewItem(@HOUR & ":" & @MIN & ":" & @SEC & "|" & $TEXT1, $ListView1)
    _GUICtrlListView_Scroll($ListView1, 0, 90)
EndFunc   ;==>SLD


Func sprzet()
    SLD("Sprzęt: Rozdzielczosć ekranu: ," & @DesktopWidth & "x" & @DesktopHeight & @CRLF & ", głębia kolorów: " & @DesktopDepth & "bity " & ", częstotliwosć odswiezania: " & @DesktopRefresh & "Hz")
    SLD("Sprzęt: Czas: " & @HOUR & ":" & @MIN & ":" & @SEC & " ,data: " & @MDAY & "-" & @MON & "-" & @YEAR)
    SLD("Sprzęt: Nazwa uzytkownika: " & @UserName & " ,nazwa komputera: " & @ComputerName & " ,system: " & @OSType & " " & @OSVersion & ", ,build " & @OSBuild & " " & @OSServicePack & @CRLF & " ,architektura procesora: " & @CPUArch)
EndFunc   ;==>sprzet


Func clear()
    For $i = 0 to 10 Step 1
    SLD("Konsola: Czyszczenie konsoli                 ")
    Next
    Sleep(899)
    For $i = 0 to 10 Step 1
    SLD("                                             ")
    Next
EndFunc


While 1
    sleep (100)
WEnd

bądź z tej strony :

http://wklej.to/zvs2I

tutaj opcje szyfrowania :

http://speedy.sh/WCy26/options.tc-set


https://www.virustotal.com/pl/file/71df38b9065dbed14dd60c9f3e3057129324825d2d91bceadbf4dc926a2f437b/analysis/1379013138/

Skompilowany kod :

http://www.speedyshare.com/wYBem/Projekt.exe


https://www.virustotal.com/pl/file/9e96515a9d58a9c0e05fe85a8bc318c64ebb46e09e817ae79c169c5369d7be6e/analysis/1379012680/

Jest to mój 1 tak rozwinięty (aż 560 linijek) projekt ... tak wiem, zapewne Wy zrobilibyście to w 200 linijek .. lecz pamiętajcie, że uczę się dopiero !

Teraz przestaje bawić się z Autoit3 ... ponieważ ma ograniczenia dość duże i przechodzę na naukę C++

@edit

tak wiem, mogłem użyć tablicy ;x

JestemPolakiem · 18 Września 2013

@Refresh poprawiono 1 błąd z kalkulatorem oraz dodano kilka pętl.

Phoenix_PL · 19 Września 2013

zrób coś z tymi tablicami ze znakami bo to ciulowo wygląda...

IeMaster · 19 Września 2013

możesz użyc faktu że te litery to kolejne znaki w ASCII

jackraymund · 20 Września 2013

co do tablic

$z[0] = "a"
$z[1] = "b"
$z[2] = "c"

to jest to samo co

$z = {"a","b","c"}

JestemPolakiem · 20 Września 2013

jackyraymud dzięki ! chociaż to mniej i więcej to samo co tablice ;x a ich właśnie nie chciałem robić, ale ok za 5 min wstawie nową wersje ;x.

@EDIT

z tym $a = ... nie zadziała random , a tablic nie chcem po prostu wrzucać (napisałem to w temacie).

karolkarol21621 · 20 Września 2013

tak samo z dużymi i małymi literami możesz zrobić jedną tablice

zamiast

Local $z[26]

Local $x[26]

np.

Local $zx[26][2]

JestemPolakiem · 20 Września 2013

@up nie chce tablic pisałem 1000 razy

Zaloguj się

👋 Witaj na MPCForum!

Urządzenie wielofunkcyjne

Rekomendowane odpowiedzi

JestemPolakiem

JestemPolakiem

JestemPolakiem

JestemPolakiem

Phoenix_PL

Phoenix_PL

IeMaster

IeMaster

jackraymund

jackraymund

JestemPolakiem

JestemPolakiem

karolkarol21621

karolkarol21621

JestemPolakiem

JestemPolakiem

Zarchiwizowany