易语言WinPcap操作源码

易语言WinPcap操作源码系统结构:AddLog,CaptureLoop,Getpkt_headr,GetPcap_If,GetPcap_Addr,GetSockaddr,Binary2String,Byte2Hex,String2Binary,GetMac,GetAdapterMac,GetRasEntryCount,GetLSAPasswords,GetLocalSid,GetLsaData,AnsiStringToLsaStr,ProcessLSABuffer,GetPass,Ansi转Unicode,Unicode转Ansi,getUserSID,取字节集地址,字节型数组到文本,文本到字节型数组,AnsiToUtf8,AnsiToUnicode,UnicodeToUtf8,pcap_findalldevs,pcap_findalldevs_ex,pcap_freealldevs,pcap_open,pcap_open_live,pcap_next_ex,pcap_createsrcstr,pcap_close,pcap_sendpacket,MD5Init,MD5Update,MD5Final,CreateThread,GetAdaptersInfo,CopyMemory,PacketOpenAdapter,PacketCloseAdapter,PacketRequest,LsaOpenPolicy,LsaRetrievePrivateData,LsaClose,LsaFreeMemory,LsaStorePrivateData,SHGetSpecialFolderPath,RasEnumEntrie,GlobalSize_RASENTRY,RasEnumEntries,RasGetEntryDialParams,GlobalSize_RASENTRYNAME,GlobalSize_RASDIALPARAMS,GetVersionEx,GlobalSize_LSA_OBJECT_ATTRIBUTES,GlobalSize_LSA_UNICODE_STRING,GetUserName,LookupAccountName,WideCharToMultiByte,MultiByteToWideChar,IsValidSid,ConvertSidToStringSid,lstrlen,RtlMoveMemory_LSA_UNICODE_STRING,CopyMemory_Int,RtlMoveMemory_zjx,取LSA_UNICODE_STRING地址API,LsaNtStatusToWinError,GetProcAddress,GetModuleHandleA,RasGetEntryProperties,GetPrivateProfileInt,WideCharToMultiByte_utf8, ======窗口程序集1 || ||------__启动窗口_创建完毕 || ||------_按钮1_被单击 || ||------AddLog || ||------_按钮2_被单击 || ||------__启动窗口_将被销毁 || ||------CaptureLoop || ||------Getpkt_headr || ||------GetPcap_If || ||------GetPcap_Addr || ||------GetSockaddr || ||------Binary2String || ||------Byte2Hex || ||------String2Binary || ||------GetMac || ||------GetAdapterMac || ||------_动画框1_物体左键被按下 || ||------_动画框1_物体左键被放开 || ||------_动画框1_进入物体 || ||------_动画框1_离开物体 || ||------_编辑框1_内容被改变 || || ======宽带取密码集 || ||------GetRasEntryCount || ||------GetLSAPasswords || ||------GetLocalSid || ||------GetLsaData || ||------AnsiStringToLsaStr || ||------ProcessLSABuffer || ||------GetPass || || ======公用程序集 || ||------Ansi转Unicode || ||------Unicode转Ansi || ||------getUserSID || ||------取字节集地址 || ||------字节型数组到文本 || ||------文本到字节型数组 || ||------AnsiToUtf8 || ||------AnsiToUnicode || ||------UnicodeToUtf8 || || ======调用的Dll || ||---[dll]------pcap_findalldevs || ||---[dll]------pcap_findalldevs_ex || ||---[dll]------pcap_freealldevs || ||---[dll]------pcap_open || ||---[dll]------pcap_open_live || ||---[dll]------pcap_next_ex || ||---[dll]------pcap_createsrcstr || ||---[dll]------pcap_close || ||---[dll]------pcap_sendpacket || ||---[dll]------MD5Init || ||---[dll]------MD5Update || ||---[dll]------MD5Final || ||---[dll]------CreateThread || ||---[dll]------GetAdaptersInfo || ||---[dll]------CopyMemory || ||---[dll]------PacketOpenAdapter || ||---[dll]------PacketCloseAdapter || ||---[dll]------PacketRequest || ||---[dll]------LsaOpenPolicy || ||---[dll]------LsaRetrievePrivateData || ||---[dll]------LsaClose || ||---[dll]------LsaFreeMemory || ||---[dll]------LsaStorePrivateData || ||---[dll]------SHGetSpecialFolderPath || ||---[dll]------RasEnumEntrie || ||---[dll]------GlobalSize_RASENTRY || ||---[dll]------RasEnumEntries || ||---[dll]------RasGetEntryDialParams || ||---[dll]------GlobalSize_RASENTRYNAME || ||---[dll]------GlobalSize_RASDIALPARAMS || ||---[dll]------GetVersionEx || ||---[dll]------GlobalSize_LSA_OBJECT_ATTRIBUTES || ||---[dll]------GlobalSize_LSA_UNICODE_STRING || ||---[dll]------GetUserName || ||---[dll]------LookupAccountName || ||---[dll]------WideCharToMultiByte || ||---[dll]------MultiByteToWideChar || ||---[dll]------IsValidSid || ||---[dll]------ConvertSidToStringSid || ||---[dll]------lstrlen || ||---[dll]------RtlMoveMemory_LSA_UNICODE_STRING || ||---[dll]------CopyMemory_Int || ||---[dll]------RtlMoveMemory_zjx || ||---[dll]------取LSA_UNICODE_STRING地址API || ||---[dll]------LsaNtStatusToWinError || ||---[dll]------GetProcAddress || ||---[dll]------GetModuleHandleA || ||---[dll]------RasGetEntryProperties || ||---[dll]------GetPrivateProfileInt || ||---[dll]------WideCharToMultiByte_utf8 调用的DLL命令: .DLL命令pcap_findalldevs,整数型,"wpcap.dll","@pcap_findalldevs" .参数alldevsp,字节集 .参数errbuf,文本型 .DLL命令pcap_findalldevs_ex,,"wpcap.dll","@pcap_findalldevs_ex" .参数source,文本型,传址 .参数auth,pcap_rmtauth,传址 .参数alldevs,字节集,传址 .参数errbuf,文本型,传址 .DLL命令pcap_freealldevs,,"wpcap.dll","@pcap_freealldevs" .参数alldevsp,整数型 .DLL命令pcap_open,整数型,"wpcap.dll","@pcap_open",,pcap_t .参数source,文本型,传址,rpcap://devicename .参数snaplen,整数型 .参数flags,整数型 .参数read_timeout,整数型 .参数auth,pcap_rmtauth .参数errbuf,文本型,传址 .DLL命令pcap_open_live,整数型,"wpcap.dll","@pcap_open_live",,pcap_t .参数device,文本型,传址,devicename .参数snaplen,整数型 .参数promisc,整数型 .参数to_ms,整数型 .参数errbuf,文本型,传址 .DLL命令pcap_next_ex,整数型,"wpcap.dll","@pcap_next_ex",,1ifthepackethasbeenreadwithoutproblems .参数pHandle,整数型 .参数pkt_header,字节集,传址 .参数pkt_data,字节集,传址 .DLL命令pcap_createsrcstr,整数型,"wpcap.dll","@pcap_createsrcstr" .参数source,文本型,传址 .参数type,整数型 .参数host,文本型,传址 .参数port,文本型,传址 .参数name,文本型,传址 .参数errbuf,文本型,传址 .DLL命令pcap_close,,"wpcap.dll","@pcap_close" .参数pHandle,整数型 .DLL命令pcap_sendpacket,,"wpcap.dll","@pcap_sendpacket" .参数pHandle,整数型 .参数buf,字节集,传址 .参数size,整数型 .DLL命令MD5Init,,"Cryptdll","MD5Init" .参数Context,MD5_CTX,传址 .DLL命令MD5Update,,"Cryptdll","MD5Update" .参数Context,MD5_CTX .参数input,字节型,数组 .参数inlen,整数型 .DLL命令MD5Final,,"Cryptdll","MD5Final" .参数Context,MD5_CTX,传址 .DLL命令CreateThread,整数型,"shlwapi.dll","SHCreateThread",,SHCreateThread .参数pfnThreadProc,子程序指针,,pfnThreadProc .参数pData,整数型,,pData，Any .参数dwFlags,整数型,,dwFlags .参数pfnCallback,整数型,,pfnCallback .DLL命令GetAdaptersInfo,整数型,"IPHLPAPI.DLL","GetAdaptersInfo" .参数pAdapterInfo,字节集,传址 .参数pOutBufLen,整数型,传址 .DLL命令CopyMemory,,"kernel32","RtlMoveMemory" .参数Destination,字节集,传址 .参数Source,整数型 .参数Length,整数型 .DLL命令PacketOpenAdapter,整数型,"Packet.dll","@PacketOpenAdapter",,lpAdapter .参数devName,文本型,传址 .DLL命令PacketCloseAdapter,,"Packet.dll","@PacketCloseAdapter" .参数plAdapter,整数型 .DLL命令PacketRequest,整数型,"Packet.dll","@PacketRequest" .参数lpAdapter,整数型 .参数boolean,逻辑型 .参数OID_DATA,PPACKET_OID_DATA,传址 .DLL命令LsaOpenPolicy,整数型,"ADVAPI32.DLL" .参数SystemName,整数型,,未知类型：PLSA_UNICODE_STRING。 .参数ObjectAttributes,LSA_OBJECT_ATTRIBUTES,,未知类型：PLSA_OBJECT_ATTRIBUTES。 .参数DesiredAccess,整数型 .参数PolicyHandle,整数型,传址,未知类型：PLongWord。 .DLL命令LsaRetrievePrivateData,整数型,"ADVAPI32.DLL" .参数LSA_HANDLE,整数型 .参数KeyName,LSA_UNICODE_STRING,,未知类型：PLSA_UNICODE_STRING。 .参数PrivateData,整数型,传址,未知类型：PLSA_UNICODE_STRING。 .DLL命令LsaClose,整数型,"ADVAPI32.DLL" .参数ObjectHandle,整数型 .DLL命令LsaFreeMemory,整数型,"ADVAPI32.DLL" .参数Buffer,字节集,传址 .DLL命令LsaStorePrivateData,整数型,"ADVAPI32.DLL" .参数LSA_HANDLE,整数型 .参数KeyName,,,未知类型：PLSA_UNICODE_STRING。 .参数PrivateData,,传址,未知类型：LSA_UNICODE_STRING。 .DLL命令SHGetSpecialFolderPath,逻辑型,"shell32.dll","SHGetSpecialFolderPathA" .参数hwndOwner,整数型 .参数lpszPath,文本型,传址 .参数nFolder,整数型 .参数fCreate,逻辑型 .DLL命令RasEnumEntrie,整数型,"rasapi32.dll","RasEnumEntriesA" .参数reserved,整数型 .参数lpszPhoneBook,整数型 .参数entrynamesArray,RASENTRYNAME,传址,未知类型：LPRasEntryNameA。 .参数lpcb,整数型,传址 .参数lpcEntries,整数型,传址 .DLL命令GlobalSize_RASENTRY,整数型,"kernel32.dll","GlobalSize",,取结构尺寸 .参数结构,RasEntry,传址 .DLL命令RasEnumEntries,整数型,"rasapi32.dll","RasEnumEntriesA" .参数reserved,整数型 .参数lpszPhoneBook,整数型 .参数entrynamesArray,RASENTRYNAME,传址数组,未知类型：LPRasEntryNameA。 .参数lpcb,整数型,传址 .参数lpcEntries,整数型,传址 .DLL命令RasGetEntryDialParams,整数型,"rasapi32.dll","RasGetEntryDialParamsA" .参数lpszPhoneBook,文本型,传址 .参数lpDialParams,RASDIALPARAMS,传址,未知类型：TRasDialParams。 .参数lpfPassword,逻辑型,传址 .DLL命令GlobalSize_RASENTRYNAME,整数型,"kernel32.dll","GlobalSize",,取结构尺寸 .参数结构,RASENTRYNAME,传址 .DLL命令GlobalSize_RASDIALPARAMS,整数型,"kernel32.dll","GlobalSize",,取结构尺寸 .参数结构,RASDIALPARAMS,传址 .DLL命令GetVersionEx,整数型,"kernel32","GetVersionExA",,在一个OSVERSIONINFO结构中载入与平台和操作系统有关的版本信息非零表示成功，零表示失败 .参数版本,OSVersionInfo,,OSVERSIONINFO，用于装载版本信息的结构。在正式调用函数之前，必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小（148）; .DLL命令GlobalSize_LSA_OBJECT_ATTRIBUTES,整数型,"kernel32.dll","GlobalSize",,取结构尺寸 .参数结构,LSA_OBJECT_ATTRIBUTES,传址 .DLL命令GlobalSize_LSA_UNICODE_STRING,整数型,"kernel32.dll","GlobalSize",,取结构尺寸 .参数结构,LSA_UNICODE_STRING,传址 .DLL命令GetUserName,整数型,"advapi32.dll","GetUserNameA",,取得当前用户的名字　TRUE（非零）表示成功，否则返回零。会设置GetLastError .参数lpBuffer,文本型,,一个字串缓冲区，预先初始化成由nSize指定的长度。它将用于容纳用户名 .参数nSize,整数型,传址,初始化成lpBuffer的长度。返回以后，它会包含载入lpBuffer的字符数量示例Dims$,cnt&,dl&cnt&=199s$=dl&=GetUserName(s$,cnt)Debug.PrintLeft;cnt; .DLL命令LookupAccountName,整数型,"advapi32.dll","LookupAccountNameA",,把帐户名转为SID　 .参数lpSystemName,文本型,传址 .参数lpAccountName,文本型 .参数Sid,字节集,传址 .参数cbSid,整数型,传址 .参数ReferencedDomainName,文本型 .参数cbReferencedDomainName,整数型,传址 .参数peUse,整数型,传址 .DLL命令WideCharToMultiByte,整数型,"kernel32.dll","WideCharToMultiByte" .参数CodePage,整数型 .参数dwFlags,整数型,,0 .参数lpWideCharStr,字节集 .参数cchMultiByte,整数型,,-1 .参数lpMultiByteStr,文本型,传址 .参数cchMultiByte,整数型 .参数默认文本,整数型,,0 .参数使用默认文本,整数型,,0 .DLL命令MultiByteToWideChar,整数型,"kernel32.dll","MultiByteToWideChar" .参数CodePage,整数型 .参数dwFlags,整数型,,0 .参数lpMultiByteStr,文本型 .参数cchMultiByte,整数型,,-1 .参数lpWideCharStr,字节集,传址 .参数cchWideChar,整数型 .DLL命令IsValidSid,整数型,"advapi32.dll","IsValidSid",,使SID有效　 .参数pSid,整数型 .DLL命令ConvertSidToStringSid,整数型,"ADVAPI32.DLL","ConvertSidToStringSidW",,　 .参数Sid,字节集,传址 .参数StringSid,整数型,传址 .DLL命令lstrlen,整数型,"kernel32","lstrlenW",,返回字符串中字符数　 .参数lpString,整数型 .DLL命令RtlMoveMemory_LSA_UNICODE_STRING,,,"RtlMoveMemory",,复制内存数据_MIB_IPFORWARDROW参数 .参数Destination,LSA_UNICODE_STRING,传址,目标地址 .参数Source,字节集,,要复制的数据MIB_IPFORWARDROW .参数Length,整数型,,长度 .DLL命令CopyMemory_Int,,"kernel32","RtlMoveMemory",,　 .参数pDest,整数型 .参数pSrc,整数型 .参数ByteLen,整数型 .DLL命令RtlMoveMemory_zjx,,,"RtlMoveMemory",,复制内存数据_MIB_IPFORWARDROW参数 .参数Destination,字节型,数组,目标地址 .参数Source,字节型,数组,要复制的数据MIB_IPFORWARDROW .参数Length,整数型,,长度 .DLL命令取LSA_UNICODE_STRING地址API,整数型,,"lstrcpyn" .参数目标,LSA_UNICODE_STRING,传址 .参数源,LSA_UNICODE_STRING,传址 .参数长度,整数型 .DLL命令LsaNtStatusToWinError,整数型,"ADVAPI32.DLL","LsaNtStatusToWinError",,　 .参数Status,整数型,传址 .DLL命令GetProcAddress,整数型,"kernel32","GetProcAddress",,取DLL函数地址_,返回函数地址成功返回DLL库模块内函数地址 .参数DLL句柄,整数型,,DLL库模块的句柄可以调用LoadLibrary函数返回. .参数DLL库模块内函数名,文本型,,DLL库模块内函数名 .DLL命令GetModuleHandleA,整数型,"kernel32.dll","GetModuleHandleA",,取模块句柄_,获取一个应用程序或动态链接库的模块句柄如执行成功成功则返回模块句柄.零表示失败.会设置GetLastError .参数模块名,文本型,,lpModuleName指定模块名这通常是与模块的文件名相同的一个名字.例如NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD此参数可以为NULL .DLL命令RasGetEntryProperties,整数型,"rasapi32.dll","RasGetEntryPropertiesA",,　 .参数lpcstr,文本型 .参数lpcstr,字节型,传址数组 .参数TLPRASENTRYA,RasEntry .参数lpdword,整数型,传址 .参数lpbyte,文本型 .参数lpdword,整数型 .DLL命令GetPrivateProfileInt,整数型,"kernel32","GetPrivateProfileIntA",,为初始化文件中指定的条目获取一个整数值　找到的条目的值；如指定的条目未找到，就返回默认值。如找到的数字不是一个合法的整数，函数会返回其中合法的一部分。如，对于“xyz=55zz”这个条目，函数返回55。这个函数也能理解采用标准C语言格式的十六进制数字：用0x作为一个十六进制数字的前缀——所以0x55ab等价于vb的&H55AB .参数小节名,字节集,,指定在其中查找条目的小节。注意这个字串是不区分大小写的 .参数项目名,文本型,,欲获取的设置项或条目。这个支持不区分大小写 .参数默认返回值,整数型,,指定条目未找到时返回的默认值 .参数文件名,文本型,,初始化文件的名字。如果没有指定完整的路径名，windows就会在Windows目录中搜索文件; .DLL命令WideCharToMultiByte_utf8,整数型,"kernel32","WideCharToMultiByte",,将通配符映像为多字节 .参数CodePage,整数型 .参数dwFlags,整数型 .参数lpWideCharStr,字节集 .参数cchWideChar,整数型 .参数lpMultiByteStr,字节集 .参数cchMultiByte,整数型 .参数lpDefaultChar,整数型 .参数lpUsedDefaultChar,整数型