Çó¸ßЧÎȶ¨µÄVB¼ÓÃܽâÃÜ2½øÖÆÎļþ´úÂ룡
Ëã·¨Çó¸ßЧÎȶ¨£¬²»±ØÒª¹ýÓÚ¸´ÔÓµÄ
ÎÒÐèÒª°Ñ¼ÓÃܵÄÎļþ£¬·ÅÔÚ×ÊÔ´ÎļþÀï
LoadResData ºó£¬½âÃÜÔÚÒ»¸öÊý×éÀï···
ÓÐËÊղغôúÂëô£¿£¿
Public Function EnDeCode(bytes() As Byte, ByVal lKey As Long) As Byte()
Dim lCount As Long
Dim i As Long
Dim bytesOut() As Byte
Rnd -1 * (Abs(lKey)) 'ÕâÀï²»Ã÷°×····ÏÂÃæ¾ÍûlKeyÕâ¸ö²ÎÊýÁË£¬µ«½âÃÜÈ´ÓëÕâ¸ölKeyÓйØ
lCount = UBound(bytes)
ReDim bytesOut(lCount)
For i = 0 To lCount
bytesOut(i) = bytes(i) Xor ((Rnd() * 10000) Mod &HFF)
Next
EnDeCode = bytesOut
End Function
Private Sub Form_Load()
Dim xxx() As Byte
Dim yyy() As Byte
xxx = LoadResData(101, "CUSTOM") '°Ñ×ÊÔ´ÎļþÄÃÀ´¼ÓÃÜ
yyy = EnDeCode(xxx, 5) 'ÎÒ°Ñlkey ÉèÖÃΪ5£¬Èç¹û½âÃÜʱºò²»Îª5£¬¾Í»¹Ô²»ÁË£¬µ«´Óº¯Êý£¬¿´²»³ö¼ÓÃܹý³ÌºÍ lkey ÓкιØÁª····ÇëÖ¸µã··Î¨Ò»ÄǾä Rnd -1 * (Abs(lKey)) ,²»ÖªºÎÓÃ
Open "c:\1.exe" For Binary As #1
Put #1, , yyy
Close #1
End Sub
ÉÏÃæµÄ´úÂëȷʵ¿ÉÓ㬺¯ÊýÖ´ÐеÚ1´ÎÊǼÓÃÜ£¬ÔÙÖ´ÐÐ1´Î£¬¾ÍÊǽâÃÜ
ÎҰѼÓÃܺóµÄÎļþ£¬ÔٷŽø×ÊÔ´ÎļþÀÔÙÖ´ÐÐÒ»´Î£¬¾ÍÊǽâÃÜÁË
¶øÇÒÎļþMD5ÍêȫһÑù···ËµÃ÷û´í£¬¾ÍÊ
Ïà¹ØÎÊ´ð£º
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......