vb如何让已经加密的代码显示出来（vb源代码加密）

今天给各位分享vb如何让已经加密的代码显示出来的知识，其中也会对vb源代码加密进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、如何在文本框中显示密码字符(vb 程序设计）
• 2、使用VB作出加密，解密并显示密钥
• 3、用VB代码在Excel中写代码，要求从数据库中读取出来的数据在Excel中显示出来并且加密某一列。
• 4、如何做VB才能显示密码编辑框中的密码
• 5、用vb编写一个加密程序,在原文本框中输入任何文本,立即加密在密文文本框中显示
• 6、用VB怎样把输入的密码变成星号（*）显示出来？

如何在文本框中显示密码字符(vb 程序设计）

1.第一步:打开vb程序设计，如下图所示。

2.第二步:选择要设置的控件，点击其“属性窗口”按钮，如下图所示。

3.步骤3:在其属性中找到“PasswordChar”，并在其后面的空气中键入“*”。Text1。PasswordChar="*"，如下所示。

4.第四步:按上面的操作实现密码字符在文本框中的显示，当密码显示为“*******”时，答案在文本框中，如下图所示。

使用VB作出加密，解密并显示密钥

'这是我以前回答别人提问时写的，添加三个文本框，一个按钮。text3文本框中输入要加密的

'文本，在text2中是加密的文本，在text1中是对加密的文本解密。加密和解密用同一个

'过程'Private Function JiaMi(a As String) As String

Private Sub Command1_Click()

Dim a As String

Dim b As String

a = Text3

For i = 1 To Len(a)

b = b JiaMi(Mid(a, i, 1))

Next i

Text2 = b

a = Text2

b = ""

For i = 1 To Len(a)

b = b JiaMi(Mid(a, i, 1))

Next i

Text1 = b

End Sub

Private Function JiaMi(a As String) As String

Dim IntAsc As Integer

IntAsc = Asc(a)

If IntAsc Mod 2 Then

IntAsc = IntAsc + 47

If IntAsc 126 Then IntAsc = IntAsc - 47

Else

IntAsc = IntAsc - 47

If IntAsc 33 Then IntAsc = IntAsc + 47

End If

JiaMi = Chr(IntAsc)

End Function

用VB代码在Excel中写代码，要求从数据库中读取出来的数据在Excel中显示出来并且加密某一列。

操作系统层面的VB？

还是Excel层面的VBA？

如果是在Excel中：

模块：

Option Explicit

Public oldCell As String

Sheet1：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count  1 Or Target.Column  3 Then

    If oldCell  "" Then Range(oldCell).NumberFormatLocal = """***"""

    oldCell = ""

Else

    Target.NumberFormat = ""

    If oldCell  "" Then Range(oldCell).NumberFormatLocal = """***"""

    oldCell = Target.Address

End If

End Sub

附件可下载参考

如何做VB才能显示密码编辑框中的密码

　我们在使用Windows时，经常会碰到一些密码编辑框，输入其中的文字都以“＊”显示。现在，有许多共享软件和自由软件都可以实现隐藏密码的正确显示。究竟这是怎样实现的呢！其实，这比较简单，虽然这些信息都以“＊”显示，但其内部还是以当初的字符表示，所以，我们只要用Windows API函数就可以实现。

在Windows中，每一个窗口、控件都有它的名字（叫做Name或Window Text）。对于Form、Dialog Box、Message Box来说，名字就显示在Title Bar中；对于Edit、Button、Static Control，名字显示在他所占的区域中。密码编辑框本身就是个Edit控件，虽然显示的是特殊字符，但名字属性没有变，还是输入时的字符。Windows提供了两个API函数来获得这个名字：

int GetWindowTextLength(HWND hWnd); ／／ 得到名字的长度

其中，hWnd ：想要得到的那个窗口或控件的句柄 handle

int GetWindowText(HWND hWnd, LPTSTR lpString, int nMaxCount );／／ 得到名字

其中，hWnd ：想要得到的那个窗口或控件的句柄 handle；

lpString：存放名字的字符串的地址

nMaxCount ：可拷贝的最大字符数

下面以Delphi为例，说明它的实现过程。

新建一Form，放置Label、Edit、Button各一个到Form中，将Edit1的PasswordChar属性改为“＊”，双击Button1：

procedure TForm1.Button1Click(Sender: TObject);

var

Name:PChar; ／／ 名字

L:integer; ／／ 名字的长度

begin

L:=GetWindowTextLength(Edit1.handle)＋1; ／／ 得到名字长度，并将长度加1

GetMem(Name,L);／／为将要得到的名字分配内存

GetWindowText(Edit1.handle,Name,L);／／得到名字

label1.Caption:=String(Name); ／／ 将得到的名字显示于 Label1

FreeMem(Name,0); ／／ 释放分配的内存

end;

经过运行，在Edit1中输入的密码就可通过Label1显示出来。

用vb编写一个加密程序,在原文本框中输入任何文本,立即加密在密文文本框中显示

Private Sub Command1_Click()

Dim s As String

For i = 1 To Len(Text1.Text)

s = s (Val(Mid(Text1.Text, i, 1)) + 2) Mod 10

Next i

Text2.Text = s

End Sub

用VB怎样把输入的密码变成星号（*）显示出来？

只要将textbox设置属性PARRWORDCHAR为“*”即可，如：textbox1.PasswordChar = '*';

TextBox组件使用虽然比较简单，但TextBox类的构成成员却是非常的丰富。在一般性的编程中，主要涉及到三类：属性、方法和事件。其中属性PasswordChar 获取或设置字符，该字符用于屏蔽单行。

把文本框的passwordchar属性设置为"*"，可以在属性窗口直接设置，也可以在程序中使用代码设置。例如：

Private Sub Form_Load()

Text1.PasswordChar = "*"

End Sub

扩展资料：

TextBox类的其它相关属性：

1、Enabled 获取或设置一个值，该值指示组件是否可以对用户交互作出响应。

2、Focused 获取一个值，该值指示组件是否有输入焦点。

3、Font 获取或设置组件显示的文字的字体。

4、ForeColor 获取或设置组件的前景色。

5、MaxLength 获取或设置用户可以在文本框组件中最多键入的字符数。

6、Multiline TRUE/FALSE，该值指示它是否为多行文本框组件。

参考资料来源：百度百科-textbox

关于vb如何让已经加密的代码显示出来和vb源代码加密的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。