دوستان سلام ،
در نسخه های قدیمی دلفی با اضافه کردن encddcd به قسمت Uses می تونستیم یه متن رو رمز کنیم ، جالا در نسخه EX7 روش فرق می کنه ، اگه کسی اطلاعاتی در این زمینه دارید لطفا کمک کنید
Printable View
دوستان سلام ،
در نسخه های قدیمی دلفی با اضافه کردن encddcd به قسمت Uses می تونستیم یه متن رو رمز کنیم ، جالا در نسخه EX7 روش فرق می کنه ، اگه کسی اطلاعاتی در این زمینه دارید لطفا کمک کنید
میخواهید متنتون رو بیس کنید؟
سلام
تابع اصلی:
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;
مهندس چخبره ، این همه کد:
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;
ممنون دوستان گلم ، آيا اين براي برنامه هاي موبايل جواب ميده؟ من براي كامپيوترنميخاما
برنامه موبایل با چی نوشته میشه؟
سلام به همگی
بعد از مدت ها برگشتم،تازه امتحانات دانشگاه تموم شده بود.
برای همچین کاری از تابع زیر استفاده کن،توی اندروید و 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 کن.