Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: şifre  (Okunma sayısı 2240 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Biruni

  • Yeni Üye
  • *
  • İleti: 10
  • Rep: +0/-0
şifre
« : 23 Ocak 2009 10:59:04 »

soru:? harddsik  seri  numarasına bağlı şifreleme yapmak istiyorumm program başka bir bilgisayara kurulduğunda  hdd  numarasına işme yaptırarak (harf veya numaradan  iabret  oluyorlar ) örneğin numaraları 2 arttırarak veya harfleri  2  öetleyerek  ekrana yazsın bana söylesin  kullnıcı
bana söyelenen bu bilgiler ışığından ben de harfleri  2  azaltıp  2 berileyerek  yazdırdığımdam program çalışsın . 2 ile işlwm  yaptırmak kolayıma geldiğinden her tür ilme çoğaltılabilir
bu  nasıl mümkün olur...
bana işin  zor kısmı harf ve sayıları  ayırtmak  ve işlem yaptırmak bu  zor geliyor??*
yardım cı  olursanzı sevinirim 
örnek: hdd nosu: 29AB-15ZF olsun
1. KARAKTER: 2+2=4
2. KARAKTER:9 İLERİ 2 =1
3. KARAKTER:A+2=C
4. KARAKTER:B+2=D
5. KARAKTER:-         -
6. KARAKTER:1+2=3
7. KARAKTER:5+2=7
8. KARAKTER:Z+2=B
9. KARAKTER:F+2=H
program yeni  bilgasayra kurulduğunda ekrana
EKRANA
41CD-37BH YAZSIN KULLANICI BİLGİSAYARINA KURDUĞUNDAN  BENDE bunu çözüp  kendisine hdd nıosunun düzgün bildirdiğimde   program çalışsın

29AB-15ZF:hdd no
41CD-37BH:hdd 2 ile işleme girmiş

tabi bütün  bunları time ile random  ile süsletip  şifleme sistemini daha da pekiştirmek  istiyorum 
yardımlarınız için şimdiden  teşekkür ederiz...
işlenizde başarılar dilerim .. .

Kayıtlı

Çevrimdışı metinayhan

  • Yeni Üye
  • *
  • İleti: 3
  • Rep: +0/-0
Ynt: şifre
« Yanıtla #1 : 14 Kasım 2009 00:50:26 »
arkadaşım soruna cevap bulabildinmi?şuan benimde başımda aynı sorun var :(
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.117
  • Rep: +51/-0
  • Cinsiyet: Bay
  • Falan filan ...
Ynt: şifre
« Yanıtla #2 : 14 Kasım 2009 01:02:04 »
ilk olarak 29AB-15ZF bu HDD no değil volume (partition) numarasıdır ve her formatta değişir ..
ikinci olarak şunu yapabilirsin ..

a = 3
b = 4
c = 5

adam sana abc dediğinde ..
sende çilingir exende abc yi giriceksin buttona bastığında sana 345 dicek ama nasıl dicek çok basit bir yöntemle

Kod: Delphi
  1. var
  2.  s : string;
  3. begin
  4. s := edit.text;
  5. s :=StringReplace(s,'a','3',[rfReplaceAll]);
  6. s :=StringReplace(s,'b','4',[rfReplaceAll]);
  7. s :=StringReplace(s,'c','5',[rfReplaceAll]);
  8. edit2.text := s ;
  9. end;

çok basit bir yöntem :) ama kullanılabilinir :)
« Son Düzenleme: 14 Kasım 2009 01:03:13 by barutali »
Kayıtlı



Amatör Küme Programcı

Çevrimdışı Biruni

  • Yeni Üye
  • *
  • İleti: 10
  • Rep: +0/-0
şifre incelersen işine yarayacağını düşünüyorum
« Yanıtla #3 : 16 Kasım 2009 13:39:53 »
Ben benzer birşey yapmıştım.Harddisk seri numarasındaki her harf ve her rakamın ascii kod karşılığını bulup bunları topluyordum.Sonra bu sonucu sabit bir sayı belirleyip bu sabit sayı ile çarpıyordum.Biraz daha sağlam olsun diye bu çıkan sonuç içinde birkaç basit matematik işlemi daha yaptırabilirsin.En son sonuç senin şifren yada programın seri nosu olur ve sadece tek ve hep aynı bilgisayarda çalışır.Farklı bir bilgisayar için farklı bir seri numarası gerekir.
Kullanıcıya sen harddisk seri numarasını program içinde gösterirsin.Kullanıcı sana bu numarayı bildirir.Sende gerekli işlemleri yaparak kullanıcıya seri nosunu -şifresini- söylersin.
Ama diyelim kullanıcı bilgisayarını değiştirdi ve programı yeni bilgisayarına kurmak istedi.Yeni bilgisayarın harddisk seri numarası farklı olacağı için kullanıcı senden yeni seri numarası -şifre-isteyecek...Bu bir çözüm ama pekte mantıklı değil bence...
akıllanma , aklını başına toplama , toparlanma , kendisini derleme bu dünyaya ait bir vazife.
ahirette nasıl olsa aklın başına gelecek.palandoken
Üye
 
İleti: 149
Kayıt: 16 Ekm 2006 09:43
Konum: ERZURUM Sayfa başı
--------------------------------------------------------------------------------
ascii kod
 Ahmed Sabri Biruni » 24 Oca 2009 08:03

yani şimdilik bu benim için yeterli ascii kod fikri için teşekkür ederim...

küçük not: dönüşümler için

caption:IntToStr(ord('B')) // 66 yazar
başka önek:
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := IntToStr(ord('7'))+IntToStr(ord('-'))+IntToStr(ord('F'));//554570 yazar
end;
end.
yazmak ve tersi için
ansi koddan geri dönüş için

var
metin:ansistring;
begin
Metin:=Chr(65);
caption:Metin; //A yazar
bunlar üzerinden işlem yapmaya çalışıyorum ...
yine örnek kod işime çok yaradı türettiğim kodlar ekte şimdilik bu durumdayım bittiği zaman tam ekliyeceğim
tekrar teşekürler hayırlı günler
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text := IntToStr(ord('7')+2)+IntToStr(ord('-')+2)+IntToStr(ord('F')+2);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
Metin:Ansistring;
begin
Metin:=Chr(45)+chr(55)+chr(70);
Edit2.Text:=metin;
end;

end.Ahmed Sabri Biruni
Üye
 
İleti: 21
Kayıt: 03 Oca 2009 01:15 Sayfa başı
--------------------------------------------------------------------------------
Re: şifre
 Ahmed Sabri Biruni » 26 Oca 2009 08:11

adelphiforumz ye teşekkür ediyorum
beni büyük bir sorundan kurtardın ord fonksiyonu ve ascii kod dönüşümleri çok güzel anlatılmış burda istifade için ekleme ihtiyacı duydum güzel şifrelerde kullanmanız dileğiyle;;

Kod: Tümünü seç
var
s:String;
s1,s2,s3,s4,s5,s6,s7,s8,s9:Char;


begin
s:=Edit3.Text;
s1:=s[1];
s2:=s[2];
s3:=s[3];
s4:=s[4];
s5:=s[5];
s6:=s[6];
s7:=s[7];
s8:=s[8];
s9:=s[9];

ShowMessage(IntToStr(Ord(s1)) + ' - ' + Chr(Ord(s1)) + ' - ' + IntToHex(Ord(s1),1));
//edit13.Text:= IntToStr(Ord(s1));
//edit4.Text:=IntToStr(Ord(s1)+2);
edit4.Text:= Chr(Ord(s1)+2);
end;
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »