🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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.
#137561
Author: minfo
Date: Mon, 13 Nov 2017 18:24
38 lines
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.
#137562
Author: Krzysztof Naworyta
Date: Mon, 13 Nov 2017 19:56
52 lines
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.
#137563
Author: minfo
Date: Mon, 13 Nov 2017 21:38
1 lines
1480 bytes
Dzięki!
Re: Funkcja porównująca dwa hasła.
#137564
Author: Radosław Biernacki
Date: Mon, 13 Nov 2017 23:33
6 lines
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.
#137565
Author: LeszekN
Date: Tue, 14 Nov 2017 11:55
6 lines
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.
#137566
Author: Zbigniew Bratko
Date: Tue, 14 Nov 2017 13:01
15 lines
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