fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
test_client_ipv6.bas

Uploader:	ThePuppetMaster
Datum/Zeit:	27.02.2011 13:41:37
'##############################################################################################################

'TEST-CLIENT für TSNE_V3 (IPV6 version)

'##############################################################################################################







'##############################################################################################################

#include once "TSNE_V3_IPV6.bi"







'##############################################################################################################

Sub TSNE_Disconnected(ByVal V_TSNEID as UInteger)

Print "[DIS]";

End Sub







'##############################################################################################################

Sub TSNE_Connected(ByVal V_TSNEID as UInteger)

Print "[COK]";

TSNE_Disconnect(V_TSNEID)

End Sub







'##############################################################################################################

Sub TSNE_NewData (ByVal V_TSNEID as UInteger, ByRef V_Data as String)

End Sub







'##############################################################################################################

Sub ConnectTo(V_Name as String, V_Address as String, V_Port as UShort)

Dim TClient as UInteger

Print V_Name & "..." & Space(40 - Len(V_Name) + 3) & "[CON]";

Dim BV as Integer = TSNE_Create_Client(TClient, V_Address, V_Port, @TSNE_Disconnected, @TSNE_Connected, @TSNE_NewData, 10)

If BV = TSNE_Const_NoError Then

    Print "[WIT]";: TSNE_WaitClose(TClient): Print "[WOK]"

Else: Print "[FAIL] " & TSNE_GetGURUCode(BV)

End If

End Sub







'##############################################################################################################



Print "##################################"

Print "  IP_V4 / V6 Test for TSNE_V3.5X"

Print "##################################"

Print

Print "########################################################################"

Print "[INIT] /proc/net/if_inet6"

Dim XFN as Integer = FreeFile

If Open pipe("cat /proc/net/if_inet6" for Input as #XFN) = 0 Then

    Dim T as String

    Do Until EOF(XFN)

        Line Input #XFN, T

        If T <> "" Then Print T

    Loop

    Close #XFN

Else: Print "Can't open if_inet6"

End If





Dim G_Client as UInteger

Dim BV as Integer







Print

Print "########################################################################"

Print "[INIT] = IP_V4 Test ="

Print

ConnectTo("SSH  localhost", "localhost", 22)

ConnectTo("HTTP www.google.de", "www.google.de", 80)



Print

Print "########################################################################"

Print "[INIT] = IP_V6 Test ="

Print

ConnectTo("SSH  localhost", "::", 22)

ConnectTo("SSH  localhost on lo", "::%lo", 22)

ConnectTo("SSH  localhost on eth0", "::%eth0", 22)

ConnectTo("SSH  localhost on eth1", "::%eth1", 22)

Print

ConnectTo("HTTP ipv6.google.com (NoDNS)", "2001:4860:b002::68", 80)

ConnectTo("HTTP ipv6.google.com (NoDNS) on lo", "2001:4860:b002::68%lo", 80)

ConnectTo("HTTP ipv6.google.com (NoDNS) on eth0", "2001:4860:b002::68%eth0", 80)

ConnectTo("HTTP ipv6.google.com (NoDNS) on eth1", "2001:4860:b002::68%eth1", 80)

Print

ConnectTo("HTTP ipv6.google.com (DNS)", "ipv6.google.com", 80)

ConnectTo("HTTP ipv6.google.com (DNS) on lo", "ipv6.google.com%lo", 80)

ConnectTo("HTTP ipv6.google.com (DNS) on eth0", "ipv6.google.com%eth0", 80)

ConnectTo("HTTP ipv6.google.com (DNS) on eth1", "ipv6.google.com%eth1", 80)











Print

Print "[END]"

End