For hvert bogstav

En søgning på password her på eksperten.dk 's søgefunktion under Visual Basic gav bl.a. http://www.eksperten.dk/spm/388095 hvor der er et komplet eksempel... evt læs min artikkel om søgning på eksperten: http://www.eksperten.dk/artikler/112 :)

Jo tak men det er jo ikke et kryptnings program jeg vil have.
Og til det med at søge på eksperten har jeg gjort det.

hvis det ikke er kryptering du vil have, hva er det så?

det jeg skal bruge er hvis jeg taster peter i text1 så er eks. p=54fg og e=44gh t=hfdy og r=noget andet

vil du sætte hvert enkelt bogstavs værdier selv?, eller skal det ske over noget logik?... for mig minder det stadig om kryptering

Ja jeg vil sætte mine egne verdier for hvert bogstav :)

en logisk metode:
Find bogstavets HEX decimal, denne er 2 cifre, dereftef kan du for de to nye bogdtaver, finde deres HEX decimaler, og nu har du en logisk måde at give hvert bogsav, eller et hvilket somhelst tegn et 4 cifret nummer

så dit problem er at tage et ciffer af gangen?
  For i = 1 To Len(string)
    tegn = Mid$(string, i, 1)
  Next i

HEX ? ok

Hvordan vil du lige have jeg skal bruge Hex og "For i" lykken Jeg er lidt "Grøn"

nåeh, der var hvis computeren skulle generere nogle tal til bogstaverne

Jeg fatter det ikke helt kan du skære det ud i pap

Er det således du ønsker det :
Private Sub Command1_Click()
Dim Myletters(128) As String
'Oversatte tekster...
Myletters(32) = "space"
Myletters(65) = "a-bogstav"
Myletters(66) = "b-bogstav"
Myletters(69) = "a-bogstav"
...her skal alle ascii karakters defineres - jeg har kun defineret de bogstaver testen skulle bruge
test = "ABE"
For i = 1 To Len(test)
    Debug.Print Mid(test, i, 1)
    outputstr = outputstr & Myletters(Asc(Mid(test, i, 1)))
Next i

outputstr indeholder det oversatte tekstfelt

End Sub

Det skal være sådanne så man i en textbox_Change skriver et navn og man rammer et "p" eller et andet givent bogstav skal den ændre p til eks."TI76" i en label mens andre ikke givent bogstaver sker der ikke noget ved.

Ja det ændrer jo ikke noget på løsningen, men hvis du vil se det implementeret, så opret en formular, med et tekstfelt som skal hedde text1 og så skal du lægge flg. kode ind:

Dim Myletters(128) As String
Dim OutputStr As String

Private Sub Text1_KeyPress(KeyAscii As Integer)
Myletters(32) = "space"
Myletters(65) = "a-bogstav"
Myletters(66) = "b-bogstav"
Myletters(69) = "e-bogstav"

If Len(Myletters(KeyAscii)) > 0 Then
    OutputStr = OutputStr & Myletters(KeyAscii)
Else
    OutputStr = OutputStr & Chr(KeyAscii)
End If

Text1.Text = OutputStr
KeyAscii = 0

End Sub

En udbygning af ovenstående ville være at have 2 tekstbokse : 1 til at indtaste og 1 til at vise resultatet i, da den enkle implementering virker men ikke er brugervenlig, da der ikke står de tegn i tekstboksen, som brugeren har indtastet :-)

Jeg har nu lavet den følgende kode med det som du har skrevet men med output til text2 og jeg kan kun få space til at virke hvor den retunere "space" i text2 men den gør det ikke med a-bogstav b-bogstav og e-bogstav :(

det skyldes at KeyAscii for A er 65 men KeyAscii for a ikke er 65 (forskel på store og små bogstaver). Prøv at udskrive KeyAscii som det første i sub Text1_KeyPress, så vil du kunne se ascii værdien på de tegn du indtaster - f.eks er ascii værdien for C 67 - og skal dette tegn omformes så skal du have en extra linie i sub'en som hedder MyLetters(67) = "hvaddunusynes".

Ok takker for din inspiration.

Det er en usædvanlig dårlig ide at 'opfinde' sin egen krypterings algoritme.
Der findes algoritmer til kryptering i CryptoAPI som dels er gennemprøvede og fejlfri, og som dels er meget sværere at knække, end noget man selv kan strikke sammen.
Blot et godt råd :-)