加密文本框并导出到文件

 收藏

好的,我知道以前已经有人问过这个问题,但是我是VB的新用户,不知道从哪里开始。

我的一个伙伴正在为我创建一个使用VB的自定义Minecraft启动器。

我们有2个文本框,用户名和密码,我要执行的操作是关闭.exe以将用户名和密码的内容保存到.file,但是出于安全考虑,在导出到文件名后,需要对其进行加密。电脑。

有人可以给我代码来加密2个文本框吗,其中用户名称为txtUsername,密码名为txtPassword。

它可以是非常简单的加密,例如仅切换字符集或类似的操作,从而使A = I 或随机的东西,除非有人能想到更好的加密方式。

如果有人可以编写代码,以便我可以复制并粘贴它,或者有人可以指出正确的方向。

先感谢您

问候 潜鸟97

回复
  • 死一般的静 回复

    As far as encryption, you can encrypt your settings file. For example: http://www.codeproject.com/Articles/18209/Encrypting-the-app-config-File-for-Windows-Forms-A

    Or you an encrpyt the strings themselves through the System.Security.Cryptography Namespace. More on that here:
    http://msdn.microsoft.com/en-us/library/system.security.cryptography.aspx

  • 笑微笑 回复

    然后如何在下次启动时加载它?

    它是否正确?

    `

    Private Sub Launcher_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ImageNum = 0
            txtUsername.text = My.Settings.Username
            txtPassword.text = My.Settings.Password
    End Sub
    

    `

  • qfugit 回复

    采用

    My.Setting.'item name'
    

    您无需将设置与应用程序分开

  • 顽固不化 回复

    而我在哪里把这段代码

      Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
            CheckBox1.Checked = True
    
        End Sub
    
    
        Private Sub txtPassword_TextChanged(sender As Object, e As EventArgs) Handles txtPassword.TextChanged
    
        End Sub
    
        Private Sub txtUsername_TextChanged(sender As Object, e As EventArgs) Handles txtUsername.TextChanged
    
        End Sub
    

    当复选框为true时,我希望它保存用户并通过。

  • aet 回复

    You can find the code here

  • ~昵称 回复

    首先,您应该创建保存的属性 为此,我已经画了一张照片 您可以选择“名称”,“类型”,“范围”和“值” 选择用户范围,以便可以通过代码更改值

    now you can change it form your code : My.Settings.MyPropertyName

    您可以使用按钮保存文本框:

    在这里,我们有两个名为“ UserName”和“ Password”的属性

     Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
            My.Settings.UserName=txtUserName.text
            My.Settings.Password=txtPassword.text
            My.Settings.Save()
     End Sub
    

  • 一起疯了 回复

    好吧,这似乎可行

    非常感谢你!