Kod: Tümünü seç
begin
baseli:=StrTobase64(gelenmetin);
for I := 0 to Length(baseli) do
begin
a :=a+ char(byte(baseli[I]) xor Key1);
end;
Result:=a;
end;Kod: Tümünü seç
begin
for I := 0 to Length(veri) do
begin
a :=a+ char(byte(veri[I]) xor Key1);
end;
basesiz:=Base64ToStr(a);
Result:=basesiz;
Sayın @ikutluay ılk mesajıma bakarsanız derdım ve kodlarım orda..ayrıca hazır kod degıl ben bahsettıgım yolu kullanmak ıstıyorum ve o konuda yardım beklıyorum..actıgınız thread de ezbere kodlar var hangı kodun ne ıs yaptıgı bellı degıl.. bı suru kod yazmıssınız o thread de ama maalesef copy paste anca bu kadar oluyorkı oda bı ıse yaramıyor......Bu konuda bılgısı olan arkadaslardan (@ikutluay HARIC!!) yardım beklıyorumikutluay yazdı:derdini tam yazıp kodu yapıştırmalısınki bir şey önerelim
Arkadaş sana yardım etmeye çalışıyor sense itiyon.Nick_ yazdı:Sayın @ikutluay ılk mesajıma bakarsanız derdım ve kodlarım orda..ayrıca hazır kod degıl ben bahsettıgım yolu kullanmak ıstıyorum ve o konuda yardım beklıyorum..actıgınız thread de ezbere kodlar var hangı kodun ne ıs yaptıgı bellı degıl.. bı suru kod yazmıssınız o thread de ama maalesef copy paste anca bu kadar oluyorkı oda bı ıse yaramıyor......Bu konuda bılgısı olan arkadaslardan (@ikutluay HARIC!!) yardım beklıyorumikutluay yazdı:derdini tam yazıp kodu yapıştırmalısınki bir şey önerelim
Base64 fonksiyonlarının kodlarını inceliyoruzBase64 Delphi ile gelen standart bir dosya, bileşen yada fonksiyon değildir. bunu ki encode u ve decode u bir pas uzantılı dosya içinde ve genelde bu dosyanın adı "base64.pas" dır projene eklemen gerek.
Ben bilgisiz biriyim ama en azından konunun başlığına bakmayı akıl edebiliyorum. o threaddaki her kodun başlığında ne yaptığı yazıyor.Nick_ yazdı:bu konuda bılgılı kısılerden yardım ıstedım ben forum kırlılıgı yapmak ıcın cevap yazın demedımkı!!!
1) bilgisiz biri oldugun (2 defa acıklamama ragman hala va hala) "amacın ne... derdın ne..." demenden anlasılıyor bırde burda ıtıraf edıpte ıyıce gozden dusme yanı..sen sadece otur konuların başlığına bakmayı akıl et baska bısey yapmasanda olurBen bilgisiz biriyim ama en azından konunun başlığına bakmayı akıl edebiliyorum.
2) mesajların baslıgından degıl ıcerıgınden bahsedıyorum ben.. tamam belkı sen bı projende bı kodda takıldıgında netten bulup dırek copy paste yapıp tamam hallettım dıyebılırsın ama herkez senın gıbı projelerınde dırek copy-paste yapmıyor.sonucta projedekı butun kodların tam olarak ne ıcın kullandıgını (mantıgını) bılmen gerekıyo..tabıkı sen boyle yapmıyabılırsın (sonucta boylelerıne de programcı yada muhendıs denebılıyo!!!!!!!)o threaddaki her kodun başlığında ne yaptığı yazıyor.
3) ben kımseyı usagım olarak gormem..sanada usagımsın dıyen olmadı ayrıca yardım ıstemenın adabını da bılıyorum o yuzden 2 defa ne yapmak ıstedıgımı anlattım ama sen halaaa anlamadan cevap vermeye calısıyosun..bırde hakaret demıssın ben kımseye hakaret etmedımkı.. sen nereyı hakaret olarak algıladın oda ayrı bı konu..gercı senden bahsedıyoruz.. allah kımseye anlama ozru vermesınn oncekı mesajlarımda hakaret ıceren hıc bı kelıme yoktu ama bu mesajımı hakaret olarak da algılayabılırsın..senı tutan yokBurda kimse kimsenin babasının uşağı değil. Yardım istemeninde bir adabı var. Böyle hakaretlerle kimse bir yere varamaz.
if (Length(S) mod 4)<> 0 then
raise Exception.Create('Base64: Incorrect string format');
Kod: Tümünü seç
a :=a+ char(byte(baseli[I]) xor Key1);
bunu bıldıgın halde nıe uzatıpta konuyu dagıtıyosunkı??? bılenler yazsın ısteÇünkü bu forum sadece insanlar gelip soru sorsun diye yok. bilenler cevapta yazsın diye var.
2. Konuyu başlatan buna rağmen hala sorusunun açık olduğunu bizim bunu anlayamadığımızı iddia ediyorsa neden kimsenin hala cevabı bulamadığını merak ederim.
Üstad ne bilim gerilince elde olmadan laflar edebiliyorsun. Sonra malum daha önce yaşananlardan dolayı dikkat etmeye çalışıyorum tartışmalardan uzak durmaya.aslangeri yazdı:@ikutluay;
3) Hafta sonları moderator ve adminler evde aileleri/sevdikleri ile vakit geçirmeyi yeğliyor olabilirler.
