|
Poslao: 15 Maj 2008 02:34
|
offline
- karlos
- Građanin
- Pridružio: 25 Maj 2007
- Poruke: 114
- Gde živiš: Novi Sad, Sombor
|
Na primer:
Dim Tekst as String
Dim Rec as String
Dim Mesto as Long
Tekst="Visual Basic 6.0"
Rec="Basic"
Mesto=InStr(1,Tekst,Rec)
If Mesto>0 Then
Print "Rec " & Rec & " se nalazi na " & str(Mesto) & ". poziciji u tekstu !"
Else
Print "Rec " & Rec & " ne postoji u tekstu !"
End If
Umesto Print mozes koristiti MsgBox
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
Poslao: 23 Maj 2008 22:20
|
offline
- Srki94
- Mod u pemziji
- Pridružio: 14 Feb 2008
- Poruke: 12402
|
Ajde molim vas preklinjem da mi neko uradi program i da mi posalje sa kodom da pogledam. Hvala
|
|
|
|
|
|
|
Poslao: 24 Maj 2008 01:39
|
offline
- Dragan
- Ugledni građanin
- Pridružio: 25 Jul 2003
- Poruke: 431
- Gde živiš: Nis
|
Ako te buni to sa xor uradi sledece: citaj svaki bajt iz teksta i dodaji mu odredjenu vrednost od 1 do 255 tako ce svako slovo ili znak postati neko drugo i time ce tekst postati dovoljno nerazumljiv za citanje. Kod desifrovanja samo oduzimas tu istu vrednost. Napravi da tu vrednost sto dodajes nemas u samom kodu vec da je pri pokretanju programa unosis.
ps. postao sam ugledan
|
|
|
|
|
|
|
Poslao: 25 Maj 2008 01:51
|
offline
- Srki94
- Mod u pemziji
- Pridružio: 14 Feb 2008
- Poruke: 12402
|
Hoce li neko da mi uradi. Ne shvatate to kako ja hocu. Najbolje bi bilo da vam dam program>?
|
|
|
|
|
|
|
Poslao: 25 Maj 2008 01:53
|
offline
- karlos
- Građanin
- Pridružio: 25 Maj 2007
- Poruke: 114
- Gde živiš: Novi Sad, Sombor
|
Pocni sam da radis, kad zapnes tu smo mi da pomognemo.
|
|
|
|
|
|
|
Poslao: 25 Maj 2008 02:06
|
offline
- Srki94
- Mod u pemziji
- Pridružio: 14 Feb 2008
- Poruke: 12402
|
Vec sam uradio sve samo zelim ovo: Znaci imam program imam jedan textbox i pored njega stoji 2gi text box. Kliknem da dugme i tekst iz 1textboxa se sifruje u 2...Probao sam sa tvojim kodom karlose i rade samo 2 textboxa druga 2 ne. El mozete jos malo da mi pojasnite ovo sa xor?
|
|
|
|
|
|
|
Poslao: 25 Maj 2008 02:25
|
offline
- biser-x
- Počasni građanin
- Pridružio: 28 Jun 2004
- Poruke: 990
- Gde živiš: Kucura
|
Sve ti je maximalno pojasnjeno. Ti neces da se potrudis, ali bas ni malo. Prouci taj kod koji ti je dao karlos i kada skontas kako to funkcionise uspeces sam da uradis. Nemoj od nas traziti da ti radimo programe. Tako se ne uci! Par puta sam ti napisao linkove gde imas gotove primere radjene za VB. Da si se tamo potrudio da pronadjes to sto ti treba vec bi imao deset primera gotovih... To ti je 15min posla, a vamo se cimas ceo dan da bi ti neko napisao program...
Ovo nije forum gde mi radimo programe po necijoj zelji! Ovo je forum gde mi pomazemo ako nekome zapne i objasnjavamo to sto nije jasno. Koliko vidim ekipa je uradila svoj deo posla. Ostalo je na tebi....
|
|
|
|
|
|
|
Poslao: 25 Maj 2008 16:08
|
offline
- Srki94
- Mod u pemziji
- Pridružio: 14 Feb 2008
- Poruke: 12402
|
Znam hvala nema veze uradio sam vec. Da li ste znali da u vb mozete da radite 3d igre? Preko OpenGl i tako to. Ima puno opcija tj sve radi osim drajvera.
|
|
|
|
|
|
|
Poslao: 26 Maj 2008 19:25
|
offline
- rgdrajko
- Građanin
- Pridružio: 06 Maj 2007
- Poruke: 241
- Gde živiš: Beograd
|
Pogledaj u izdvojenoj temi: Zastita programa od kopiranja
Tamo sam sifrirao serijski broj diska sa XOR -om.
Ako bude problem ja cu ti uraditi ceo kod za sifriranje bilo kojeg tekstualnog fajla.
|
|
|
|
|
|
