Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[DL] Generator Haseł

ExClusiVe.

Przez ExClusiVe.
w Projekty użytkowników forum

Rekomendowane odpowiedzi

ExClusiVe. Bywalec

ExClusiVe.

Opublikowano
Bywalec

ExClusiVe.

Opublikowano

V2 :

SS :

40131190472747008437.jpg

DL :











http://www58.zippyshare.com/v/34091588/file.html

 

 

SKAN :

68984097473645280103.jpg

Czasami się buguje i trzeba kliknąć 2x żeby się nowe hasło wygenerowało!

Program generuje hasła o długości ośmiu znaków!

W skład znaków wchodzą :

- Duże litery

- Małe litery

- Cyfry

V3 :

SS :

56193387467221974685.png

Możliwość wpisania ilości znaków (min.1 - max. 30)

DL :

http://www76.zippyshare.com/v/57989617/file.html

 

 

SKAN :

00797279448370887628.png

49107108736459053618.png

KONKURS !

KLIK !

StuSto Znawca

StuSto

Opublikowano
Znawca

StuSto

Opublikowano

Jedynym + to grafika a kod programu łatwy! (do generowania Haseł)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Generate()
    End Sub

    Private Function Generate() As String
        Dim IntRnd(1) As Object
        Dim intStep(1) As Object
        Dim strName(1) As Object
        Dim intNameLength(1) As Object
        Dim intLength(1) As Object
        Dim strInputstring(1) As Object

        strInputstring(1) = "1234567898qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
        intLength(1) = Len(strinputstring(1))
        intNameLength(1) = 8
        Randomize()
        strName(1) = ""
        For intStep(1) = 1 To intNameLength(1)
            intRnd(1) = Int((intLength(1) * Rnd()) + 1)
            strname(1) = strName(1) & Mid(strInputstring(1), intRnd(1), 1)
        Next

        Generate = strName(1)

    End Function
End Class
ExClusiVe. Bywalec

ExClusiVe.

Opublikowano
Bywalec

ExClusiVe.

  • Autor
Opublikowano

@ up dzięki ... dziś będzie V2 ale muszę się uporać z małym błędem ...

 

@2x up dopiero zaczynam i i tak miałem problem żeby to rozgryźć, bo wpadłem na to o godzinie 03.00, a nikogo na forum nie było ...

49107108736459053618.png

KONKURS !

KLIK !

Sunnyline2 Znawca

Sunnyline2

Opublikowano
Znawca

Sunnyline2

Opublikowano

Japierodle przecież to nie jest generator ..

 

