Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zastita VB programa, HITNO!!!

[es] :: Visual Basic 6 :: Zastita VB programa, HITNO!!!

[ Pregleda: 4310 | Odgovora: 18 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

nd_genius
Jasko Nisic
Tuzla

Član broj: 19486
Poruke: 59
*.as3.sr.bih.net.ba.

Sajt: www.jasko-n.tk


Profil

icon Zastita VB programa, HITNO!!!07.02.2006. u 13:20 - pre 179 meseci
pozdrav,

pretrazivao sam ES, i nasao sam nekoliko tema vezanih za ovu moju, ali opet nisam uspio rijesiti problem, pa sam se odlucio da postavim novu temu.

Zanima me kako da mi VB program u Text1 prikaze serijski broj hard diska ili ako moze nekog drugog jedinstvenog broja, znaci broja koji je drugaciji na svakom racunaru.. Molim za pomoc, ali ako moze sto brze...

Hvala unaprijed
 
Odgovor na temu

ThePunisher

Član broj: 56395
Poruke: 38
195.252.85.*

ICQ: 258326634


Profil

icon Re: Zastita VB programa, HITNO!!!07.02.2006. u 13:56 - pre 179 meseci
Možeš da koristiš ime računara plus neki drugi broj koji još sam izabereš

Ubaci ovo na vrh Code prozora:

Code:
Private strString As String
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long


Zatim ovo u komandno dugme,formu...nije bitno gde

Code:
Dim dwLen As Long
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)


Pomoću ovog koda dobićeš ime računara.E sad to ime pretvoriš u ASCii vrednost na koristeći sledeći kod:

Code:
Dim i As Integer
Dim ID As String

For i = 1 To Len(strString)
ID = ID & Asc(Mid(strString, i, 1))
Next i
Msgbox ID


Sad ako hoćeš možeš da dodaš još neki broj na ID.
Toliko od mene.p0z

[Ovu poruku je menjao mladenovicz dana 23.03.2006. u 15:52 GMT+1]
 
Odgovor na temu

nd_genius
Jasko Nisic
Tuzla

Član broj: 19486
Poruke: 59
*.as3.sr.bih.net.ba.

Sajt: www.jasko-n.tk


Profil

icon Re: Zastita VB programa, HITNO!!!08.02.2006. u 11:00 - pre 179 meseci
ThePunisher, uradio sam ovako kako si rekao i kad kliknem na Command1 i samo se pojavi MsgBox prazan sa dugmetom OK, znaci nista ne pise, nikakav serijski broj.

Ima li neko rjesenje???
 
Odgovor na temu

ThePunisher

Član broj: 56395
Poruke: 38
*.beotel.net.

ICQ: 258326634


Profil

icon Re: Zastita VB programa, HITNO!!!08.02.2006. u 11:44 - pre 179 meseci
Upravo sam probao i sve lepo radi.Ne znam šta bi moglo da bude.
Okačio sam ti primer uz poruku da vidiš da li si sve lepo uradio.
Prikačeni fajlovi
 
Odgovor na temu

nd_genius
Jasko Nisic
Tuzla

Član broj: 19486
Poruke: 59
*.as3.sr.bih.net.ba.

Sajt: www.jasko-n.tk


Profil

icon Re: Zastita VB programa, HITNO!!!08.02.2006. u 11:55 - pre 179 meseci
Radi, vidio sam gdje je greska....

A ovo je ime racunara koje se uvijek moze promijeniti i da nisam nista postigao. Je li moguce isto ovako samo umjesto ime racunara da uzima serijski broj hard diska ili nesto iz biosa, znaci sto se teze mijenja ili sto se ne moze nikako promijeniti.... ipak, hvala tebi i za ovo, ali znas li da cita ovo gore spomenuto???
 
Odgovor na temu

ThePunisher

Član broj: 56395
Poruke: 38
195.252.99.*

ICQ: 258326634


Profil

icon Re: Zastita VB programa, HITNO!!!08.02.2006. u 13:58 - pre 179 meseci
Bilo je reči o tome kako se dobija serijski broj HDD.Neko je rekao da je ovaj kod prijavljivao grešku na 98-ici.Više o tome ovde:
http://www.elitesecurity.org/tema/43352

Moj savet:
Najbolje ti je da koristiš ascii kod od imena računara i još neki broj uz to,npr. neke brojeve iz serijskog broja,ascii vlasnika kopije itd.
ID se uglavnom sastoji od više informacija

