- if Pos( salt[ i ], ':;<=>?@[\\]^_`' ) > 0 then
- salt[ i ] := Char( Integer( salt[ i ] ) + 7 );
+ if Pos ( salt[ i ], ':;<=>?@' ) > 0 then begin
+ salt[ i ] := Char( Integer( salt[ i ] ) + 7 );
+ end else if Pos( salt[ i ], '[\\]^_`' ) > 0 then begin
+ salt[ i ] := Char( Integer( salt[ i ] ) + 6 );
+ end;