Man använder RND i de flästa krypteringar för att skapa en nyckel och sedan krypterarman med lösenordet,,, hur funkar det med nycklar och lösenord, hur dekrypterar man sendan när lösenordet är det ända man vet, nyckeln vet man ju inte i huvudet..... Någon som är bra på cryptografi och är KING på programering?

Och hur fungerar block cryptering?
Hur gör man en krypterings algorithm som krypterar med mer än 8-bitar?

Jag kanske ska inleda med att jag inte vet någonting om kryptering men har hört talas om en algorithm där man använder två primtal på sisådär 10.000 siffror var och multiplicerar dem med varandra och använder den sedan på det som ska krypteras! Vad jag undrar är hur de lyckas med det utan att få overflow! Det går ju inte ens i C++ med de variabeltyperna de har där heller!

Ale Thoor

Kanske allokera minne på egenhand och fyll i det värde som behövs..
utför operationer på denna minnes biten..

bara en tanke

För det första så heter krypteringssättet du tänker på RSA och för det andra så finns det ett extra bibliotek till C++ som heter typ GNUMP eller nåt sådant som går att ladda ner från internet och som klarar sådana stora siffror men jag vet inte om det finns något till vb...

Mvh. Johan Segolsson

Kan det här vara nå?

High Security Encryption DLL (DES, Blowfish, Twofish, Gost, RC4, Skipjack, & CryptoAPI!)

Description: This is an ActiveX DLL which allows you to use some of the most secure encryption algorithms avaliable - including Blowfish, Twofish, DES, and Skipjack (This code is not copyright by myself, however the creators of the algorithm(s) may)

Complete source code is at:
http://www.planet-source-code.com/vb/default.asp?lngCId=13200&lngWId=1


/Danne

Jag har nu lyckats att skapa en 8 - bits kryptering som använder en mask och lösenord m.m. det finns lite onödiga saker med men jag har inte hunnigt att ränsa bort det än (Den är mycket sölig 50kb / sec på min dator):
'code starts here
' ********************************
' Title: Gold Fish Encoder
' Version: 1.02.032
' Updated: 29th November 2000
' Author: Tim Hegyi
' License: Freeware.
' Suport: tim_hegyi@hotmail.com
' Func(s): EnCryptXor [EnCode File]
' DeCryptXor [DeCode File]
' Subs: MaskReset (Used by EnCryptXor and DeCryptXor to reset the mask)
' ********************************
Public Sub MaskReset()
Rnd -1
Randomize 1
End Sub
Public Function EnCryptXor(Infile As String, Outfile As String, Password As String) As Boolean
MaskReset
Dim EncTeck As String * 1
On Error GoTo errheree
For A = 1 To Len(Password)
B = B + Sqr(Asc(Mid(Password, A, 1)))
Next A
CountNow = 1
Do
B = Sqr(B)
Loop Until B <= 255 And B >= 0
B = Int(B)
Open Infile For Binary As #1
Open Outfile For Binary As #2
Infilelenth = LOF(1)
Passlenth = Len(Password)
For A = 1 To Infilelenth
p = p + 1
CountNow = CountNow + 1
If CountNow > 255 Then CountNow = 1
If p > Passlenth Then p = 1
Get #1, A, EncTeck
PassKey = Asc(Mid(Password, p, 1))
f = Infilelenth
'the masker
For maskLoop = 1 To PassKey
Mask = Int(Rnd * 255)
Next
EncTeck = Chr(((((Asc(EncTeck) Xor PassKey) Xor CountNow) Xor Mask) Xor B))
'the masker end
Put #2, A, EncTeck
Next
EnCryptXor = True
be:
Close #2
Close #1

Exit Function
errheree:
EnCryptXor = False
GoTo be
End Function
Public Function DeCryptXor(Infile As String, Outfile As String, Password As String) As Boolean
MaskReset
Dim EncTeck As String * 1
On Error GoTo errhere
For A = 1 To Len(Password)
B = B + Sqr(Asc(Mid(Password, A, 1)))
Next A
CountNow = 1
Do
B = Sqr(B)
Loop Until B <= 255 And B >= 0
B = Int(B)
Open Infile For Binary As #1
Open Outfile For Binary As #2
Infilelenth = LOF(1)
Passlenth = Len(Password)
For A = 1 To Infilelenth
p = p + 1
CountNow = CountNow + 1
If CountNow > 255 Then CountNow = 1
If p > Passlenth Then p = 1
Get #1, A, EncTeck
PassKey = Asc(Mid(Password, p, 1))
f = Infilelenth
'the masker
For maskLoop = 1 To PassKey
Mask = Int(Rnd * 255)
Next
EncTeck = Chr(((((Asc(EncTeck) Xor PassKey) Xor CountNow) Xor Mask) Xor B))
'the masker end
Put #2, A, EncTeck
Next
DeCryptXor = True
bd:
Close #2
Close #1
Exit Function
errhere:
DeCryptXor = False
GoTo bd
End Function
'code ends here

TACKAR SÅ MYCKET , DET VER PRECIS DET HÄR JAG VILLE HA ;-) TACKAR!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!