diztort skrev:
> ...det skal være sådan at når man skriver i det ene felt og kliker
> på en knap så bliver den nærmest enkrypteret...
> ...at et A fx bliver til et S og S til D osv.... hvordan det ?
Hvis du selv vil have kontrol over hvad, som bliver til hvad, og at
det ikke skal ændre sig fra gang til gang, kan nedenstående være en
løsning.
Først skal tabellen over hvilke tegn, som udskiftes med hvilke,
initialiseres. Bemærk at det eneste "sjove" som sker i den, som jeg
har skrevet, er at "A" bliver ombyttet med "C" og omvendt.
Private K As Variant
K = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, _
16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, _
32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, _
48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, _
64, 67, 66, 65, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, _
80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, _
96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109,
110, 111, _
112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124,
125, 126, 127, _
128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140,
141, 142, 143, _
144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156,
157, 158, 159, _
160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172,
173, 174, 175, _
176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188,
189, 190, 191, _
192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204,
205, 206, 207, _
208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220,
221, 222, 223, _
224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236,
237, 238, 239, _
240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252,
253, 254, 255)
Selve krypteringsfunktionen er ganske enkel:
Function Krypter(ByVal sTekst As String) As String
Dim i As Long
For i = 1 To Len(sTekst)
Mid(sTekst, i, 1) = Chr(K(Asc(Mid(sTekst, i, 1))))
Next i
Krypter = sTekst
End Function
Nu kan du kryptere indholdet af tekstboksen txtInd og smide resultatet
ud i txtUd:
txtUd.Text = Krypter(txtInd.Text)
Dette kan gøres på *mange* forskellige måder - her er blot vist en
enkelt. Bryg selv videre, men viid at denne form for kryptering, kan
krypteringseksperter bryde med et halv øje og den ene arm bundet på
ryggen. Den er *overhovedet* ikke sikker!
-------
Tomas
|