Select Case CInt(Math.Round(CDbl(Conversion.Int(CSng((VBMath.Rnd * 51!))))))
Case 0
Me.TextBox1.Text = "vsmhHTIL"
Exit Select
Case 1
Me.TextBox1.Text = "uCNEC7u3"
Exit Select
Case 2
Me.TextBox1.Text = "qxTz9H0N"
Exit Select
Case 3
Me.TextBox1.Text = "GrfzKkhy"
Exit Select
Case 4
Me.TextBox1.Text = "! Generator by ExClusiVe dla MPC !"
Exit Select
Case 5
Me.TextBox1.Text = "HmOlq0hX"
Exit Select
Case 6
Me.TextBox1.Text = "BXxYcAvv"
Exit Select
Case 7
Me.TextBox1.Text = "hVBjBJQS"
Exit Select
Case 8
Me.TextBox1.Text = "t643PmbU"
Exit Select
Case 9
Me.TextBox1.Text = "x70l3LJb"
Exit Select
Case 10
Me.TextBox1.Text = "dKJIUbQU"
Exit Select
Case 12
Me.TextBox1.Text = "c7ow7BOs"
Exit Select
Case 13
Me.TextBox1.Text = "0iG9aJvJ"
Exit Select
Case 14
Me.TextBox1.Text = "zLRpeqYN"
Exit Select
Case 15
Me.TextBox1.Text = "Flm7PvWv"
Exit Select
Case &H10
Me.TextBox1.Text = "y601xi6x"
Exit Select
Case &H11
Me.TextBox1.Text = "HoUwqiMk"
Exit Select
Case &H12
Me.TextBox1.Text = "zVefL46Q"
Exit Select
Case &H13
Me.TextBox1.Text = "YPo5Jekl"
Exit Select
Case 20
Me.TextBox1.Text = "dRh8lTNk"
Exit Select
Case &H15
Me.TextBox1.Text = "YeadRzUd"
Exit Select
Case &H16
Me.TextBox1.Text = "TKEhLdbQ"
Exit Select
Case &H17
Me.TextBox1.Text = "erzdRt8B"
Exit Select
Case &H18
Me.TextBox1.Text = "TL10fRYd"
Exit Select
Case &H19
Me.TextBox1.Text = "ISeFGzuE"
Exit Select
Case &H1A
Me.TextBox1.Text = "fk3nrvlb"
Exit Select
Case &H1B
Me.TextBox1.Text = "NGGT7YSG"
Exit Select
Case &H1C
Me.TextBox1.Text = "U6KhJZhj"
Exit Select
Case &H1D
Me.TextBox1.Text = "9EWgxDlx"
Exit Select
Case 30
Me.TextBox1.Text = "Vm17FPrj"
Exit Select
Case &H1F
Me.TextBox1.Text = "x8S4XLHL"
Exit Select
Case &H20
Me.TextBox1.Text = "8g8V4FMj"
Exit Select
Case &H21
Me.TextBox1.Text = "0K2EcJ3C"
Exit Select
Case &H22
Me.TextBox1.Text = "cpCTAJGk"
Exit Select
Case &H23
Me.TextBox1.Text = "WHAZtS6q"
Exit Select
Case &H24
Me.TextBox1.Text = "SLDRzlUy"
Exit Select
Case &H25
Me.TextBox1.Text = "eM6b2OFA"
Exit Select
Case &H26
Me.TextBox1.Text = "5kqd6DVY"
Exit Select
Case &H27
Me.TextBox1.Text = "azrC1B9x"
Exit Select
Case 40
Me.TextBox1.Text = "rwz9dJdI"
Exit Select
Case &H29
Me.TextBox1.Text = "6MfBntaA"
Exit Select
Case &H2A
Me.TextBox1.Text = "YFnTWZuI"
Exit Select
Case &H2B
Me.TextBox1.Text = "eAEAPlxE"
Exit Select
Case &H2C
Me.TextBox1.Text = "Xnwi92C4"
Exit Select
Case &H2D
Me.TextBox1.Text = "q075Sncd"
Exit Select
Case &H2E
Me.TextBox1.Text = "yhUJF9RJ"
Exit Select
Case &H2F
Me.TextBox1.Text = "XsiJQzV1"
Exit Select
Case &H30
Me.TextBox1.Text = "xwUA4Rvd"
Exit Select
Case &H31
Me.TextBox1.Text = "XVGOJJGp"
Exit Select
Case 50
Me.TextBox1.Text = "BLVH5iVx"
Exit Select
Case &H33
Me.TextBox1.Text = "0c12zzLm"
Exit Select
End Select

 

Wyświetla losowo 'case' .. więc to nie jest generator..

Sajjuk Arcymistrz

Sajjuk

Opublikowano
Arcymistrz

Sajjuk

Opublikowano

Japierodle przecież to nie jest generator ..

 

Select Case CInt(Math.Round(CDbl(Conversion.Int(CSng((VBMath.Rnd * 51!))))))

Case 0

Me.TextBox1.Text = "vsmhHTIL"

Exit Select

Case 1

Me.TextBox1.Text = "uCNEC7u3"

Exit Select

Case 2

Me.TextBox1.Text = "qxTz9H0N"

Exit Select

Case 3

Me.TextBox1.Text = "GrfzKkhy"

Exit Select

Case 4

Me.TextBox1.Text = "! Generator by ExClusiVe dla MPC !"

Exit Select

Case 5

Me.TextBox1.Text = "HmOlq0hX"

Exit Select

Case 6

Me.TextBox1.Text = "BXxYcAvv"

Exit Select

Case 7

Me.TextBox1.Text = "hVBjBJQS"

Exit Select

Case 8

Me.TextBox1.Text = "t643PmbU"

Exit Select

Case 9

Me.TextBox1.Text = "x70l3LJb"

