Rosetta Code

Data Encryption Standard: Difference between revisions

Page Discussion

Data Encryption Standard (view source)

Revision as of 12:40, 11 September 2018

49 bytes removed ,  5 years ago
m
→‎{{header|Phix}}
Line 677:
sequence e = r&l
string res = ""
integer bytefor i= 0, bitto =63 0by 8 do
for i=1 to 64 dointeger byte = 0
bytefor bit=1 byte*2+e[IP_1[i]]to 8 do
bit + byte = 1byte*2+e[IP_1[i+bit]]
ifend bit=8 thenfor
res &= byte
byte = 0
bit = 0
end if
end for
return res
Petelomax
7,813

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/276017"