Support for RFC 9495 issuemail

[Deckard99]

Hi,

would it be possible to integrate the new RFC 9495 issueemail into the app?

regards

[Deckard99]

I asked copilot to write a converter in powershell. This is what it came up with:

Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

function Convert-DnsCaaToRfc3597 {
param (
[string]$domain,
[int]$flags,
[string[]]$tagsPerCA,
[string]$iodefValue
)

function MakeHexString($bytes) {
    $str = ""
    foreach ($byte in $bytes) {
        $hexStr = $byte.ToString("X2")
        $str += $hexStr
    }
    return $str
}

function EncodeRecord($flags, $tag, $value) {
    $bytes = @()
    $bytes += [byte]$flags
    $bytes += [byte]$tag.Length
    $bytes += [byte[]][System.Text.Encoding]::ASCII.GetBytes($tag)
    $bytes += [byte[]][System.Text.Encoding]::ASCII.GetBytes($value)
    return $bytes
}

function MakeUnknownRecord($bytes) {
    return "\\# " + $bytes.Length + " " + (MakeHexString -bytes $bytes)
}

$results = @()
foreach ($tagPerCA in $tagsPerCA) {
    $parts = $tagPerCA -split ":", 2
    $ca = $parts[0]
    $tags = $parts[1] -split ","
    foreach ($tag in $tags) {
        $encodedRecord = EncodeRecord -flags $flags -tag $tag -value $ca
        $rfc3597Record = MakeUnknownRecord -bytes $encodedRecord
        $results += "$domain`tIN`tTYPE257`t$rfc3597Record"
    }
}

if ($iodefValue -ne "") {
    $encodedRecord = EncodeRecord -flags $flags -tag "iodef" -value $iodefValue
    $rfc3597Record = MakeUnknownRecord -bytes $encodedRecord
    $results += "$domain`tIN`tTYPE257`t$rfc3597Record"
}

return $results

}

$form = New-Object System.Windows.Forms.Form
$form.Text = "DNS CAA to RFC 3597 Converter"
$form.Size = New-Object System.Drawing.Size(1024, 768)

$domainLabel = New-Object System.Windows.Forms.Label
$domainLabel.Text = "Domain:"
$domainLabel.Location = New-Object System.Drawing.Point(10, 20)
$form.Controls.Add($domainLabel)

$domainTextBox = New-Object System.Windows.Forms.TextBox
$domainTextBox.Location = New-Object System.Drawing.Point(150, 20)
$domainTextBox.Size = New-Object System.Drawing.Size(860, 20)
$form.Controls.Add($domainTextBox)

$flagsLabel = New-Object System.Windows.Forms.Label
$flagsLabel.Text = "Flags:"
$flagsLabel.Location = New-Object System.Drawing.Point(10, 50)
$form.Controls.Add($flagsLabel)

$flagsTextBox = New-Object System.Windows.Forms.TextBox
$flagsTextBox.Location = New-Object System.Drawing.Point(150, 50)
$flagsTextBox.Size = New-Object System.Drawing.Size(860, 20)
$flagsTextBox.Text = "0"
$form.Controls.Add($flagsTextBox)

$iodefLabel = New-Object System.Windows.Forms.Label
$iodefLabel.Text = "iodef URL:"
$iodefLabel.Location = New-Object System.Drawing.Point(10, 80)
$form.Controls.Add($iodefLabel)

$iodefTextBox = New-Object System.Windows.Forms.TextBox
$iodefTextBox.Location = New-Object System.Drawing.Point(150, 80)
$iodefTextBox.Size = New-Object System.Drawing.Size(860, 20)
$form.Controls.Add($iodefTextBox)

$caLabel = New-Object System.Windows.Forms.Label
$caLabel.Text = "Certification Authorities and Tags (issue, issuewild, issuemail):"
$caLabel.AutoSize = $true
$caLabel.Location = New-Object System.Drawing.Point(10, 110)
$form.Controls.Add($caLabel)

$caPanel = New-Object System.Windows.Forms.Panel
$caPanel.Location = New-Object System.Drawing.Point(150, 130)
$caPanel.Size = New-Object System.Drawing.Size(860, 350)
$caPanel.AutoScroll = $true
$form.Controls.Add($caPanel)

$caOptions = @(
"actalis.com", "amazon.com", "ascertia.com", "buypass.com", "camerfirma.com",
"certigna.fr", "certinomis.com", "certum.pl", "comodo.com", "digicert.com",
"dtrust.net", "encentra.com", "entrust.net", "globalsign.com", "godaddy.com",
"identrust.com", "letsencrypt.org", "ocsp.com", "quovadisglobal.com",
"secomtrust.net", "ssl.com", "startssl.com", "swisssign.com", "symantec.com",
"thawte.com", "trustwave.com", "twca.org.tw", "usertrust.com", "verisign.com",
"wiise.com", "wosign.com"
)
$caCheckboxes = @()

$yPosition = 0
foreach ($ca in $caOptions) {
$caGroup = New-Object System.Windows.Forms.GroupBox
$caGroup.Text = $ca
$caGroup.Size = New-Object System.Drawing.Size(830, 70)
$caGroup.Location = New-Object System.Drawing.Point(10, $yPosition)
$caPanel.Controls.Add($caGroup)

$issueCheckBox = New-Object System.Windows.Forms.CheckBox
$issueCheckBox.Text = "issue"
$issueCheckBox.Location = New-Object System.Drawing.Point(10, 20)
$caGroup.Controls.Add($issueCheckBox)

$issuewildCheckBox = New-Object System.Windows.Forms.CheckBox
$issuewildCheckBox.Text = "issuewild"
$issuewildCheckBox.Location = New-Object System.Drawing.Point(150, 20)
$caGroup.Controls.Add($issuewildCheckBox)

$issuemailCheckBox = New-Object System.Windows.Forms.CheckBox
$issuemailCheckBox.Text = "issuemail"
$issuemailCheckBox.Location = New-Object System.Drawing.Point(300, 20)
$caGroup.Controls.Add($issuemailCheckBox)

$caCheckboxes += New-Object PSObject -Property @{
    CA = $ca
    IssueCheckBox = $issueCheckBox
    IssuewildCheckBox = $issuewildCheckBox
    IssuemailCheckBox = $issuemailCheckBox
}

$yPosition += 80

}

Result TextBox

$resultLabel = New-Object System.Windows.Forms.Label
$resultLabel.Text = "Results:"
$resultLabel.Location = New-Object System.Drawing.Point(10, 490)
$form.Controls.Add($resultLabel)

$resultTextBox = New-Object System.Windows.Forms.TextBox
$resultTextBox.Multiline = $true
$resultTextBox.ScrollBars = [System.Windows.Forms.ScrollBars]::Vertical
$resultTextBox.WordWrap = $true
$resultTextBox.ReadOnly = $true
$resultTextBox.Location = New-Object System.Drawing.Point(150, 490)
$resultTextBox.Size = New-Object System.Drawing.Size(860, 150)
$form.Controls.Add($resultTextBox)

Checkbox for saving to file

$saveCheckBox = New-Object System.Windows.Forms.CheckBox
$saveCheckBox.Text = "Save results to text file"
$saveCheckBox.Location = New-Object System.Drawing.Point(150, 650)
$saveCheckBox.AutoSize = $true
$form.Controls.Add($saveCheckBox)

$convertButton = New-Object System.Windows.Forms.Button
$convertButton.Text = "Convert"
$convertButton.Location = New-Object System.Drawing.Point(150, 680)
$convertButton.Size = New-Object System.Drawing.Size(100, 30)
$convertButton.Add_Click({
$domain = $domainTextBox.Text
$flags = [int]$flagsTextBox.Text
$iodefValue = $iodefTextBox.Text
$tagsPerCA = @()

foreach ($caCheckbox in $caCheckboxes) {
    $tags = @()
    if ($caCheckbox.IssueCheckBox.Checked) { $tags += "issue" }
    if ($caCheckbox.IssuewildCheckBox.Checked) { $tags += "issuewild" }
    if ($caCheckbox.IssuemailCheckBox.Checked) { $tags += "issuemail" }
    if ($tags.Count -gt 0) {
        $tagsPerCA += "$($caCheckbox.CA):$($tags -join ",")"
    }
}

$results = Convert-DnsCaaToRfc3597 -domain $domain -flags $flags -tagsPerCA $tagsPerCA -iodefValue $iodefValue
$resultString = $results -join "`r`n"

# Display results in the main form
$resultTextBox.Text = $resultString

if ($saveCheckBox.Checked) {
    $saveFileDialog = New-Object System.Windows.Forms.SaveFileDialog
    $saveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
    $saveFileDialog.Title = "Save Results As"
    if ($saveFileDialog.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK) {
        $filePath = $saveFileDialog.FileName
        $resultString | Out-File -FilePath $filePath
        [System.Windows.Forms.MessageBox]::Show("Results saved to $filePath", "Save Successful", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Information)
    }
}

})
$form.Controls.Add($convertButton)

$form.ShowDialog()