C´úÂëÓïÑÔתVB´úÂëµÄÎÊÌ⣺
ËÄܰïÎÒ°ÑÕâ¶Î´úÂëת³ÉVbµÄ´úÂ룬²»Ê¤¸Ð¼¤£¬Ð»Ð»£¡
void CTempDlg::OnOK()
{
UpdateData(1);
int nlen=m_edit1.GetLength();
char *username=m_edit1.GetBuffer(nlen);//¶¨ÒåÒ»¸öÐÂ×Ö·û´®username,³¤¶ÈΪnlen£¬²¢½«m_edit1ÖеÄ×Ö·û´®Ò»¸ö¸ö·ÅÈëµ½usernameÊý×éÖÐ
char strA[]="9012345678abcdeABCDEFGHIJKLMNfghijklmnUVWXYZxyzuvwopqrstOPQRST";
int szint[18]={0x11,0x34,0xC9,0x23,0x75,0x18,0xD7,0xE2,0x12,0x35,0x29,0x2B,0xEC,0xB6,0x23,0x19};
int ljq1=0,ljq2=0x25;//ÀÛ¼ÓÆ÷
int k=0,l=0,q=0;
char *serile=new char[nlen];//¶¨ÒåÒ»¸öÐÂ×Ö·û´®Êý×éserile,³¤¶ÈΪnlen
for (int i=0;i<strlen(username);ljq1=ljq1+5,i++)
{
for (int j=0;j<strlen(strA);j++)
{
if (username[i]==strA[j])
{
// k=0,l=0/*,q=szint[i+2]*/;
l=szint[i];
if (i>=16)
{
l=i % 0x10;//ÇóÓà
l=szint[l];
}
k=ljq2;
k=k*3;
l=l^k;
l=l^ljq1;
l=l+j;
l=l % 0x3e;//ÓàÊý
serile[i]=strA[l];
l=l+0x24d9;
ljq2=l^ljq2;
break;
Ïà¹ØÎĵµ£º
×Ô¼ºÊ¹ÓÃvim±à¼´úÂëÒ²ÊÇÓÐÒ»¶Îʱ¼äÀ´£¬Ä¿Ç°ÔĶÁ¡¢Ð޸ġ¢Ð´´úÂë»ù±¾¶¼Àë²»¿ªËûÁË¡£±¾ÈËʹÓùýµÄ±à¼Æ÷ºÜÉÙ£¬ÒÔǰһ°ã¶¼ÊÇʹÓóÌÐò¿ª·¢IDE×Ô´øµÄ±à¼Æ÷Щ´úÂ룬û¾õµÃʲô·½±ã¡£¿ªÊ¼Ê¹ÓÃvimµÄ¸Õ¸Õ½Ó´¥linux³ÌÐò¿ª·¢µÄʱºò£¬ÄÇʱ¿´µ½ÆäËûÈËÒ»°ã¶¼ÊÇÔÚwindowsÏÂʹÓÃSource Insight ±à¼´úÂ룬ȻºóÔÚÐéÄâ»úlinuxÏÂmake¡£ÎұȽ ......
Èç¹ûÓû§ÊìϤLinuxϵÄsed¡¢awk¡¢grep»òvi£¬ÄÇô¶ÔÕýÔò±í´ïʽÕâÒ»¸ÅÄî¿Ï¶¨²»»áİÉú¡£ÓÉÓÚËü¿ÉÒÔ¼«´óµØ¼ò»¯´¦Àí×Ö·û´®Ê±µÄ¸´ÔÓ¶È£¬Òò´ËÏÖÔÚÒѾÔÚÐí¶àLinuxʵÓù¤¾ßÖеõ½ÁËÓ¦Óá£Ç§Íò²»ÒªÒÔΪÕýÔò±í´ïʽֻÊÇPerl¡¢Python¡¢BashµÈ½Å±¾ÓïÑÔµÄרÀû£¬×÷ΪCÓïÑÔ³ÌÐòÔ±£¬Óû§Í¬Ñù¿ÉÒÔÔÚ×Ô¼ºµÄ³ÌÐòÖÐÔËÓÃÕýÔò±í´ïʽ¡£
±ê×¼µÄCºÍC ......
C#ºÍVBScript£¬ActionScript£¬C++·Ç³£ÏàËÆ£¡
ÏÈÔÚCSÖн¨Á¢Ò»¸ö¿ØÖÆÌ¨³ÌÐò£¬ÔÙ´ò¿ª“Program.cs”¡£
ÔÚ void_Main ÊäÈëÒÔÏ´úÂ룺
//ÕâÊÇ×¢ÊÍ£¬×¢ÊͽöÔÚµ÷ÊÔʱÓÐÓÃ
......
ת×Ô:http://www.pconline.com.cn/pcedu/empolder/gj/vb/0506/644702.html
Time
·µ»ØÏµÍ³Ê±Öӵĵ±Ç°Ê±¼ä¡£
Date
·µ»ØÏµÍ³Ê±Öӵĵ±Ç°ÈÕÆÚ¡£
Now
·µ»Ø´ú±íµ±Ç°ÈÕÆÚºÍʱ¼äµÄ±àÂëÖµ¡£¸Ãº¯Êý¾³£ÓÃ×÷ÆäËüϵͳʱÖÓº¯ÊýµÄ²ÎÊý¡£
Hour(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄСʱ²¿·Ö£¨0µ½23£©¡£
Minute(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄ·ÖÖÓ²¿· ......
VB±¸·ÝACCESSÊý¾Ý¿âµÄ·½·¨£¬´úÂë
Õâ¸ö´úÂëÆäʵҲÊÊÓÃÓÚÆäËüÀàÐÍÎļþµÄ¸´ÖÆ£¬ÒªÐÞ¸ÄÒ»ÏÂÆäÖеÄÓï¾äŶ~Private Sub bak_Click()
Dim TargetFileName As String 'Ä¿±êÎļþÃû
On Error Resume Next
With cdlog1
.DialogTitle = "Êý¾Ý±¸·Ý"
.InitDir = App.Path
.FileName = "backup.mdb"
.Filter = ......