Možeš da koristiš i Volume ID neke particije,ali je on različit za svaku particiju i može da se promeni.

Okačio sam ti primer uz poruku koji pokazuje kako se čita Volume ID neke particije.
Prikačeni fajlovi
 
Odgovor na temu

DMX

Član broj: 44350
Poruke: 122
*.SMIN.panline.net.



Profil

icon Re: Zastita VB programa, HITNO!!!23.03.2006. u 14:27 - pre 177 meseci
Ne znam koliko bi ti značilo, ali postoji OCX kontrola nslock 1.5 za VB6 koja generiše neki svoj broj, i pravi od programa trial verziju, tako da mora da se ukuca aktivacioni kod da bi program radio. I ako ga prebace na drugi komp opet program postaje trial i tako sve u krug.

[url]http://www.planetsourcecode.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!53333/lngWid!1/anyname.htm[/url]

I što je najbitnije, ova kontrola je besplatna.

[Ovu poruku je menjao mladenovicz dana 23.03.2006. u 15:51 GMT+1]
Da se ja pitam, ja bih ovuda proterao autobus.
 
Odgovor na temu

nd_genius
Jasko Nisic
Tuzla

Član broj: 19486
Poruke: 59
*.as3.sr.bih.net.ba.

Sajt: www.jasko-n.tk


Profil

icon Re: Zastita VB programa, HITNO!!!03.04.2006. u 12:58 - pre 177 meseci
Citat:
DMX: Ne znam koliko bi ti značilo, ali postoji OCX kontrola nslock 1.5 za VB6 koja generiše neki svoj broj, i pravi od programa trial verziju, tako da mora da se ukuca aktivacioni kod da bi program radio. I ako ga prebace na drugi komp opet program postaje trial i tako sve u krug.

[url]http://www.planetsourcecode.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!53333/lngWid!1/anyname.htm[/url]

I što je najbitnije, ova kontrola je besplatna.

[Ovu poruku je menjao mladenovicz dana 23.03.2006. u 15:51 GMT+1]


nisam uspio skinuti nikakvu OCX kontrolu, downloadujem zip fajl u kojem se nalazi samo neki folder i txt fajl... ako je neko vec skinuo, moze li postaviti kao attachment, posto ja nisam uspio, a ova mi kontrola treba... hvala unaprijed
 
Odgovor na temu

DMX

Član broj: 44350
Poruke: 122
*.SMIN.panline.net.



Profil

icon Re: Zastita VB programa, HITNO!!!03.04.2006. u 16:51 - pre 177 meseci
Sad sam i ja video, a odatle sam nekad skinuo.

Evo zakačio sam uz poruku, oko 100 Kb je OCX + Keygen + Primeri

Inače, imaš ispod onog linka, sa kog si probao da skineš, komentare drugih korisnika i dva linka za novije verzije.

Ja koristim ovu, i završava mi posao.



[Ovu poruku je menjao DMX dana 03.04.2006. u 17:54 GMT+1]

[Ovu poruku je menjao DMX dana 03.04.2006. u 17:56 GMT+1]
Da se ja pitam, ja bih ovuda proterao autobus.
Prikačeni fajlovi
 
Odgovor na temu

mpecanac
Miroslav Pećanac
Beograd

Član broj: 119423
Poruke: 15
*.smin.sezampro.yu.



Profil

icon Re: Zastita VB programa, HITNO!!!02.11.2006. u 21:37 - pre 170 meseci
Šta će ti serijski broj harda, kada se on svaki put menja posle formatiranja? A ako misliš na "fabrički serijski broj", koliko sam čitao do sada, tako nešto ne postoji.
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
*.gronet.co.yu.



+3 Profil

icon Re: Zastita VB programa, HITNO!!!08.11.2006. u 06:07 - pre 170 meseci
Ne postoji apsolutna zastita, sta god uradili neko ce teze a neko veoma lako ukloniti zastitu.
Obicno se uzima serijski broj CD i sifrira i trazi od korisnika da unese taj sifrirani kod, kada se nareze drugi CD ne radi zbog drugog serijskog broja CD. Ovo se izbegava sa programom CloneCd. Ako se trazi za instalaciju na hard ID i onda putem e-maila ili telefona vrati serijski broj ovo je moguce izbeci sa nekoliko instalacija na razlicitim racunarima istog programa sa istog CD gde se moze napraviti program crack koji razbija to sifriranje koje je obicno preko naredbe XOR.
rgdrajko
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
*.beobug.com.



+7 Profil

icon Re: Zastita VB programa, HITNO!!!08.11.2006. u 13:45 - pre 170 meseci
Ovo je funkcija za dobijanje serickog broja diska C:\ vraca ga kao string
Public Function getComputerID() As String
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName("C:\")))
getComputerID = d.SerialNumber
Set fso = Nothing
Set d = Nothing
End Function
Jednostavnije resene koje se vise koristi da se unlock kod generise od e-mail-a korisnika.
Pozdrav
Ovo je dodato zbog programera koji tek pocinju i nemaju dovoljno iskustva.
Gornji kod moze da se koristi i iz VB scripta.
Ukoliko ga koristite u VB 6.0 u Formi deklarisite funkciju kao Private a ako hocete da funkcija bude vidljiva u celom programu korictite je u modulu.
Tacno je ovo sto su drugi rekli da je softver tesko stiti ali treba znati da neke firme namerno (precutno) dopustaju da izvesan broj kopija bude krekovano zbog reklame. Ostali koji nisu dovoljno vesti ce kupiti program legalno.
Pozdrav

[Ovu poruku je menjao Eurora3D Team dana 09.11.2006. u 19:08 GMT+1]
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
*.vdial.verat.net.



+3 Profil

icon Re: Zastita VB programa, HITNO!!!09.11.2006. u 15:38 - pre 170 meseci
Prava zastita programa ne postoji. Potrebno je duze ili krace vreme da se zastita probije. Obicno se za zastitu koriste imena diskova, disketa, CD, sifrirani serijski brojevi disketa, CD, hard diskova, zastita koja trazi samo originalni CD, kao i datum instaliranja koji se upisuje u registre, ili se neka sifra upisuje u sam program.. Ako je vredno truda sve ovo se moze razbiti uz malo truda pravljenjem crack za generisanje sifre, dovoljno je isti program startovati na vise racunara i i onda uporedjivati sifre, ako program trazi izvorni CD onda koristiti neki program za virtuelni disk npr Deamon ili Virtual CD, bilo preko programa koji pre prvog startovanja trial programa snimi registre i nakon prvog startovanja trial programa uporedi koje registre menja taj trial program i sacuva ih u nekoj datoteci i nakog svakog startovanja programa upisuje prve vrednosti tog trial programa i onda izgleda kao da je taj program startovan prvi put. Ako je sifra upisana u sam program onda je dovoljno tu sifru podeliti drugima i kopirani program ce da radi...
U najgorem slucaju vam preostaje da program izmenite u asembleru ili da preko posebnih programa izvrsite obrnut postupak, da pretvorite exe program u izvorni kod nekog programskog jezika...
rgdrajko
 
Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.inecco.net.

Sajt: www.nsc.ba


+4 Profil

icon Re: Zastita VB programa, HITNO!!!09.11.2006. u 18:35 - pre 170 meseci
Mislim da su blankovi osrednje rješenje.
I ♥ ♀

Ovaj post je zlata vrijedan!
 
Odgovor na temu

Rollback
Goran Božinović
Bor

Član broj: 100881
Poruke: 65



+3 Profil

icon Re: Zastita VB programa, HITNO!!!10.11.2006. u 00:05 - pre 170 meseci
A koliko je dobro rešenje uzimati serijski broj mrežne kartice i kako doći do njega?
Svoje najlepše dane proveo sam noću.
 
Odgovor na temu

MaxC
Shabanland

Član broj: 85263
Poruke: 160
212.200.160.*

Sajt: www.pljuga.com


Profil

icon Re: Zastita VB programa, HITNO!!!10.11.2006. u 03:21 - pre 170 meseci
Solar 1.0
http://www.softpedia.com/get/P...rypters-Protectors/Solar.shtml

Freeware. Prilicno dobro osmisljen, jedino je help "kritican" ali bar postoji primjer (samo) za VB u sklopu instalacije.
 
Odgovor na temu

dejankol

Član broj: 116939
Poruke: 10
87.250.115.*



Profil

icon Re: Zastita VB programa, HITNO!!!14.11.2006. u 20:47 - pre 169 meseci
Mislim da je neozbiljno zaštitu vezati za bilo koji promjenjivi parametar u računaru (HDD, mrežna kartica???). Do sada mi se kao najbolje rješenje pokazalo kompajliranje programa za svakog kupca posebno, što daje veće mogućnosti zaštite (npr. naziv firme na svim štampanim stvarima se ne može promijeniti i sl...), a lako je izvodljivo kada program ima mali broj korisnika.

P.S. Ja bih presretan bio kada bi moj program neko crackovao. :D
 
Odgovor na temu

X-Cite
Goran Tadić
Mediacija, Tušmobil
Ljubljana

Član broj: 28706
Poruke: 625
...52.128.109.dc.telemach.net.

Sajt: www.baza-ukradenih-gsm.co..


Profil

icon Re: Zastita VB programa, HITNO!!!14.11.2006. u 21:06 - pre 169 meseci
Programi se crackuju, kada su koristni/upotrebljivi za širu publiku a ne za specifične korisnike kao što kažeš (mali broj instalacija).

Neznam ko bi uopšte pokušavao da ulaže trud i vrjeme, da crackuje program (kao što rekoh) od kojeg nema koristi šira publika

Vjeruj mi, da više koristi imaju oni koji prodaju svoj program po $19.90 i koji je crackovan ali uz to i potreban mnogim ljudima. Ima mnogo ljudi i firmi, koji su primorani da plate za upotrebu

To znači, da prodaja 1000 kopija takvoga programa donosi mnogo više nego tvoj od $500 prodan u 20 primjeraka i još “nemoguć” za crackovanje


Pozdrav
GoGy
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.co.yu.

Jabber: Marko_L@elitesecurity.org


+827 Profil

icon Re: Zastita VB programa, HITNO!!!16.11.2006. u 00:33 - pre 169 meseci
Citat:
ne znam ko bi uopšte pokušavao da ulaže trud i vrjeme, da crackuje program (kao što rekoh) od kojeg nema koristi šira publika

Pa zašto ne bi ulagao trud i vreme ako mu neko plati za to ? A ko bi platio za to ? Pa recimo onaj ko je naručio taj program. Deluje konfuzno ? :) Pa da objasnim... programe koji se rade po narudžbini možemo podeliti u dve grupe, one za koje se prodaje licenca za korišćenje za jedan ili više računara i one koji se prodaju u celini i zajedno sa source kodom prelaze u vlasništvo naručioca. Kako je ovo drugo višestruko skuplje, naručioci se u najvećem broju slučajeva opredeljuju za prvu varijantu, tj. ako im uopšte bude ponuđen izbor. Naime, pošto živimo gde živimo, najčešća je situacija da kupac uopšte ne zna da ima izbor, a programer mu to prećuti, pa nastaje problem, jer programer smatra da je prodao licencu i traži pare za svaki novi računar na koji se instalira program, a kupac smatra da je platio program i misli da ga programer potkrada, i naravno obojica su na neki način u pravu, a sa druge strane obojica greše (programer zato što nije naglasio da je u pitanju samo licenca za korišćenje, a kupac zato što se nije raspitao šta u stvari kupuje, licencu ili program, pa po defaultu smatra da je kupio ovo drugo). Nego, da ne širimo previše, zanemarićemo to, i uzećemo za primer da je sve regulisano ugovorom i da se sve zna. I sad programer prodaje licencu za korišćenje 200 evra po računaru. Naručiocu treba taj program na 50 računara. Njemu se više isplati da da nekome 500 evra da razbije zaštitu i da se program može nesmetano kopirati, nego da plati 50 X 200 = 10.000 evra za 50 licenci ili kompletan program. A taj isti kupac kad je već platio da se razbije program, zašto ne bi ponudio nekome ko se bavi istom delatnošću da mu proda taj softver za 400-500 evra, ovaj će da instalira kod sebe i proširi dalje itd., a ti kao programer, uzeo si 200 evra i to je sve. Dakle, svaki program je interesantan za crackovanje.
Sad malo bkonkretnije o temi, kao što je već rečenom nijedna softverska zaštita nije pouzdana. Čak ni vezivanje za serijski broj hard diska ili bilo čega drugog, ukoliko se uradi po sistemu If SerijskiBrojOk Then... Else... ne znači ništa, jer sve što haker treba da uradi jeste da obriše tu liniju koja radi proveru, a to i nije neki problem uraditi ako imaš odgovarajuće alate.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

[es] :: Visual Basic 6 :: Zastita VB programa, HITNO!!!

[ Pregleda: 4310 | Odgovora: 18 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.