is hier een functie voor?

[bv bas bv]

hallo is er een functie im mn script (zie onderaan)
kleiner te maken?

                        For ai = 1 To alTemp
                            asTemp(ai) = Mid(asString, ai, 1)



                            If asTemp(ai) = "a" Then
                                t3 = t3 + "z"

                            ElseIf asTemp(ai) = "b" Then
                                t3 = t3 + "y"

                            ElseIf asTemp(ai) = "c" Then
                                t3 = t3 + "x"

                            ElseIf asTemp(ai) = "d" Then
                                t3 = t3 + "w"

                            ElseIf asTemp(ai) = "e" Then
                                t3 = t3 + "v"

                            ElseIf asTemp(ai) = "f" Then
                                t3 = t3 + "u"

                            ElseIf asTemp(ai) = "g" Then
                                t3 = t3 + "t"

                            ElseIf asTemp(ai) = "h" Then
                                t3 = t3 + "s"

                            ElseIf asTemp(ai) = "i" Then
                                t3 = t3 + "r"

                            ElseIf asTemp(ai) = "j" Then
                                t3 = t3 + "q"

                            ElseIf asTemp(ai) = "k" Then
                                t3 = t3 + "p"

                            ElseIf asTemp(ai) = "l" Then
                                t3 = t3 + "o"

                            ElseIf asTemp(ai) = "m" Then
                                t3 = t3 + "n"

                            ElseIf asTemp(ai) = "n" Then
                                t3 = t3 + "m"

                            ElseIf asTemp(ai) = "o" Then
                                t3 = t3 + "l"

                            ElseIf asTemp(ai) = "p" Then
                                t3 = t3 + "k"

                            ElseIf asTemp(ai) = "q" Then
                                t3 = t3 + "j"

                            ElseIf asTemp(ai) = "r" Then
                                t3 = t3 + "i"

                            ElseIf asTemp(ai) = "s" Then
                                t3 = t3 + "h"

                            ElseIf asTemp(ai) = "t" Then
                                t3 = t3 + "g"

                            ElseIf asTemp(ai) = "u" Then
                                t3 = t3 + "f"

                            ElseIf asTemp(ai) = "v" Then
                                t3 = t3 + "e"

                            ElseIf asTemp(ai) = "w" Then
                                t3 = t3 + "d"

                            ElseIf asTemp(ai) = "x" Then
                                t3 = t3 + "c"

                            ElseIf asTemp(ai) = "y" Then
                                t3 = t3 + "b"

                            ElseIf asTemp(ai) = "z" Then
                                t3 = t3 + "a"

                            ElseIf asTemp(ai) = " " Then
                                t3 = t3 + "#"

                            ElseIf asTemp(ai) = "#" Then
                                t3 = t3 + " "

                            ElseIf asTemp(ai) = "." Then
                                t3 = t3 + "@"

                            ElseIf asTemp(ai) = "@" Then
                                t3 = t3 + "."

                            ElseIf asTemp(ai) = "?" Then
                                t3 = t3 + "&"

                            ElseIf asTemp(ai) = "&" Then
                                t3 = t3 + "?"

                            End If

                        Next

                        MsgBox(t3)
                    End If

 

[Ginanity]

Wat probeer je eigenlijk precies te doen?

 

[bv bas bv]

ik splits een woord op bijvoorbeeld :"iets"

dan wordt het woord gesplitst in
i
e
t
s

dan gaat hij kijken wat "i" moet worden
dan maakt hij er bijv "h" van

dan doet hij e en dan t ect

dan krijg je dus een gecodeert woord bijv : "laug"

met een array ofzo?

 

[Ginanity]

Dit kan je perfect oplossen door gebruik te maken van de substring() methode uit het String object. Verder kan je gebruik maken van ascii codes om je letterwaarde een x-aantal posities op te schuiven. Je berekent de ascii code van een letter en hierbij tel je eht aantal positie bij waarna je de ascii code terug rekent naar een letter.

scucces

 

[bv bas bv]

aha

daar zit wel wat in ff wat aanrommelen

 

[CoD_NL]

Je zou ook met een XOR-encryptie kunnen werken. Dan kun je ook een salt gebruiken.
Mocht je het toch op deze manier willen doen, dan kun je gewoon een charset opgeven. Dat werkt iets makkelijker.

Ik heb nu geen tijd om een voorbeeld te maken, dus post ik even een script van iemand anders die ik ken. (in een andere taal, en met een andere opzet. Maar het geeft je waarschijnlijk wel een idee van wat ik bedoel.

<?php
/* Converts a string to a number */
function ConvertCode($sGuess,$iCheckSum=9036819){
    $sCharSet = " 0123456789XswqbdefrmgthyjukilopA )(*&^%$#@!";
    $iSum = 0;
    for($x=0;$x<strlen($sGuess);$x++){
        $iSum += (1 + $x) + (strpos($sCharSet,substr($sGuess,$x,1)) * strlen($sGuess)*$x) * $x * ($x + 3);
    }
    if($iSum!=$iCheckSum){
        return(false);
    }
    return($sGuess);
}
?>