VB ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
VBÎı¾¼ÓÃÜ ÌرðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâƪÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆѧÓ빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡¢½âÃܵļ¼Êõϸ½Ú¡£ÎÄÖÐÉîÈëµØ̽ÌÖÁËVB6Öкº×Ö¼Ó¡¢½âÃܵÄÔÀí¡¢É¢Áк¯ÊýµÄ¹¹Ôì·½°¸£¬ÔÚ¼Ó¡¢½âÃÜ·½²úÉúÉ¢Áк¯ÊýµÄÖÖ×ÓÖµ£¨³õʼֵ£©ºÍÓÃÓÚ¼Ó¡¢½âÃܵÄËæ»úÐòÁÐÊýµÄ·½·¨¡£×îºó¸Ã¼¼ÊõʵÏÖÁËÒ»¸ö¼òµ¥µÄ128λµÄ¼Ó¡¢½âÃÜ·½°¸¡£ÎÄÖÐÉæ¼°µ½Á˼ÓÃܼ¼ÊõµÄһЩÖ÷Òª¹Ø¼ü¸ÅÄî¼°Æä¾ßÌåʵÏÖ¼¼Êõ£¬ÈçÉ¢Áк¯Êý¡¢¼ÓÃÜÇ¿¶ÈµÈ¡£¡¡
Ð÷ ÂÛ
¡¡¡¡¼ÓÃÜ£¨Encryption£©ÊÇÐÅÏ¢±£»¤µÄÒ»Öֱز»¿ÉÉÙµÄÊֶΡ£Ä¿Ç°ÓÐÁ½ÖÖ»ù±¾µÄ¼ÓÃÜ·½·¨£¬¼´Ë½Ô¿¼ÓÃܺ͹«Ô¿¼ÓÃÜ¡£ÓÃVB¼È¿ÉÓÃ×Ô¶¨ÒåË㷨ʵÏÖ¼ò±ãµÄ˽Կ¼ÓÃÜ£¬Ò²¿Éͨ¹ýµ÷ÓÃCrypto API½Ó¿ÚʵÏÖ¸´ÔӵĹ«Ô¿¼ÓÃÜ¡£
¡¡¡¡±¾ÎĽéÉÜÒ»ÖÖ˽Կ¼ÓÃܼ¼Êõ£¬²»½öÄܼÓÃÜÓ¢ÎÄÎı¾£¬¶øÇÒÄÜÓÐЧ¼ÓÃܺº×Ö¡£
¡¡¡¡ÃÜÎÄÎı¾=HASH(DateTime)£«HASH(DateTime£«Key)£« Encryption(Text,HASH(DateTime)£«HASH(DateTime£«Key)
¡¡¡¡ VB¾ßÌåʵÏÖ¼¼Êõ
¡¡¡¡1£® »ù±¾¼Ó½âÃܺ¯Êý£¨XOR£©
¡¡¡¡ÔÚVBÖÐÌṩÁËÒ»¸öXORº¯Êý£¬Ëü¼È¿É¶Ô×Ö·ûÒ²¿É¶ÔÊý×Ö¡¢²¼¶û±äÁ¿½øÐÐÒì»ò£¬Á½´ÎÒì»òµÄ½á¹û¼´ÎªÔÖµ¡£Òò´Ë£¬ËüÊÇ»ù±¾¼Ó½âÃܺ¯Êý¡£
¡¡¡¡ÀýÈ磺Ascw£¨“Ï¢”£©XOR 28ֵΪ24943£¬24943 XOR 28ֵΪ24687£¬Chrw(24687) ֵΪ“Ï¢”¡£
¡¡¡¡2.ºº×ֵļÓÃÜÓë½âÃÜ·½·¨
¡¡¡¡ÔÚVBÖУ¬×Ö·ûµÄ´¦ÀíÏ൱¸´ÔÓ£¬ÌرðÊǺº×ÖºÍÓ¢ÎÄ×Ö·û»ìºÏ´¦Àí£¬Æä½á¹û¸üÊÇÎÞ·¨Ô¤ÁÏ¡£ÔÚVBÄÚ²¿£¬×Ö·ûÈ«²¿×÷ΪUnicode´¦Àí£¬²¢ÇÒVBÖ§³ÖÈýÖÖÀàÐ͵Ä×Ö·û¼¯£¬²¢ÌṩÁËÏàÓ¦µÄ×Ö·û´¦Àíº¯Êý¡£
¡¡¡¡VBÖ§³ÖµÄÈýÖÖÀàÐÍ×Ö·û¼¯ÊÇ£º
¡¡¡¡¢Å ANSI£ºÒ»¸ö×Ö½Ú±íʾһ¸ö×Ö·û£¬ºº×Ö±»×÷ΪÁ½¸ö ANSI×Ö·û£»
¡¡¡¡¢Æ DBCS£ºË«×Ö½Ú×Ö·û¼¯£¬0¡«128±íʾASCII×Ö·û£¬ ASCII×Ö·û³¤¶ÈΪ1¸ö×Ö½Ú£¬ºº×ֵȶ«ÑÇ×Ö·ûµÄ³¤¶ÈΪ2¸ö×Ö½Ú£¬ºº×Ö±»×÷Ϊһ¸öDBCS×Ö·û£»
¡¡¡¡¢Ç Unicode£ºÓÃÁ½¸ö×Ö½Ú±íʾÿ¸ö×Ö·û¡£ISO¼¸ºõΪÿÖÖÓïÑÔµÄÿ¸ö×Ö·ûºÍ·ûºÅÔÚ0¡«65£¬535£¨216£1£©·¶Î§¶¨ÒåÁËÒ»¸öÊý×Ö£¬ºº×Ö±»×÷Ϊһ¸öUnicode×Ö·û¡£
¡¡¡¡ÔÚVB6ÖУ¬×Ö·û´®µÄ´¦Àíº¯ÊýÓÐANSI/DBCS°æ±¾¡¢¶þ½øÖÆ°æ±¾ºÍUnicode°æ±¾¡£Òò´Ë£¬¶ÔÓÚºº×ֵĴ¦ÀíÏ൱¸´ÔÓ¡£
¡¡¡¡ÀýÈ磺Asc£¨·µ»ØµÚÒ»¸ö×Ö·ûµÄANSI/DBCS×Ö·û´úÂ룩£»
¡¡¡¡AscB£¨·µ»
Ïà¹ØÎĵµ£º
ËÄÜ°ïÎÒ°ÑÕâ¶Î´úÂëת³ÉVbµÄ´úÂ룬²»Ê¤¸Ð¼¤£¬Ð»Ð»£¡
void CTempDlg::OnOK()
{
UpdateData(1);
int nlen=m_edit1.GetLength();
char *username=m_edit1.GetBuffer(nlen);//¶¨ÒåÒ»¸öÐÂ×Ö·û´®username,³¤¶ÈΪnlen£¬²¢½«m_edit1ÖеÄ×Ö·û´®Ò»¸ö¸ö·ÅÈëµ½usernameÊý×éÖÐ
char strA[]="90123456 ......
VBÖеÄUnicode ºÍ Ansi ¸ñʽ
Visual Basic 32-bit °æ±¾µÄ×Ö´®´¦Àí²ÉÓà Unicode£¬Ò²¾ÍÊÇ˵×Ö´®ÔÚ VB ÄÚ²¿ÊÇÒÔUnicode µÄ¸ñʽÀ´´æ·Å¡£ºÎν Unicode£¿¼òµ¥µÄ˵£¬¾ÍÊÇÿһ¸ö×Ö·û¶¼ÊÇÒÔ 2-byte µÄÐÎʽ±íʾ£¬¶øÿ¸ö¡¸ÊµÌå×Ö·û¡¹¾ÍÊÇÒ»¸ö¡¸×Ö·û¡¹¡£Òò´Ë£¬
Len("´ó¼ÒºÃ")
Len("abc")
& ......
ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï
ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï¡£²»¹ýÒª¿Ø¼þÓÐHWNDÊôÐÔ¡£ÀýÈ磺
New_OldParent& = SetParent(Me.Text_txt.hWnd, Me.picture_bj.hWnd)
°Ñtxt¿Ø¼þÌí¼Óµ½picture¿Ø¼þÀïʹÓá£
×¢£ºÊ¹Óà ......
Public Class Form1
Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click
Dim psi As New System.Diagnostics.ProcessStartInfo
Dim ftpFileName As String
psi.FileName = "ftp.exe"
psi.RedirectStandardInput = ......
VBÑÕÉ«ºÍRGBÉ«»¥Ïàת»»Í·ÌÛÁËÎÒºÃÒ»¶Îʱ¼ä,Èç½ñÕÒµ½½â¾ö°ì·¨ÁË
ÌرðÌù³öÀ´Óë´ó¼Ò¹²Ïí
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......