randomize encryption ..

this is tough,, and i guess i'm in the right site, i wonder is there
somebdy here can help me about randomize encryption, like for example
i input my name angelito and i press the encrypt so the output would
be a chr(ascii) , and when i re-input my name angelito and encrypt it
the output of chr(ascii) would NOT be the same in the first
chr(ascii) , so everytime i input the name angelito and encrypt it
different chr(ascii) would appear, my problem is how about when i
unload the form or close the program and i have this character >>
"#ÞÑÎÝØïæ" << this one was encrypted .. And when i run the program and
put it on the decrypt box the decrypted output was not the string
angelito .. how about dat??

-- here's my work ...

Option Explicit
Dim random_stck As Integer
Dim i As Integer
Dim Cryptology As Integer
Dim Cypher As String
Dim cd As Integer
Dim crypt1 As Integer
Private Sub cmddecrypt_Click()
D_CRYPT (Text1.Text)
End Sub
Private Sub cmdencrypt_Click()
E_CRYPT (Text1.Text)
End Sub

Private Sub E_CRYPT(Text As String)
random_stck = Int(Rnd * Len(Text))
Cryptology = Asc(Mid(Text, 1, 1)) + random_stck

For i = 1 To Len(Text)
Cryptology = Asc(Mid(Text, i, 1)) + random_stck
Cypher = Cypher & Chr(Cryptology And 255)
Next
Text1.Text = Cypher
Cypher = vbNullString
End Sub

Private Sub D_CRYPT(Text As String)
For i = 1 To Len(Text)
Cryptology = Asc(Mid(Text, i, 1)) - random_stck
Cypher = Cypher & Chr(Cryptology And 255)
Next
Text2.Text = Cypher
Cypher = vbNullString
End Sub

Private Sub Form_Load()
Randomize
End Sub

it's only on the form i didn't put it on any modules ...

.

Relevant Pages

  • Re: randomize encryption ..
    ... i input my name angelito and i press the encrypt so the output would ... Dim random_stck As Integer ... Dim Cypher As String ... Private Sub cmddecrypt_Click ...
    (microsoft.public.vb.general.discussion)
  • Re: Need help decrypting
    ... Just a brief look: in your encrypt function you ... > I'm wondering if somebody can help me figure out how to decrypt data. ... > Private Sub Encryptpwd() ... > Dim ms As New MemoryStream ...
    (microsoft.public.dotnet.security)
  • Re: Need help decrypting
    ... I changed the password in Encrypt just before I posted. ... > I'm wondering if somebody can help me figure out how to decrypt data. ... > Private Sub Encryptpwd() ... > Dim ms As New MemoryStream ...
    (microsoft.public.dotnet.security)
  • Re: Extreme Porn - Hiding your Stash ?
    ... data that we want to encrypt. ... being XORed with the plaintext. ... the breaking of the German Lorenz cypher ... this was because the obscuring characters weren't as random as ...
    (uk.legal)
  • Is this Possible?
    ... I wish to encrypt an IP:PORT datum, ... would mean that encoding 0 over and over would only give 10 different ... every such cypher sent out. ... for equivalent-to-DES-64 level security (where brute-force is the only ...
    (sci.crypt)