password rememberer in vb.net

[Porkie999]

Password rememberer

Ok I have 3 textboxes named "Login" , "Password" and "Website".

Basically when you enter the three details, I have a button which I press which saves it to a text file named Passwords.txt

What code am I looking at for this?


Really stuck any help would be nice :)


Regards
George

[VBPhilly]

password rememberer

ok i have 3 text boxes named "Login" , "Password" and "Website"

basically when you enter the three details , i have a button which i press which saves it to a text file named Passwords.txt

wot code am i looking at for this?


really stuck any help would be nice :)


regards
george

Are you looking for an encryption solution?

[VBPhilly]

password rememberer

ok i have 3 text boxes named "Login" , "Password" and "Website"

basically when you enter the three details , i have a button which i press which saves it to a text file named Passwords.txt

wot code am i looking at for this?


really stuck any help would be nice :)


regards
george

an encryption routine (courtesy of Andreas J”nsson):

Public Function RC4(ByVal Expression As String, ByVal Password As String) As String
On Error Resume Next
Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte
If Len(Password) = 0 Then
    Exit Function
End If
If Len(Expression) = 0 Then
    Exit Function
End If
If Len(Password) > 256 Then
    Key() = StrConv(Left$(Password, 256), vbFromUnicode)
Else
    Key() = StrConv(Password, vbFromUnicode)
End If
For X = 0 To 255
    RB(X) = X
Next X
X = 0
Y = 0
Z = 0
For X = 0 To 255
    Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256
    Temp = RB(X)
    RB(X) = RB(Y)
    RB(Y) = Temp
Next X
X = 0
Y = 0
Z = 0
ByteArray() = StrConv(Expression, vbFromUnicode)
For X = 0 To Len(Expression)
    Y = (Y + 1) Mod 256
    Z = (Z + RB(Y)) Mod 256
    Temp = RB(Y)
    RB(Y) = RB(Z)
    RB(Z) = Temp
    ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256))
Next X
RC4 = StrConv(ByteArray, vbUnicode)
End Function
 

[Porkie999]

no i want to be able to type say

dsfsjfjsjjfs in User Box
fjdjskfjds in password box
www.thescripts.com in website box

then i want to have a button which says "save" which then saves the 3 above pieces of text into a notepad file.

if u understand what i mean?

[Porkie999]

So like I said I want to be able to type a login, password and website in the 3 textboxes then click a button which saves it into my .txt file.

Just make any required adjustments to do this. I am really confused with this so any help would be appreciated.

Public Class Form1
    Dim Login As String
    Dim Password As String
    Dim Website As String
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        System.IO.File.WriteAllText("Password.txt", "C:\Documents and Settings\Admin\My Documents\Password.txt")
 
    End Sub
 
    Private Sub AddNewLoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNewLoginToolStripMenuItem.Click
 
    End Sub
End Class