Batch Variablen zu Binär konvertieren und XOR-Verknüpfen mit Powershell in Batch?

Question

Hallo, 
ich habe eine Batch-Datei, in der zwei Variablen Batch-Variablen %_var1% und %_var2% existieren, die jeweils einen unterschiedlich (gro&szlig;en) String enthalten. Ist es m&ouml;glich (mit Powershell-Aufrufen innerhalb der Batch-Datei) diese beiden Variablen zu Bin&auml;r zu konvertieren, im Anschluss zu XORen und dann diese neue XORte Variable in eine Batch-Variable %_xorVar% zu speichern - wenn ja, wie w&uuml;rde das aussehen?

Erzesel · Answer

Da Batch nicht mit allen ASCII Zeichen umgehen kann wird Dein Vorhaben problematisch .
XOR Ich bin ein String mit A ergibt ")a#(/a$(/a53(/&. Allein die Zeichen ")(/& w&uuml;rden einer Batch das "Genick" brechen. Das Zeichen  entspricht zudem jedem von Batch nicht decodierbaren Zeichen.
Da Batch selbst mit vielen Zeichen nicht Umgehen kann solltest Du nicht Versuchen irgendwelche Veschl&uuml;sselei zu versuchen . ("Geht nicht gibts nicht", aber der Aufwand w&auml;re unvertretbar.)
Powerschell ist da wesentlich freundlicher:
XOR-String_Demo.ps1
$AusgangsString='Ich bin ein String';
  # A zu Charcode
$XORWert=[int][char]'A';
$XORWert
  #XOR des Strings  mit $XORWert
$XORString=([char[]][int[]]([char[]]$AusgangsString| %{[int][char]$_ -bxor $XORWert})) -join '';
$XORString;
$XORZurueck=([char[]][int[]]([char[]]$XORString| %{[int][char]$_ -bxor $XORWert})) -join '';
$XORZurueck;

Powerschell hat jedoch wesentlich effizientere Methoden zur Verschl&uuml;sselung von Daten bereits an Board.
Wenn Du schilderst, was Du vorhast k&ouml;nnen wir sicher eine effiziente Methode finden.

airfun · Answer

Ich fand die Fragestellung witzig und hatte gerade Zeit. kopier mal folgende Zeilen in eine Datei xor.bat:

@echo off
 set val1=%1
 set val2=%2
 set res=
 echo calc [%val1%] XOR [%val2%]
 :loop
 set /A v1=%val1%/2
 set /A v2=%val2%/2
 set /A r1=%val1%-(2*%v1%)
 set /A r2=%val2%-(2*%v2%)
 echo [%val1%] = (2 * [%v1%]) + [%r1%]
 echo [%val2%] = (2 * [%v2%]) + [%r2%]
 IF "%r1%"=="%r2%" (
   set res=0%res%
 ) ELSE (
   set res=1%res%
 )
 set val1=%v1%
 set val2=%v2%
 IF NOT "%val1%"=="0" GOTO :loop
 IF NOT "%val2%"=="0" GOTO :loop
 echo result=[%res%]
 goto :EOF

Wenn Du die Datei mit zwei Zahlen als &Uuml;bergabeparameter aufrufst, erh&auml;lst Du die bin&auml;re XOR Ausgabe. Zum Beispiel:

xor.bat 13 5
 result=[1000]

Erzesel · Answer

Ich hatte etwas Zeit bei dem 💩Wetter...

Das Thema Verschlüsselung hat mich einfach interessiert , ergo habe ich etwas Experimentiert.

Die übergebenen Dateien werden mit einem Passwort verschlüsselt. Nicht mit dem Passwort selbst, sondern mit einem aus dem Passwort generierten 512Bit HashString. (das ist weit effizienter als 0 und 1.). Dieser Hat auch bei einem leeren Passwort 64 Zeichen.

Dieser String wird in einer Key-Datei abgelegt. Befindet diese sich bei der verschlüsselten Datei, kann diese ohne Passwortabfrage entschlüsselt werden.

Wird die Key-Datei gelöscht erfolgt vor dem Entschlüsseln eine Passwortabfrage.

Das Ganze funktioniert lediglich mit kleineren Dateien von maximal ein paar MB . Dann stößt Poweshell an die Grenzen. Über Geschwindigkeit muss man garnicht erst reden, etwa 5 Minuten für 30 MB 🥱😴. Bei einer kleinen Textdatei merkt man nichts davon.

XOR crypt File.pshybrid.cmd

<# : BatchTeil
@echo off 
chcp 65001 >nul
  rem wurde eine Datei  auf  die Batch gezogen? 
if "%~1"=="" (
    echo Zum Verschlüsseln ziehe eine beliebige Datei
      rem etwas Farbe in die Batch 
    powershell -c "Write-Host 'auf : ' -n ; Write-Host '%~nx0' -f cyan  "
    echo:
    powershell -c "Write-Host 'zum Entschlüsseln ziehe eine Datei mit der Endung : ' -n ; Write-Host '.encodet' -f magenta ; Write-Host 'auf : ' -n; Write-Host '%~nx0' -f cyan  "
    pause
    exit /b
)
powershell -noprofile "$InputfileFromBatch='%~f1' ;iex (${%~f0} | out-string)"
exit /b
: end batch / begin powershell #>


  #Funktionsdeklaration
function XOR-Data( $Data, $AssocValue ){
    $i=0;
    [char[]]$Data| %{
          #modulo des fortlaufenden Index (implizit erhöht) mit der Anzahl der Zeichen im Passwort
        $PWIndex=$i++ % $AssocValue.length;
        $_ -bxor $AssocValue[$PWIndex];
    };
};
function Hash-Encrypt($String='P@ssword'){
    
    [char[]][System.Security.Cryptography.HashAlgorithm]::Create('SHA512').ComputeHash([System.Text.Encoding]::ASCII.GetBytes($String))|%{
          #Nur ASCII-Zeichen von 32 bis 127
        $accu+=[char](([int]$_% (127-33) +33))
    }
    $accu
}
  #Ende Funktionsdeklaration  

<#............. Main .........#>
  
  #Dateiname aus der Aufrufzeile im Batchteil übernehmen
$InputFile=$InputFileFromBatch


if ((Get-Item $InputFile ).Extension -eq '.encoded') {
      #DateiNamen auflösen /generieren
    $FullName=(Get-Item $InputFile ).FullName
    $Split = $FullName.Split('\')
    $DirectoryPath=($Split|select -SkipLast 1) -join '\'
    $Name=$Split|select -Last 1
    $NonEncodedName=$Name -replace '.encoded',''
    $Split = $NonEncodedName.Split('.')
    $NonEncodedBaseName=($Split|select -SkipLast 1) -join '.'
    $NonEncodedExt= $NonEncodedName -replace "$NonEncodedBaseName.",''
    $OrignalFile="$DirectoryPath\$NonEncodedName"
    $OutputFile="$DirectoryPath\$NonEncodedBaseName.decoded.$NonEncodedExt"
    $KeyFile=$OrignalFile + '.key'
    $DecodeMode=$True


    Write-Host 'entschluessele : '
    Write-Host $InputFile -f yellow
    Write-Host 'nach:'
    write-Host $OutputFile -f yellow
    
    if ( Test-Path $KeyFile ){
        $encodedPassword=Get-Content $KeyFile
        Write-Host ('Keyfile: "{0}" gefunden' -f  $KeyFile) -f yellow
        Write-Host 'Autokey = ' -nonewline
        Write-Host $encodedPassword -f blue -nonewline
        Write-Host ' ...'
    }
    else {
        Write-Host ('...{0} nicht gefunden' -f $KeyFile) -f magenta
        $PasswordString=Read-Host 'Gib das Password ein';
          #aus dem Passwort einen 512Bit-Schüssel generieren
        $encodedPassword=Hash-Encrypt $PasswordString 
    }
}
else {
    $OutputFile=$InputFile + '.encoded'
    $KeyFile=$InputFile + '.key'
    Write-Host 'entschluessele : '
    Write-Host $InputFile -f yellow
    Write-Host 'nach:'
    write-Host $OutputFile -f yellow
    ''
    $PasswordString=Read-Host 'Bitte gib ein Passwort ein ';
      #aus dem Passwort einen 512Bit-Schüssel generieren
    $encodedPassword=Hash-Encrypt $PasswordString 
    $encodedPassword|Out-File $KeyFile
    Write-Host 'Autokey = ' -nonewline
    Write-Host $encodedPassword -f blue -nonewline
    Write-Host ' generiert ...'
    Write-Host ('Keyfile: "{0}" gespeichert...' -f  $KeyFile) -f yellow
    $DecodeMode=$False
}

  #als BinärDatei einlesen 
$BinaryInput=[System.IO.File]::ReadAllBytes($InputFile);
  #XOR der Daten mit $encodedPassword
$XOR_Binary=XOR-Data $BinaryInput $encodedPassword 
  #als BinärDatei schreiben 
[System.IO.File]::WriteAllBytes($OutputFile,$XOR_Binary);


if ($DecodeMode -and (Test-Path $OrignalFile ) ) {
     if ((Get-FileHash $OutputFile).Hash -eq  (Get-FileHash $OrignalFile).Hash){
        Write-Host "erfolgreich decodiert...." -f Green
    }
    else {
        Write-Host "Fehler  beim decodieren....(falsches Passwort?)" -f Red
     }
}

pause

Batch Variablen zu Binär konvertieren und XOR-Verknüpfen mit Powershell in Batch?

3 Antworten