/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
udskiftning af bogstaver
Fra : diztort


Dato : 23-04-02 21:16

jeg vil gerne lave et proggie sådan at der er 2 textfelter (det er ikke så
svært) men 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... men det skal være sådan så
at et A fx bliver til et S og S til D osv.... hvordan det ?



 
 
Tomas Christiansen (23-04-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 23-04-02 23:32

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


diztort (24-04-2002)
Kommentar
Fra : diztort


Dato : 24-04-02 15:06

nejnej.... det er heller ikke rigtig meningen at de skal kunne det.... det
er bare et lille proggie til mig selv... tak



diztort (24-04-2002)
Kommentar
Fra : diztort


Dato : 24-04-02 16:05

jeg har lige et spørgsmål til.. hvad nu hvis jeg vil have et bogstav til at
blive til flere tegn.. ex,
et F til SG



Tomas Christiansen (24-04-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 24-04-02 22:14

diztort skrev:
> jeg har lige et spørgsmål til.. hvad nu hvis jeg vil have et bogstav
til at
> blive til flere tegn.. ex,
> et F til SG

1. Er det kun bogstaver, som du vil kunne kryptere eller er det alle
tegn fra ANSI værdi 0 til 255?
2. Skal du kunne dekryptere dine SG'er tilbage til F'er?

-------
Tomas


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste