استفاده از Base64 در برنامه های اندروید

[RahmanAmiriSh]

دوستان سلام ،

در نسخه های قدیمی دلفی با اضافه کردن encddcd به قسمت Uses می تونستیم یه متن رو رمز کنیم ، جالا در نسخه EX7 روش فرق می کنه ، اگه کسی اطلاعاتی در این زمینه دارید لطفا کمک کنید

[Mask]

میخواهید متنتون رو بیس کنید؟

[golbafan]

سلام
تابع اصلی:


const
Cod='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghi jklmnopqrstuvwxyz+/';

function Encode(S:string):string;
var
i,a,b,x: Integer;
begin
a:=0;
b:=0;
for i:=1 to length(s) do
begin
x:=Ord(s[i]);
b:= b*256+x;
inc(a,8);
while a>=6 do
begin
dec(a,6);
x:=b div (1 shl a);
b:=b mod (1 shl a);
Result:=Result+Cod[x+1];
end;
end;
if a>0 then
begin
x:=b shl (6-a);
Result:=Result+Cod[x+1];
end;
end;

function Decode(S:string):string;
var
i,a,b,x: Integer;
begin
a:=0;
b:=0;
for i:=1 to length(s) do
begin
x:=pos(s[i], cod)-1;
if x>=0 then
begin
b:=b*64+x;
inc(a,6);
if a>=8 then
begin
dec(a,8);
x:=b shr a;
b:=b mod (1 shl a);
x:=x mod 256;
Result:=Result+chr(x);
end;
end
else
Exit;
end;
end;

[Mask]

مهندس چخبره ، این همه کد:

uses
Windows,IdGlobal,
IdCoderMIME;


Function CodeStr(aStr: string): string;
begin
Result := TIdEncoderMIME.EncodeString(aStr, IndyTextEncoding_UTF8);
end;


Function DecodeStr(aStr: string): string;
begin
Result := TIdDecoderMIME.DecodeString(aStr, IndyTextEncoding_UTF8);
end;

[RahmanAmiriSh]

ممنون دوستان گلم ، آيا اين براي برنامه هاي موبايل جواب ميده؟ من براي كامپيوترنميخاما

[Mask]

برنامه موبایل با چی نوشته میشه؟

[ابوالفضل عباسی]

سلام به همگی
بعد از مدت ها برگشتم،تازه امتحانات دانشگاه تموم شده بود.

برای همچین کاری از تابع زیر استفاده کن،توی اندروید و ios جواب میده،خودم دارم ازش استفاده میکنم.


function CodingBase64 (SText: String;BEnCoding:boolean):string;begin
if BEnCoding = true then
Result:=TNetEncoding.Base64.Encode(SText)
else
Result:=TNetEncoding.Base64.Decode(SText);
end;

اگر میخواهی نوشته رو تبدیل به کد کنی ،BEnCoding رو True کن و اگر میخوای کد رو به نوشته تبدیل کنی، BENCoding رو False کن.
درضمن تابع
System.NetEncoding رو به برنامه ات uses کن.