Emomatik 1.0
-
herkes kıskanıyorda ben kıskanamazmıyım diyerekten 21:32 civarlarında başladım, bölye bişi çıktı ortaya, bakalım beğenecekmisini ;)
Musket inkine rakip bence sidik yarışına varım ;)
http://rapidshare.com/files/147492854/emomatik1.0.rar
silme özellliği + büyük küçük harf karışık özelliği ile rakiplerinden sıyrılıyor.
-
Kahrolsun Emolizm :P
-
Programın adı bir Cins :D
-
thecoltfire bunu yazdı:
-----------------------------Programın adı bir Cins :D
-----------------------------ismi en son aşamada düşündüm ilk aklıma bu geldi omomatik ten çağrışım yaptı heralde. :P ben yatıyorum, yarın bakarım konuya eğer hala yerindeyse :D
-
Haha,
Hayırlı olsun abi : )
Bravo güzel bir program olmuş.
Zira, OpenSource olması anafikirdir benim programımın :)
Ayrıca KeyCodeBul V1.0 da var,
Buna da rakip bekliyorum :P
Bunu da yaparsan sidik yarışı olayında,
Parmakİzi güvenlik programı konusunda yarışma işine gircem :P
-
Musket bunu yazdı:
-----------------------------Haha,
Hayırlı olsun abi : )
Bravo güzel bir program olmuş.
Zira, OpenSource olması anafikirdir benim programımın :)
-----------------------------istediğin kaynak kod olsun homie,
bu ilk memo ya harf girilince çalışan prosedür
procedure TForm1.ilkChange(Sender: TObject);
var
hk:string;
i:integer;
begin
hk:= ilk.Lines.Text; // bilgileri memodan al
// ve başlıyoruz..
hk:= StringReplace(hk,'b','ß',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'c','ch',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'e','è',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'g','q',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'k','qh',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'p','ph',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'o','0',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'s','sh',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'ş','sh',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'v','vh',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'y','yh',[rfReplaceAll, rfIgnoreCase]);
hk:= StringReplace(hk,'ü','u',[rfReplaceAll, rfIgnoreCase]);
if buyuk.Checked then
begin
//büyük küçük karışık yapıyoruz..
Randomize;
for i := 0 to length(hk)-1 do
if random(2)=1 then // 1 ile 2 arasında random yapıyoruz, 1 se büyük harf, 2 se ellemiyoruz bişeye
hk[i] := UpCase(hk[i]);
end;
son.Lines.Text:=hk; //çıkan veriyi "son" adlı memoya aktarıyoruz
end;buda temizleme şeyisi, bunda bişi yok zaten
procedure TForm1.Button1Click(Sender: TObject);
begin
ilk.Clear;
son.Clear;
end; -
ulen ne emoymus beah
-
jayde bunu yazdı:
-----------------------------
ulen ne emoymus beah
-----------------------------amaç programlama tekniğini geliştirmek, ve birazda eğlenmek ;)
-
http://www.tahribat.com/forumdisplayfolder.asp?highlight=cucum&folderid=54839
vb versionu :D
-
yanlış ama yaptıgın şeye lafım yok.sadece bu emoculuk tahribattamı çoğaldı yoksa dışarda çokmu yaygınlaştı ben farketmiyorum
-
isme bak EmoMatik