Thread View: pl.comp.bazy-danych.msaccess
6 messages
6 total messages
Started by minfo
Mon, 13 Nov 2017 18:24
Funkcja porównująca dwa hasła.
Author: minfo
Date: Mon, 13 Nov 2017 18:24
Date: Mon, 13 Nov 2017 18:24
38 lines
1930 bytes
1930 bytes
Witam, Popełniłem funkcję sprawdzającą 2 hasła. Wprowadzone z klawiatury z drugim w kodzie aplikacji. Czy widzicie jakieś braki w tej funkcji? Nie przewidziane działanie? ______________________________ Public Function CzyPoprawne(vHaslo, vComp) As Boolean If Len(vHaslo) <> Len(vComp) Then CzyPoprawne = False GoTo Exit_CzyPoprawne End If For i = 1 To Len(vHaslo) If Asc(Mid(vHaslo, i, 1)) <> Asc(Mid(vComp, i, 1)) Then CzyPoprawne = False GoTo Exit_CzyPoprawne End If Next i CzyPoprawne = True Exit_CzyPoprawne: Exit Function End Function ************ Proszę o komentarze. MF
Re: Funkcja porównująca dwa hasła.
Author: Krzysztof Naworyta
Date: Mon, 13 Nov 2017 19:56
Date: Mon, 13 Nov 2017 19:56
52 lines
2925 bytes
2925 bytes
1. Obydwa argumenty funkcji są typu variant a więc mogą być Null oraz mogą być dowolnymi obiektami. Nie chce mi się sprawdzać, ale dla Null chyba zwróci True. 2. Po co sprawdzanie tego rodzaju? Funkcja StrComp z trzecim argumentem = 0 nie wystarczy? 3. Zapamiętywanie haseł to nienajlepsza praktyka. Trochę wprawy, podpięcie pliku jako biblioteki by w przeglądarce obiektów przeglądnąć funkcje, potem w Notepad++ poszukać nazwę funkcji i wyłapać vComp (tak w ogólności). Jak już, to przechowywać hasze i tylko hasze porównywać. (skoro pytasz o opinię - ale jak piszesz dla zwykłego end-usera/komara to nie mówmy o armatach) KN W dniu poniedziałek, 13 listopada 2017 19:24:25 UTC+1 użytkownik mi...@onet.pl napisał: > Witam, > Popełniłem funkcję sprawdzającą 2 hasła. > Wprowadzone z klawiatury z drugim w kodzie aplikacji. > > Czy widzicie jakieś braki w tej funkcji? > Nie przewidziane działanie? > > > ______________________________ > Public Function CzyPoprawne(vHaslo, vComp) As Boolean > > If Len(vHaslo) <> Len(vComp) Then > CzyPoprawne = False > GoTo Exit_CzyPoprawne > End If > > For i = 1 To Len(vHaslo) > If Asc(Mid(vHaslo, i, 1)) <> Asc(Mid(vComp, i, 1)) Then > CzyPoprawne = False > GoTo Exit_CzyPoprawne > End If > Next i > > CzyPoprawne = True > > Exit_CzyPoprawne: > Exit Function > > End Function > > > > ************ > > > Proszę o komentarze. > > MF
Re: Funkcja porównująca dwa hasła.
Author: minfo
Date: Mon, 13 Nov 2017 21:38
Date: Mon, 13 Nov 2017 21:38
1 lines
1480 bytes
1480 bytes
Dzięki!
Re: Funkcja porównująca dwa hasła.
Author: Radosław Biernacki
Date: Mon, 13 Nov 2017 23:33
Date: Mon, 13 Nov 2017 23:33
6 lines
1804 bytes
1804 bytes
W dniu poniedziałek, 13 listopada 2017 20:56:57 UTC+1 użytkownik Krzysztof Naworyta napisał: > 1. Obydwa argumenty funkcji są typu variant a więc mogą być Null oraz mogą być dowolnymi obiektami. Wszelki duch... Kamień z serca - myślałem, że nasz guru zaginął :) Pozdrowienia.
Re: Funkcja porównująca dwa hasła.
Author: LeszekN
Date: Tue, 14 Nov 2017 11:55
Date: Tue, 14 Nov 2017 11:55
6 lines
1624 bytes
1624 bytes
Kulson jego mać!!!! a ja już myślałem że wszyscy wielcy zapomnieli o Accessie chlebem i solą ;) pozdrawiam Największego KN'a
Re: Funkcja porównująca dwa hasła.
Author: Zbigniew Bratko
Date: Tue, 14 Nov 2017 13:01
Date: Tue, 14 Nov 2017 13:01
15 lines
1498 bytes
1498 bytes
W dniu 2017-11-13 o 20:56, Krzysztof Naworyta pisze: > . Po co sprawdzanie tego rodzaju? Funkcja StrComp z trzecim argumentem = 0 nie wystarczy? [...] KN tak jak i Smyk. <cyt> Pojawiasz się i znikasz, i znikasz, i znikasz, Mam na twym punkcie bzika, mam bzika, mam bzika, Daj się sobą nacieszyć, nacieszyć, nacieszyć ... </cyt> Ale jak nie będzie ciekawych pytań to KN znowu zniknie na lata. Chyba trzeba zmienić Nicka i wrzucić parę "trudniejszych pytań" ;-)
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads