Hallo!
Ich hab ein Programm mit dem man geschriebenes in den ANSI code verwandeln kann.
Ich wollte es aber auch so machen, dass man es wieder zurückverwandeln kann.

MFG der King
PS:Vielleicht hilft das weiter:
a=97
b=98
...immer +1
A=65
B=66
...immer +1
leer=32
!=33
.=46
könnt das Projekt ja mal runterladen unter:
direktlink

Geht das nicht einfacher mit StrConv ?

nein, es geht mit chr() (gegenfunktion zu asc())
ich würde den algorythmus anders machen, nämlich, dass der die leerstellen weglässt und die zahlen einfach dreistellig macht:<br /><br />

<pre><font face="courier new" size="2pt">
<font color="#000000"></font><font color="#0000AA">Option</font><font color="#000000"> </font><font color="#0000AA">Explicit</font><font color="#000000"></font>
<font color="#000000"></font><font color="#0000AA">Dim</font><font color="#000000"> i </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">Integer</font><font color="#000000"></font>
<font color="#000000"></font><font color="#0000AA">Dim</font><font color="#000000"> cascii </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">String</font><font color="#000000"></font>
<font color="#000000"></font><font color="#0000AA">Dim</font><font color="#000000"> hilf </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">Long</font><font color="#000000"></font>
<font color="#000000"></font>
<font color="#000000"></font><font color="#0000AA">Private</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"> dezasciikryptieren(eingabe </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">String</font><font color="#000000">)</font>
<font color="#000000"> txtAusgabe = ""</font>
<font color="#000000"> </font><font color="#0000AA">If</font><font color="#000000"> eingabe <> "" </font><font color="#0000AA">Then</font><font color="#000000"></font>
<font color="#000000"> </font><font color="#0000AA">For</font><font color="#000000"> i = 1 </font><font color="#0000AA">To</font><font color="#000000"> Len(eingabe)</font>
<font color="#000000"> cascii = Asc(Mid(eingabe, i, 1))</font>
<font color="#000000"> </font><font color="#0000AA">If</font><font color="#000000"> Len(cascii) = 1 </font><font color="#0000AA">Then</font><font color="#000000"></font>
<font color="#000000"> cascii = "00" & cascii</font>
<font color="#000000"> </font><font color="#0000AA">ElseIf</font><font color="#000000"> Len(cascii) = 2 </font><font color="#0000AA">Then</font><font color="#000000"></font>
<font color="#000000"> cascii = "0" & cascii</font>
<font color="#000000"> </font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">If</font><font color="#000000"></font>
<font color="#000000"> txtAusgabe = txtAusgabe & cascii</font>
<font color="#000000"> </font><font color="#0000AA">Next</font><font color="#000000"></font>
<font color="#000000"> </font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">If</font><font color="#000000"></font>
<font color="#000000"></font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"></font>
<hr width="100%">
<font color="#000000"></font><font color="#0000AA">Private</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"> dezasciidekryptieren(eingabe </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">String</font><font color="#000000">)</font>
<font color="#000000"> txtAusgabe = ""</font>
<font color="#000000"> </font><font color="#0000AA">If</font><font color="#000000"> eingabe <> "" </font><font color="#0000AA">Then</font><font color="#000000"></font>
<font color="#000000"> </font><font color="#0000AA">For</font><font color="#000000"> i = 1 </font><font color="#0000AA">To</font><font color="#000000"> Len(eingabe) </font><font color="#0000AA">Step</font><font color="#000000"> 3</font>
<font color="#000000"> cascii = Chr(Mid(eingabe, i, 3))</font>
<font color="#000000"> txtAusgabe = txtAusgabe & cascii</font>
<font color="#000000"> </font><font color="#0000AA">Next</font><font color="#000000"></font>
<font color="#000000"> </font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">If</font><font color="#000000"></font>
<font color="#000000"></font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"></font>
</font>
</pre>

damit kann man übrigens prima (sehr einfache) kryptierverfahren realisieren

cya nuss

nein

Ehrlich ?

msdn.microsoft.com/library/def…98/html/vafctstrconvx.asp

ok, hast doch recht

sry

cya nuss