bitwise XOR một chuỗi trong Bash

Question

Tôi đang cố gắng hoàn thành một tác phẩm trong kịch bản lệnh Bash. Tôi có một chuỗi mà tôi muốn XOR với chìa khóa của tôi.

#!/bin/sh 
PATH=/bin:/usr/bin:/sbin:/usr/sbin export PATH 

teststring="abcdefghijklmnopqr" 

Bây giờ, làm thế nào để XOR giá trị của chuỗi thử nghiệm và lưu trữ nó bằng biến bash?

Mọi trợ giúp sẽ được đánh giá cao.

Về cơ bản tôi đang cố gắng để lặp lại trong các kết quả những công đọan VB Script:

Function XOREncryption(CodeKey, DataIn) 

Dim lonDataPtr 
Dim strDataOut 
Dim temp 
Dim tempstring 
Dim intXOrValue1 
Dim intXOrValue2 


For lonDataPtr = 1 To Len(DataIn) Step 1 
    'The first value to be XOr-ed comes from the data to be encrypted 
    intXOrValue1 = Asc(Mid(DataIn, lonDataPtr, 1)) 
    'The second value comes from the code key 
    intXOrValue2 = Asc(Mid(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1)) 

    temp = (intXOrValue1 Xor intXOrValue2) 
    tempstring = Hex(temp) 
    If Len(tempstring) = 1 Then tempstring = "0" & tempstring 

    strDataOut = strDataOut + tempstring 
Next 
XOREncryption = strDataOut 
End Function 

Answer 1

Bitwise độc ​​quyền-OR trong BASH đòi hỏi cả hai toán hạng phải là số. Vì không có cách tích hợp để nhận giá trị thứ tự (ASCII) của một ký tự trong bash, bạn sẽ cần sử dụng Perl để lấy giá trị đó.

Chỉnh sửa: như đã nêu bên dưới, ord chỉ hoạt động trên ký tự đầu tiên của chuỗi.

let a=`perl -e 'print ord $_ for split //, $ARGV[0]' string`^123; echo $a 

Tất nhiên, một khi bạn đang ở trong Perl, bạn cũng có thể làm tất cả có:

let a=`perl -e '$ordinal .= ord $_ for split //, $ARGV[0]; print $ordinal^$ARGV[1]' string 123` 

Sửa: nó quay ra bạn có thể lấy các giá trị thứ tự của một chuỗi trong BASH sử dụng printf. Đơn giản chỉ cần tiền tố chuỗi với '.

printf "%d" "'string" 

Vì vậy, chỉ trong BASH:

let a=$(printf "%d" "'string")^123; echo $a 

Answer 2

Nếu bạn quyết định để đi cho Perl one-liner, đây là những gì tôi đã đưa ra

chức năng zip

perl -e '@a=split("", $ARGV[0]); @b=split("", $ARGV[1]); print unpack "H2", chr(ord(shift @a)^ord(shift @b)) while @a; print "\n"' aab aaa 

trong Perl 6 sẽ làm tốt hơn ...

Answer 3

Với sự giúp đỡ của these hints i viết này nhanh chóng kịch bản để hoàn thành Pedro của câu trả lời:

#!/bin/bash 

function ascii2dec 
{ 
    RES="" 
    for i in `echo $1 | sed "s/./& /g"` 
    do 
    RES="$RES `printf \"%d\" \"'$i\"`" 
    done 
    echo $RES 
} 

function dec2ascii 
{ 
    RES="" 
    for i in $* 
    do 
    RES="$RES`printf \\\\$(printf '%03o' $i)`" 
    done 
    echo $RES 
} 

function xor 
{ 
    KEY=$1 
    shift 
    RES="" 
    for i in $* 
    do 
    RES="$RES $(($i ^$KEY))" 
    done 

    echo $RES 
} 


KEY=127 
TESTSTRING="abcdefghijklmnopqr" 

echo "Original String: $TESTSTRING" 
STR_DATA=`ascii2dec "$TESTSTRING"` 
echo "Original String Data: $STR_DATA" 
XORED_DATA=`xor $KEY $STR_DATA` 
echo "XOR-ed Data: $XORED_DATA" 
RESTORED_DATA=`xor $KEY $XORED_DATA` 
echo "Restored Data: $RESTORED_DATA" 
RESTORED_STR=`dec2ascii $RESTORED_DATA` 
echo "Restored String: $RESTORED_STR" 

Kết quả:

iMac:Desktop fer$ bash test.sh 
Original String: abcdefghijklmnopqr 
Original String Data: 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 
XOR-ed Data: 30 29 28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 
Restored Data: 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 
Restored String: abcdefghijklmnopqr 

Answer 4

woks trong busybox (dán không thể nhận được hai con suối), cũng làm chìa khóa để lặp lại

