equal
deleted
inserted
replaced
86 begin |
86 begin |
87 for t:= 1 to Pred(i) do |
87 for t:= 1 to Pred(i) do |
88 if (a[t] >= 'A')and(a[t] <= 'Z') then |
88 if (a[t] >= 'A')and(a[t] <= 'Z') then |
89 Inc(a[t], 32); |
89 Inc(a[t], 32); |
90 b:= copy(a, i + 1, Length(a) - i); |
90 b:= copy(a, i + 1, Length(a) - i); |
91 byte(a[0]):= Pred(i) |
91 a[0]:= char(Pred(i)) |
92 end |
92 end |
93 else |
93 else |
94 b:= ''; |
94 b:= ''; |
95 end; |
95 end; |
96 |
96 |
235 begin |
235 begin |
236 t:= Pos(s[i], table); |
236 t:= Pos(s[i], table); |
237 if s[i] = '=' then |
237 if s[i] = '=' then |
238 inc(c); |
238 inc(c); |
239 if t > 0 then |
239 if t > 0 then |
240 byte(s[i]):= t - 1 |
240 s[i]:= char(t - 1) |
241 else |
241 else |
242 byte(s[i]):= 0 |
242 s[i]:= #0 |
243 end; |
243 end; |
244 |
244 |
245 i:= 1; |
245 i:= 1; |
246 t:= 1; |
246 t:= 1; |
247 while i <= length(s) do |
247 while i <= length(s) do |
254 end; |
254 end; |
255 |
255 |
256 if c < 3 then |
256 if c < 3 then |
257 t:= t - c; |
257 t:= t - c; |
258 |
258 |
259 byte(DecodeBase64[0]):= t - 1 |
259 DecodeBase64[0]:= char(t - 1) |
260 end; |
260 end; |
261 |
261 |
262 |
262 |
263 function Str2PChar(const s: shortstring): PChar; |
263 function Str2PChar(const s: shortstring): PChar; |
264 begin |
264 begin |