IPとサブネットマスクからネットワークIDとブロードキャストアドレスを算出

概要

タイトルまんま
罵らないで！VB簡単で大好き！

コード

Module Module1

	Sub Main()
		Dim ip As String = "192.180.14.200"
		Dim mask As String = "255.192.0.0"

		Dim ip_sp(3) As String
		ip_sp = ip.Split(".")
		Dim mask_sp(3) As String
		mask_sp = mask.Split(".")



		Dim ip_byte(3) As Byte
		Dim mask_byte(3) As Byte

		For i = 0 To 3
			ip_byte(i) = Convert.ToByte(ip_sp(i))
			mask_byte(i) = Convert.ToByte(mask_sp(i))
		Next



		Dim start_byte(3) As Byte

		For i = 0 To 3
			start_byte(i) = ip_byte(i) And mask_byte(i)
		Next



		Dim end_byte(3) As Byte

		For i = 0 To 3
			end_byte(i) = Not mask_byte(i) Xor start_byte(i)
		Next


		For i = 0 To 3
			Console.Write(start_byte(i).ToString)
			Console.Write(".")
		Next

		Console.WriteLine()

		For i = 0 To 3
			Console.Write(end_byte(i).ToString)
			Console.Write(".")
		Next

		Console.WriteLine()

	End Sub

End Module

192.128.0.0.
192.191.255.255.
続行するには何かキーを押してください . . .