fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Code von movax für fbp-gast1

Uploader:	ytwinky
Datum/Zeit:	26.08.2010 21:26:44

'[hash.bas]

'Hiyo Freaks!                          13-01-2001

'So, hier geb ich euch mal ein kleines programm...

'..ja. :)

'wozu ist es gut?

'ihr k”nnt es benutzen, wenn ihr in euren eigenen

'programmen irgendwas durch ein passwort schtzen

'wollt, welches aber nirgendwo im klartext oder

'auch verschlsselt zu sehn sein soll...

'(das bringt natrlich nur sinn, wenn ihr das prog

'kompiliert und die .EXE weitergebt)...

'dazu denkt ihr euch ein wort oder nen satz aus,

'lasst die makehash-function drberlaufen und merk

'euch dann nur noch die zahl, die da rauskommt...

'mit der vergeleicht ihr dann in eurem programm den

'wert des eingegebenen passworts und wenn die werte

'gleich sind...ihr wisst schon :)

'(so kann man brigens auch leicht eine datei mit ei-

'nem passwort versehen, welches (am besten als hexwert)

'direkt in der datei selber steht...)



'und wie bei jedem verfahren hat auch das hier seine

'vor- und nachteile:

'        + das wirkliche passwort ist fr neugierige

'          weder im klartext noch verschlsselt er-

'          sichtlich

'        - es kommt vor, das verschiedene w”rter den

'          selben wert ergeben...aber das bringt

'          nicht viel wenn z.B. "Hausbauer" den selben

'          wert ergeben wrde wie "saSõ$/gH3"...wer

'          gibt DAS schon ein *g*

'ok, dann lass ich euch jetzt mit dem code allein...

'sagt mir mal, ob ihr etwas damit anfangen konntet...



'     - eMail: themovax@web.de -

'     - www: movax.notricks.de -



'bis dann, CU,

'           movax



Declare Function MakeHash(HashKey As String) As Integer

Var HashKey="FreeBasic ist cool", k=MakeHash(Hashkey), bite=Hex(k), Pwd=""

If Len(bite) Mod 2 Then bite+="0"



Cls

Print "Schlssel: " & HashKey &!"\nHash-Wert:" &k &!"\nBytefolge: " & bite &!"\nPasswort-Test"

INPUT "Passwort: ", Pwd

Print "Zugang " &*IIf(makehash(Pwd)<>k, @"verweigert!", @"gew„hrt!")

GetKey

'ok, hier ist die tolle makehash-funktion...

'(is gar nich so hart, was :)

Function MakeHash(HashKey As String) As Integer

    Dim k As Integer

    For i As Integer=1 To Len(HashKey)

    k+=(HashKey[i-1]-20)*(7+i*3)

    Next i

  Return k

End Function

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.