#!/bin/sh 
numitems() { i=0;while read ITEM; do i=$(($i + 1)) ; done; echo $i; } 
starmap() { while read ITEM; do $1 $ITEM; done; } 
ord() { printf '%d\n' "'$1"; } 
chr() { printf \\$(printf '%03o' $1); } 
split_chars() { echo -n "$1" | sed 's/./&\n/g'; } 
xor() { echo $(($1^$2)); } 
map_ord() { split_chars "$1" | starmap ord; } 
encrypt() 
{ 
KEY=$1;STR=$2; 
while [ ${#KEY} -lt ${#STR} ]; do KEY="$KEY$KEY"; done; #make key longer then str 
[ -e /tmp/paste_col1 ] && rm -rf /tmp/paste_col1 
[ -e /tmp/paste_col1t ] && rm -rf /tmp/paste_col1t 
[ -e /tmp/paste_col2 ] && rm -rf /tmp/paste_col2 
map_ord "$KEY">/tmp/paste_col1t 
map_ord "$STR">/tmp/paste_col2 
head -n `wc -l /tmp/paste_col2 |sed -r 's|^([0-9]+)\s.*|\1|'` /tmp/paste_col1t>/tmp/paste_col1 #trim lines 
[ -e /tmp/paste_col1t ] && rm -rf /tmp/paste_col1t 
paste /tmp/paste_col1 /tmp/paste_col2 | starmap xor | starmap chr 
[ -e /tmp/paste_col1 ] && rm -rf /tmp/paste_col1 
[ -e /tmp/paste_col2 ] && rm -rf /tmp/paste_col2 
echo 
} 
KEY="12345678" 
TESTSTRING="abcdefghasdfasdfasfdas" 
encrypt "$KEY" "$TESTSTRING" 
ENC="`encrypt \"$KEY\" \"$TESTSTRING\"`" 
encrypt "$KEY" "$ENC" # we should get $TESTSTRING again 

Answer 5

chưa có câu trả lời nào khác

function xenc { 
    local data=$1 key=$2 
    local _data _key ndata nkey count i _res 
    _data=($(eval printf "'%d '" $(printf "%s" "$data" | sed -e '$!N;${s/./"'"'"'&" /g;s/""/\\&/g}'))) 
    _key=($(eval printf "'%d '" $(printf "%s" "$key" | sed '$!N;${s/./"'"'"'&" /g;s/""/\\&/g}'))) 
    ndata=${#_data[@]} nkey=${#_key[@]} 
    ((count = ndata < nkey ? nkey : ndata)) 
    for ((i = 0; i < count; i++)); do 
    ((_res[i] = ${_data[i]:-0}^${_key[i%nkey]:-0})) 
    done 
    printf "\\\\\\%o" "${_res[@]}" | xargs printf 
} 
res=$(xenc abcdefghijklmnopqrstuvwxyz FLqFb8LU0TY) 
xenc "$res" FLqFb8LU0TY 

Answer 6

Việc chuyển đổi tương tự như hầu hết chỉ có chức năng để bash sẽ là:
(# có nghĩa là bình luận):

# Function XOREncryption(CodeKey, DataIn) 
XOREncryption(){ 
    local CodeKey=$1 
    local DataIn=$2 
    # Dim lonDataPtr strDataOut temp tempstring intXOrValue1 intXOrValue2 
    local lonDataPtr strDataOut temp tempstring intXOrValue1 intXOrValue2 

    # For lonDataPtr = 1 To Len(DataIn) Step 1 
    for ((lonDataPtr=0; lonDataPtr < ${#DataIn}; lonDataPtr++)); do 
     #The first value to be XOr-ed comes from the data to be encrypted 
    # intXOrValue1 = Asc(Mid(DataIn, lonDataPtr, 1)) 
    intXOrValue1=$(toAsc "${DataIn:$lonDataPtr:1}") 
    echo "val1=$intXOrValue1 and=<${DataIn:$lonDataPtr:1}> and $(toAsc "${DataIn:$lonDataPtr:1}")" 
     #The second value comes from the code key 
    echo "Ptr=$lonDataPtr Mod=<$((lonDataPtr % ${#CodeKey}))>" 
    # intXOrValue2 = Asc(Mid(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1)) 
    intXOrValue2=$(toAsc "${CodeKey:$((lonDataPtr % ${#CodeKey})):1}") 
    echo "val1=$intXOrValue1 val2=<${CodeKey:$((lonDataPtr % ${#CodeKey})):1}> and |$intXOrValue2|" 
    # temp = (intXOrValue1 Xor intXOrValue2) 
    temp=$((intXOrValue1^intXOrValue2)) 
    echo "temp=$temp" 
     # tempstring = Hex(temp) 
    tempstring=$(printf '%02x' "$temp") 
    echo "tempstring=$tempstring" 
    # strDataOut = strDataOut + tempstring 
     strDataOut+=$tempstring 
    echo 
    # Next 
    done 
    # XOREncryption = strDataOut 
    printf '%s\n' "$strDataOut" 
# End Function 
} 

Loại bỏ các ý kiến, và làm sạch mã:

#!/bin/bash 

Asc() { printf '%d' "'$1"; } 

XOREncryption(){ 
    local key=$1 DataIn=$2 
    local ptr DataOut val1 val2 

    for ((ptr=0; ptr < ${#DataIn}; ptr++)); do 
     val1=$(Asc "${DataIn:$ptr:1}") 
     val2=$(Asc "${key:$((ptr % ${#key})):1}") 
     DataOut+=$(printf '%02x' "$((val1^val2))") 
    done 
    printf '%s\n' "$DataOut" 
} 

CodeKey="$1" 
teststring="$2" 
XOREncryption "$CodeKey" "$teststring" 

---

Chạy:

$ ./script.sh "123456789" "abcdefghijklmnopqr" 
5050505050505050505b595f595b5947494b