Long2IP Function?

[Jack]

Hello,

I need a long number to IP Address Convertion Function.

Take

3349551105

to

199.166.24.1

Please let me know if anyone has such a function.

Thanks in advance for your help,

Jack

[Tom Shelton]

On 2005-05-31, Jack <jo***@webfoxmail.com> wrote:

Hello,

I need a long number to IP Address Convertion Function.

Take

3349551105

to

199.166.24.1

Please let me know if anyone has such a function.

Thanks in advance for your help,

Jack

Dim IP As String = New IPAddress (myLongValue).ToString ()
--
Tom Shelton [MVP]

[Supra]

r u using irc chat?
Jack wrote:

Hello,

I need a long number to IP Address Convertion Function.

Take

3349551105

to

199.166.24.1

Please let me know if anyone has such a function.

Thanks in advance for your help,

Jack

[Jack]

Hello Tom,

Thanks, it works great. There is one problem it is printing the IP address
backwords.

199.166.24.1

Comes out

1.24.166.199

Please let me know if how to fix this.

Thank you for all of your help,

Jack

"Tom Shelton" <ts******@YOUKNOWTHEDRILLcomcast.net> wrote in message
news:%2***************@TK2MSFTNGP15.phx.gbl...

On 2005-05-31, Jack <jo***@webfoxmail.com> wrote:

Hello,

I need a long number to IP Address Convertion Function.

Take

3349551105

to

199.166.24.1

Please let me know if anyone has such a function.

Thanks in advance for your help,

Jack

Dim IP As String = New IPAddress (myLongValue).ToString ()
--
Tom Shelton [MVP]

[Tom Shelton]

On 2005-06-01, Jack <jo***@webfoxmail.com> wrote:

Hello Tom,

Thanks, it works great. There is one problem it is printing the IP address
backwords.

199.166.24.1

Comes out

1.24.166.199

Please let me know if how to fix this.

Thank you for all of your help,

Jack

Ooops... Try this:

Dim IP As String = New IPAddress _
(IPAddress.NetworkToHostOrder (MyLongValue)).ToString()
--
Tom Shelton [MVP]

[Jack]

Hello Tom,

Thanks for the fast response. I am getting this error using the new
command:

An unhandled exception of type 'System.ArgumentOutOfRangeException' occurred
in system.dll

Please let me know what I am doing wrong.

Thanks for your help and time,

Jack

"Tom Shelton" <ts******@YOUKNOWTHEDRILLcomcast.net> wrote in message
news:Ob*************@TK2MSFTNGP12.phx.gbl...

On 2005-06-01, Jack <jo***@webfoxmail.com> wrote:

Hello Tom,

Thanks, it works great. There is one problem it is printing the IP
address
backwords.

199.166.24.1

Comes out

1.24.166.199

Please let me know if how to fix this.

Thank you for all of your help,

Jack

Ooops... Try this:

Dim IP As String = New IPAddress _
(IPAddress.NetworkToHostOrder (MyLongValue)).ToString()
--
Tom Shelton [MVP]

[Tom Shelton]

On 2005-06-01, Jack <jo***@webfoxmail.com> wrote:

Hello Tom,

Thanks for the fast response. I am getting this error using the new
command:

An unhandled exception of type 'System.ArgumentOutOfRangeException' occurred
in system.dll

Please let me know what I am doing wrong.

Thanks for your help and time,

Jack

Hmm... Jack - let me play with this some more (if no one else jumps in).
This is what I get for not testing my responses :)

--
Tom Shelton [MVP]

[Tom Shelton]

In article <OM**************@tk2msftngp13.phx.gbl>, Jack wrote:

Hello Tom,

Thanks for the fast response. I am getting this error using the new
command:

An unhandled exception of type 'System.ArgumentOutOfRangeException' occurred
in system.dll

Please let me know what I am doing wrong.

Thanks for your help and time,

Jack

"Tom Shelton" <ts******@YOUKNOWTHEDRILLcomcast.net> wrote in message
news:Ob*************@TK2MSFTNGP12.phx.gbl...

On 2005-06-01, Jack <jo***@webfoxmail.com> wrote:

Hello Tom,

Thanks, it works great. There is one problem it is printing the IP
address
backwords.

199.166.24.1

Comes out

1.24.166.199

Please let me know if how to fix this.

Thank you for all of your help,

Jack

Ooops... Try this:

Dim IP As String = New IPAddress _
(IPAddress.NetworkToHostOrder (MyLongValue)).ToString()

Ok... One more shot :)

Option Strict On
Option Explicit On

Imports System.Net

Module Module1

Sub Main()
Dim tmpIP As New IPAddress(3349551105)
Dim bytes() As Byte = tmpIP.GetAddressBytes()
Array.Reverse(bytes)
Dim addr As Long = BitConverter.ToInt32(bytes, 0)
Console.WriteLine(New IPAddress(addr).ToString())
Console.ReadLine()
End Sub

End Module
--
Tom Shelton [MVP]

[Jack]