Exit Select

Case 10

Me.TextBox1.Text = "dKJIUbQU"

Exit Select

Case 12

Me.TextBox1.Text = "c7ow7BOs"

Exit Select

Case 13

Me.TextBox1.Text = "0iG9aJvJ"

Exit Select

Case 14

Me.TextBox1.Text = "zLRpeqYN"

Exit Select

Case 15

Me.TextBox1.Text = "Flm7PvWv"

Exit Select

Case &H10

Me.TextBox1.Text = "y601xi6x"

Exit Select

Case &H11

Me.TextBox1.Text = "HoUwqiMk"

Exit Select

Case &H12

Me.TextBox1.Text = "zVefL46Q"

Exit Select

Case &H13

Me.TextBox1.Text = "YPo5Jekl"

Exit Select

Case 20

Me.TextBox1.Text = "dRh8lTNk"

Exit Select

Case &H15

Me.TextBox1.Text = "YeadRzUd"

Exit Select

Case &H16

Me.TextBox1.Text = "TKEhLdbQ"

Exit Select

Case &H17

Me.TextBox1.Text = "erzdRt8B"

Exit Select

Case &H18

Me.TextBox1.Text = "TL10fRYd"

Exit Select

Case &H19

Me.TextBox1.Text = "ISeFGzuE"

Exit Select

Case &H1A

Me.TextBox1.Text = "fk3nrvlb"

Exit Select

Case &H1B

Me.TextBox1.Text = "NGGT7YSG"

Exit Select

Case &H1C

Me.TextBox1.Text = "U6KhJZhj"

Exit Select

Case &H1D

Me.TextBox1.Text = "9EWgxDlx"

Exit Select

Case 30

Me.TextBox1.Text = "Vm17FPrj"

Exit Select

Case &H1F

Me.TextBox1.Text = "x8S4XLHL"

Exit Select

Case &H20

Me.TextBox1.Text = "8g8V4FMj"

Exit Select

Case &H21

Me.TextBox1.Text = "0K2EcJ3C"

Exit Select

Case &H22

Me.TextBox1.Text = "cpCTAJGk"

Exit Select

Case &H23

Me.TextBox1.Text = "WHAZtS6q"

Exit Select

Case &H24

Me.TextBox1.Text = "SLDRzlUy"

Exit Select

Case &H25

Me.TextBox1.Text = "eM6b2OFA"

Exit Select

Case &H26

Me.TextBox1.Text = "5kqd6DVY"

Exit Select

Case &H27

Me.TextBox1.Text = "azrC1B9x"

Exit Select

Case 40

Me.TextBox1.Text = "rwz9dJdI"

Exit Select

Case &H29

Me.TextBox1.Text = "6MfBntaA"

Exit Select

Case &H2A

Me.TextBox1.Text = "YFnTWZuI"

Exit Select

Case &H2B

Me.TextBox1.Text = "eAEAPlxE"

Exit Select

Case &H2C

Me.TextBox1.Text = "Xnwi92C4"

Exit Select

Case &H2D

Me.TextBox1.Text = "q075Sncd"

Exit Select

Case &H2E

Me.TextBox1.Text = "yhUJF9RJ"

Exit Select

Case &H2F

Me.TextBox1.Text = "XsiJQzV1"

Exit Select

Case &H30

Me.TextBox1.Text = "xwUA4Rvd"

Exit Select

Case &H31

Me.TextBox1.Text = "XVGOJJGp"

Exit Select

Case 50

Me.TextBox1.Text = "BLVH5iVx"

Exit Select

Case &H33

Me.TextBox1.Text = "0c12zzLm"

Exit Select

End Select

 

Wyświetla losowo 'case' .. więc to nie jest generator..

Masz rację. Przetestowałem i cały czas te same hasła... Już lepszy generator w batchu zrobiłem i to lepiej działający...

4770714280454741315510.png
StuSto Znawca

StuSto

Opublikowano
Znawca

StuSto

Opublikowano

Wszystko dlatego że ci kodzik podalem :) A przed pomoca program 0gr warty :)

@A co do V3

Zrob textbox gdzie sie wpisuje liczbe ile ma byc wygenerowanych cyfr bo nie lubie ograniczen :-)