Thank you very much!!!

Jack

"Tom Shelton" <to*@YOUKNOWTHEDRILLmtogden.com> wrote in message
news:ef**************@TK2MSFTNGP12.phx.gbl...

In article <OM**************@tk2msftngp13.phx.gbl>, Jack wrote:

Hello Tom,

Thanks for the fast response. I am getting this error using the new
command:

An unhandled exception of type 'System.ArgumentOutOfRangeException'
occurred
in system.dll

Please let me know what I am doing wrong.

Thanks for your help and time,

Jack

"Tom Shelton" <ts******@YOUKNOWTHEDRILLcomcast.net> wrote in message
news:Ob*************@TK2MSFTNGP12.phx.gbl...

On 2005-06-01, Jack <jo***@webfoxmail.com> wrote:
Hello Tom,

Thanks, it works great. There is one problem it is printing the IP
address
backwords.

199.166.24.1

Comes out

1.24.166.199

Please let me know if how to fix this.

Thank you for all of your help,

Jack

Ooops... Try this:

Dim IP As String = New IPAddress _
(IPAddress.NetworkToHostOrder (MyLongValue)).ToString()

Ok... One more shot :)

Option Strict On
Option Explicit On

Imports System.Net

Module Module1

Sub Main()
Dim tmpIP As New IPAddress(3349551105)
Dim bytes() As Byte = tmpIP.GetAddressBytes()
Array.Reverse(bytes)
Dim addr As Long = BitConverter.ToInt32(bytes, 0)
Console.WriteLine(New IPAddress(addr).ToString())
Console.ReadLine()
End Sub

End Module
--
Tom Shelton [MVP]

[Jack]

Hello,

I have made a function out off the info:

Function IPNumber2IPAddress(ByVal IP As Long) As String

Dim tmpIP As New System.Net.IPAddress(IP)

Dim bytes() As Byte = tmpIP.GetAddressBytes()

Array.Reverse(bytes)

Dim addr As Long = BitConverter.ToInt32(bytes, 0)

IPNumber2IPAddress = New System.Net.IPAddress(addr).ToString()

End Function

It work most of the time, but when the IP Number is : 1167456428

I get an 'ArgumentOutOfRangeException' Error.

Any help would be great!!

Thanks,

Jack
"Jack" <jo***@webfoxmail.com> wrote in message
news:eV****************@TK2MSFTNGP09.phx.gbl...

Thank you very much!!!

Jack

"Tom Shelton" <to*@YOUKNOWTHEDRILLmtogden.com> wrote in message
news:ef**************@TK2MSFTNGP12.phx.gbl...

In article <OM**************@tk2msftngp13.phx.gbl>, Jack wrote:

Hello Tom,

Thanks for the fast response. I am getting this error using the new
command:

An unhandled exception of type 'System.ArgumentOutOfRangeException'
occurred
in system.dll

Please let me know what I am doing wrong.

Thanks for your help and time,

Jack

"Tom Shelton" <ts******@YOUKNOWTHEDRILLcomcast.net> wrote in message
news:Ob*************@TK2MSFTNGP12.phx.gbl...
On 2005-06-01, Jack <jo***@webfoxmail.com> wrote:
> Hello Tom,
>
> Thanks, it works great. There is one problem it is printing the IP
> address
> backwords.
>
> 199.166.24.1
>
> Comes out
>
> 1.24.166.199
>
> Please let me know if how to fix this.
>
> Thank you for all of your help,
>
> Jack

Ooops... Try this:

Dim IP As String = New IPAddress _
(IPAddress.NetworkToHostOrder (MyLongValue)).ToString()

Ok... One more shot :)

Option Strict On
Option Explicit On

Imports System.Net

Module Module1

Sub Main()
Dim tmpIP As New IPAddress(3349551105)
Dim bytes() As Byte = tmpIP.GetAddressBytes()
Array.Reverse(bytes)
Dim addr As Long = BitConverter.ToInt32(bytes, 0)
Console.WriteLine(New IPAddress(addr).ToString())
Console.ReadLine()
End Sub

End Module
--
Tom Shelton [MVP]

[Larry Lard]

Jack wrote:

Hello,

I have made a function out off the info:

Function IPNumber2IPAddress(ByVal IP As Long) As String

Dim tmpIP As New System.Net.IPAddress(IP)

Dim bytes() As Byte = tmpIP.GetAddressBytes()

Array.Reverse(bytes)

Dim addr As Long = BitConverter.ToInt32(bytes, 0)

IPNumber2IPAddress = New System.Net.IPAddress(addr).ToString()

End Function

It work most of the time, but when the IP Number is : 1167456428

I get an 'ArgumentOutOfRangeException' Error.

Any help would be great!!

Change

Dim addr As Long = BitConverter.ToInt32(bytes, 0)

to

Dim addr As Long = Convert.ToInt64(BitConverter.ToUInt32(bytes, 0))

as with high IP Numbers you were getting negative Integers from
ToInt32.

--
Larry Lard
Replies to group please