no to dodaj textbox1 o poczatkowej wartosci "5"

i obok przycisk "Generuj"

 

intNameLength(1) = 8

Zamiast "8" wpisz textbox.text (tam gdzie jest 5)

a w generuj

textbox.text = Generate()
Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

Opublikowano

Kurde... nie wiem co próbujesz robić.. ale robisz to źle...

Generatorem haseł można nazwać to

GenPswd.png

Pobierasz sobie ilość znaków i na zasadzie tego losujesz losowy ciąg znaków o danej długości i z takimi elementami jak np zaznaczone są w checkboxach (każdy checkbox dorzuca ci nową opcję do losowania). Dodatkowo możesz zrobić opcję auto kopiowania do schowka. I jak losujesz, to poczytaj o bardziej "losowym losowaniu" w językach programowania, a dane wczytuj od zera za każdym przyciśnięciem przycisku, coby nic ci nie zostało co by mogło przemieszać nowe z poprzednim itp.

@Edit:
Jakby ktoś chciał zobaczyć działanie tego, to jest u mnie na stronie podanej w profilu w zakładce download.

9obpmnjr.png

ExClusiVe. Bywalec

ExClusiVe.

Opublikowano
Bywalec

ExClusiVe.

  • Autor
Opublikowano

@ up każdy kiedyś zaczynał ... więc nie napisałem że jest to zajebisty generator ...

Wszystkiego się trzeba nauczyć ... a tworząc metodą prób i błędów nauczę się więcej ...

 

więc swoj generator sobie schowaj ... <3

49107108736459053618.png

KONKURS !

KLIK !

Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

Opublikowano

@ up każdy kiedyś zaczynał ... więc nie napisałem że jest to zajebisty generator ...

Wszystkiego się trzeba nauczyć ... a tworząc metodą prób i błędów nauczę się więcej ...

 

więc swoj generator sobie schowaj ... <3

 

Dlatego wyraźnie podałem Ci co i jak, przykładowo podając swój byś widział o co chodzi. Nie sztuką jest hejtować, ale też sztuką jest zrozumieć co ktoś do ciebie napisał, nie biorąc tego za hejt xD

9obpmnjr.png

StuSto Znawca

StuSto

Opublikowano
Znawca

StuSto

Opublikowano

Kurde... nie wiem co próbujesz robić.. ale robisz to źle...

 

Generatorem haseł można nazwać to

GenPswd.png

 

Pobierasz sobie ilość znaków i na zasadzie tego losujesz losowy ciąg znaków o danej długości i z takimi elementami jak np zaznaczone są w checkboxach (każdy checkbox dorzuca ci nową opcję do losowania). Dodatkowo możesz zrobić opcję auto kopiowania do schowka. I jak losujesz, to poczytaj o bardziej "losowym losowaniu" w językach programowania, a dane wczytuj od zera za każdym przyciśnięciem przycisku, coby nic ci nie zostało co by mogło przemieszać nowe z poprzednim itp.

 

@Edit:

Jakby ktoś chciał zobaczyć działanie tego, to jest u mnie na stronie podanej w profilu w zakładce download.

 

Zamiast tych checkbox lepiej dodal bys textbox gdzie mozna dodawac z czego sie ma losowac... I np jak sie losowalo z 12345... i ktos chce zmienic na normalny to klika przycisk RESET

SS:

04393531163691969323.jpg

 

Oczywiscie program sluzy tylko mi do generowania :) I jest nie publiczny

Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

Opublikowano

Zamiast tych checkbox lepiej dodal bys textbox gdzie mozna dodawac z czego sie ma losowac... I np jak sie losowalo z 12345... i ktos chce zmienic na normalny to klika przycisk RESET

SS:

04393531163691969323.jpg

 

Oczywiscie program sluzy tylko mi do generowania :) I jest nie publiczny

 

Robisz z tego total tabu. Zadna filozofia losować z wpisanej tablicy znaków ;)

9obpmnjr.png

StuSto Znawca

StuSto

Opublikowano
Znawca

StuSto

Opublikowano

Nom ale mowie twoj generator żaden prof ... wiec nawet nie wiem po co jego przyklad zrobiles bo zwykly chlam ...

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...