Jump to content
giv

Acte Auto Gratis

Recommended Posts

E fita mare acolo, pe reversing, sunt 10 useri, da' valoare maxima. Nu vreau sa te superi, dar de cand faci bani, ai niste basini in cap, ba, give, ca mi-ai cumparat total commander, ca o fi, ca o pati.Vrei sa ajuti, ajuta, nu, nu si gata lasa-ne in coaiele noastre zbarcite ca suntem romani, nu toti suntem 'telectuali si facem zeci de milioane pe luna si luam masa in oras.

Salut amice. Eu iti multumesc pentru ca mi-ai raspuns in modul la care se vede.

Nu pot sa ma cobor la nivelul tau de exprimare dar iti dau totusi o replica.

Sa iti dau cateva raspunsuri care cred ca nu ii intereseaza pe ceilalti useri.

1. Nu sunt 10 useri. Sunt 189. In prealabil eu am mai sters 250 care erau total inactivi. Majoritatea sunt din afara nu din tara. Romanii vor decat sa se inregistreze sa ia softuri moka si au pretentia sa le faci si dupa placul lor apoi dispar. Banuiesc ca dintr'ala esti si tu dupa cum discuti.

2. Sa stii ca majoritatea userilor de acolo sunt profesionisti in domeniile lor. Deci da..AU VALOARE. Eu nu vreau si am mai discutat asta undeva sa am 150.000 useri. Nu asta e scopul. Vreau sa am 5 care sa stie sa faca ceva. In plus e forumul meu si cand mi se pune il inchid. E al meu fac ce vreau cu el. In principal l-am facut pentru MINE ca sa am un loc de discutii lejer cu alti cativa profesionisti. Evident nu ai acces la acele zone ale forumului deci eu spun ca tu vorbesti sa nu adormi si te bagi in discutii neintrebat.

Apropo de aceasta meteahna am un prieten din Serbia care spune ca la ei in popor este o vorba:

Numai magarul vorbeste atunci cand nu este intrebat.

3. DA. Am cumparat licenta in ultimul an la:

Total Commander

Winrar

Kaspersky AV

Wondershare Element

si multe alte softuri cu licente pana in 20 USD.

Si care e problema? Cumpar nu fur.

4. Daca fac bani e problema mea. Nu bag mana in buzunar la nimeni. Daca cer si mi se da inseamna ca merita. La restaurant te duci si comanzi mancare fara sa platesti? Eu nu cer bani pe ce pun la dispozitie pe site ci doar daca cineva vrea lucruri particulare care le fac "la comanda" si muncesc special pentru acea persoana. Mi se pare de bun simt sa negociezi munca ta. Am familie si ca sa faca anumite lucruri stau departe de copil.

Fa tu pe gratis. Eu te sustin.

5. Am publicat in caz ca nu stii o gramada de programe pentru diverse operatiuni de reversing cat si o serie de scripturi si solutii pentru softuri de protejare a executabilelor gen Enigma, Themida etc.

PE GRATIS

Deci nu am cerut nimic da?

Am pus si codul sursa la foarte multe sa ajut pe altii.

6. Basini in cap ai tu si se trage de la lipsa ta de educatie. Un om normal spune lucrurile in alt mod.

7. Eu nu vreau sa dau cu lingurita la nimeni..... daca ei nu sunt in stare sa faca un hash MD5 la un simplu cuvant inseamna ca nu au ce cauta acolo.

Astea sunt regulile MELE la site-ul MEU care le fac cum vreau EU?

Ai inteles?

8. Avand in vedere ca programul este moka o simpla intrebare si un raspuns ca sa iti faci cont cred ca e un lucru elementar. Nu te costa nimic. Decat sa gandesti 10 secunde. Multi nu vor.

9. Se plang o gramada ca nu e hasu-ul corect. Eu am facut azi cateva conturi de proba si merge brici. Numai ca trebuie sa citesti cu atentie ce scrie acolo cand te inregistrezi.

Daca nu te duce capul inseamna ca nu e de tine.

Macar pui mana pe carte si o sa vezi ca este extrem de simplu. Nimeni nu vrea. Vrea servita la "botu' calului".

Daca esti un om cu scaun la cap vino cu idei bune si o sa te ajut. Nu cu pretentii puneti un link direct ca nu pot sa fac un cont etc.... Adica noi care muncim luni la programe suntem un fel de pielea caprii care sa va dam voua userilor retarzi programe bune, moka si repede ca daca nu o luam la bot. Chiar ne credeti prosti.

10. Eu unul m-as fi asteptat la un pic de respect mai ales pentru ca xxl a muncit mult la programul auto sa faca toti la birourile de acte auto bani pe seama lui. Cred ca cea mai buna solutie ar fi sa il sterg de acolo ca sa nu mai fie motiv de disputa si pe viitor sa va faceti voi programele voastre.

O zi buna!

Link to comment
Share on other sites

@albastrel

Daca te-ai uita la ce e intre ghilimele si ce ai scris tu acolo ai vedea ca e diferenta.

@BiicuRoxana

Am vazut ca te-ai inregistrat. Bravo!

Pentru ceilalti...

Acest soft este inca din 2013 dezvoltat si s-ar putea sa nu mai fie actual.

Am dezvoltat un soft profesional pentru asa ceva insa nu dau detalii ca sa nu se considere reclama. Daca e cineva interesat sa ma intrebe in PM. Softul este comercial.

Si ca sa nu ziceti ca nu pun nimic legat de programare iata un cod VB2010 care l-am translatat (nu e al meu, eu doar l-am translatat sa fie compatibil Visual Basic 2010) din VB6 pentru verificare CNP si CUI si care este parte integranta din program.

 Public Function eValidCNP(ByVal cnp As String) As Boolean
Dim evalid As Boolean = False
Dim cnval As String = cnp
Dim cn0 As String = cnval.ToString.Substring(0, 1)
Dim cn1 As String = cnval.ToString.Substring(1, 1)
Dim cn2 As String = cnval.ToString.Substring(2, 1)
Dim cn3 As String = cnval.ToString.Substring(3, 1)
Dim cn4 As String = cnval.ToString.Substring(4, 1)
Dim cn5 As String = cnval.ToString.Substring(5, 1)
Dim cn6 As String = cnval.ToString.Substring(6, 1)
Dim cn7 As String = cnval.ToString.Substring(7, 1)
Dim cn8 As String = cnval.ToString.Substring(8, 1)
Dim cn9 As String = cnval.ToString.Substring(9, 1)
Dim cn10 As String = cnval.ToString.Substring(10, 1)
Dim cn11 As String = cnval.ToString.Substring(11, 1)
Dim cnval1 As Double = cn0 * 2
Dim cnval2 As Double = cn1 * 7
Dim cnval3 As Double = cn2 * 9
Dim cnval4 As Double = cn3 * 1
Dim cnval5 As Double = cn4 * 4
Dim cnval6 As Double = cn5 * 6
Dim cnval7 As Double = cn6 * 3
Dim cnval8 As Double = cn7 * 5
Dim cnval9 As Double = cn8 * 8
Dim cnval10 As Double = cn9 * 2
Dim cnval11 As Double = cn10 * 7
Dim cnval12 As Double = cn11 * 9
cnval = cnval1 + cnval2 + cnval3 + cnval4 + cnval5 + cnval6 + cnval7 + cnval8 + cnval9 + cnval10 + cnval11 + cnval12
Dim cnpcn As Double = cnval / 11
Dim cnpcon As Double = cnpcn
Dim cnc As String = Format(cnpcon, "0.00")
Dim cncon As String = cnc
Dim cncont As Array = cncon.ToCharArray
Dim cifra As String = ""
Dim cnpcontrolcifra As String = cncont(3) & cncont(4)
Dim cncccc As String = cncont(3)
Dim cnccc As Integer = cncccc
If cnpcontrolcifra = "10" Then
cifra = "1"
Else
If cncont(4) < "5" Then
cifra = cnccc
ElseIf cncont(4) >= "5" Then
cifra = cnccc + 1
End If
End If
If cnp.ToString.Substring(12, 1) <> cifra Then
evalid = False
MsgBox("CNP-ul nu este valid! Cifra de control neverificat?!")
ElseIf cnp.ToString.Substring(12, 1) = cifra Then
evalid = True
End If
Return evalid
End Function

Si:

Public Function IsValidCIF(ByVal CiF As String) As Boolean
IsValidCIF = False
Dim i As Integer
On Error GoTo Eroare
'****************************************
'Pas preliminar: Se testeaza daca codul respecta formatul unui cod CIF.
'Adica lungimea maxima sa fie de 10 cifre si sa contina doar caractere numerice.
If CiF = "" Then
IsValidCIF = False
Exit Function
End If
CiF = Replace(CiF, " ", "")
'****************************************
If Len(CiF) < 2 Then
IsValidCIF = False
Exit Function
End If
'****************************************
'- elimin caracterele de inceput RO sau altceva
For i = 0 To Len(CiF) - 1
If IsNumeric(Mid(CiF, i + 1, 1)) Then
CiF = Mid(CiF, i + 1)
GoTo sari
End If
Next i
sari:
'****************************************
'- verific fie maxim 10 caractere
If Len(CiF) > 10 Then
IsValidCIF = False
Exit Function
End If

'****************************************
'Pas 1: Se foloseste cheia de testare "753217532". Se inverseaza ordinea cifrelor codului
'CIF precum si a cheii de testare.
' Array gata inversat
Dim CheieTestare(8) As Integer
CheieTestare(0) = 2
CheieTestare(1) = 3
CheieTestare(2) = 5
CheieTestare(3) = 7
CheieTestare(4) = 1
CheieTestare(5) = 2
CheieTestare(6) = 3
CheieTestare(7) = 5
CheieTestare(8) = 7
'****************************************
' Array pentru CIF
' tot inversate
Dim CIFArray(10)
For i = 0 To Len(CiF) - 1
CIFArray(i) = Mid(CiF, Len(CiF) - (i), 1)
'MsgBox i & " -" & CIFArray(i)
Next i
'Pas 2: Se ignora prima cifra din codul CIF inversat (aceasta este cifra de control)
'si se inmulteste fiecare cifra cu cifra corespunzatoare din cheia de testare inversata.
Dim Total As Integer
Total = 0
For i = 1 To Len(CiF) - 1
Total = Total + (CIFArray(i) * CheieTestare(i - 1))
'MsgBox CIFArray(i) & " * " & CheieTestare(i - 1)
Next i
'Pas 3: Se aduna toate produsele obtinute. Suma rezultata se inmulteste cu 10 si
'produsul este impartit la 11. Cifra obtinuta, in urma operatiei MODULO 11 reprezita
'cifra de verificare. Daca in urma impartirii s-a obtinut restul 10 atunci
'cifra de verificare va fi 0.
Total = (Total * 10)
Dim Rezultat As Integer
Rezultat = Total Mod 11
If Rezultat = 10 Then
Rezultat = 0
End If
If Rezultat = CIFArray(0) Then
IsValidCIF = True
Else
IsValidCIF = False
End If
Erase CIFArray
Erase CheieTestare
Exit Function
Eroare:
IsValidCIF = False
End Function

Edited by giv
Link to comment
Share on other sites

Care plm e md5-ul de la raspuns ca de 1h ma chinui cu toate site-urile de la google si nici unul nu e bun :))

Iti trebuie creier nu google.

Voi sunteti dezumanizati. Nu mai ganditi. Gandesc masinile pentru voi.

Ce e asa greu sa faci un hash la un cuvant si sa il scrii cu litere mari?

Ai tot ce iti trebuie.

Uite. Iti pun la dispozitie o scula codata de mine care sa te ajute.

P.S.

Sa fie .NET Framework 4 instalat.

Edited by giv
Link to comment
Share on other sites

Am facut si o versiune DEMO pentru cei interesati.

http://www57.zippyshare.com/v/XN9VXzUC/file.html

Threadul original unde veti gasi noutati si update este aici:

http://reversing.ro/viewtopic.php?f=46&t=1583

Nu necesita inregistrare pentru repply sau download.

file.html

file.html

file.html

  • Upvote 1
Link to comment
Share on other sites

Sal.

500 lei.

Preturile sunt aici:

Mai multe detalii in PM ca nu vreau sa fac reclama aici sau sa fiu interpretat gresit dar multi mi-au cerut o versiune demo.

Limitarile versiunii DEMO sunt:

1. 5 formulare implementate.

2. Apare textul DEMO in anumite casete din formular.

3. Nu avem posibilitatea stocarii datelor (clienti si masini) si cautarii in baza de date.

4. Nu avem posibilitatea exportului si restaurarii bazei de date.

5. Nu avem acces la actualizari.

Am uitat sa precizez ca necesita .NET framework 4 instalat si Adobe Reader XI sau DC.

Edited by giv
Link to comment
Share on other sites

Eu nu am f?cut versiune gratis la softul curent (AAPRO2015).

Exista alt soft. Care este neactualizat din 2013 si proiectul abandonat.

Edited by giv
Link to comment
Share on other sites

Dupa mai mult timp versiunea GRATIS nu va mai fi disponibila spre descarcare.

Aceasta si-a atins scopul si dezvoltarea ei s-a stopat.

Multumim celor care au avut incredere in aceste programe.

In continuare va exista doar ACTE AUTO PRO care va fi mutat in casa noua pe:

Link pagina DEMO:

Edited by giv
Link to comment
Share on other sites

Scuze pentru revive.

Pentru cei interesati de acest domeniu.

O sa pun pe site saptamana viitoare o versiune TRIAL (complet functionala) a aplicatiei ACTE AUTO PRO pe o perioada de 30 de zile fara restrictii.

Revin cu un link.

  • Upvote 1
Link to comment
Share on other sites

Stiu dar pana la urma cei "interesati" vor "face rost" de el.

Am pus pe site o versiune TRIAL complet functionala pentru o perioada de 30 de zile.

Linkul direct este:

 

http://acterapide.ro/AAPRO.zip

 

Cei interesati pot testa programul fara restrictii pentru o perioada de 30 de zile si il pot distribui liber.

 

Inainte de a instala programul trebuie avute in vedere cerintele de sistem:

http://www.acterapide.ro/HTML/resurse.html

In special trebuie instalat MySql .NET connector 6.9.7 (http://www.acterapide.ro/mysql-connector-net-6.9.7.zip) si .NET framework 4.0 (https://www.microsoft.com/en-us/download/details.aspx?id=17851).

 

Edited by giv
  • Upvote 1
Link to comment
Share on other sites

Un mic update.

Pentru cei interesati.

Am marit la 45 de zile perioada de trial.

Kitul de instalare detecteaza si instaleaza daca are nevoie de ceva sau iti spune ce trebuie instalat.

Aplicatia este complet functionala in cele 45 de zile.

Daca tot am muncit la el o gramada va pun la dispozitie o functie adaptata de mine pentru transformarea cifrelor in litere. Utila la exprimarea automata a unui pret din cifre in cuvinte.

 

    Private Shared _ones As String() = {"zero", "una", "doua", "trei", "patru", "cinci", _
          "sase", "sapte", "opt", "noua"}

    Private Shared _teens As String() = {"zece", "unsprezece", "doisprezece", "treisprezece", "paisprezece", "cincisprezece", _
     "saisprezece", "saptesprezece", "optsprezece", "nouasprezece"}

    Private Shared _tens As String() = {"", "zece", "douazeci", "treizeci", "patruzeci", "cincizeci", _
     "saizeci", "saptezeci", "optzeci", "nouazeci"}

    ' US Nnumbering:
    Private Shared _thousands As String() = {"", "mii", "milion", "miliard", "triliard", "catralion"}
Public Shared Function cifrelalitere(ByVal value As Decimal) As String
        Dim digits As String, temp As String
        Dim showThousands As Boolean = False
        Dim allZeros As Boolean = True

        ' Use StringBuilder to build result
        Dim builder As New StringBuilder()
        ' Convert integer portion of value to string
        digits = CLng(value).ToString()
        ' Traverse characters in reverse order
        For i As Integer = digits.Length - 1 To 0 Step -1
            Dim ndigit As Integer = CInt(AscW(digits(i))) - CInt(AscW("0"c))

            Dim column As Integer = (digits.Length - (i + 1))

            ' Determine if ones, tens, or hundreds column
            Select Case column Mod 3
                Case 0
                    ' Ones position
                    showThousands = True
                    If i = 0 Then
                        ' First digit in number (last in loop)
                        temp = [String].Format("{0} ", _ones(ndigit))
                    ElseIf digits(i - 1) = "1"c Then
                        ' This digit is part of "teen" value
                        temp = [String].Format("{0} ", _teens(ndigit))
                        ' Skip tens position
                        i -= 1
                    ElseIf ndigit <> 0 Then
                        ' Any non-zero digit
                        temp = [String].Format("{0} ", _ones(ndigit))
                    Else
                        ' This digit is zero. If digit in tens and hundreds
                        ' column are also zero, don't show "thousands"
                        temp = [String].Empty
                        ' Test for non-zero digit in this grouping
                        If digits(i - 1) <> "0"c OrElse (i > 1 AndAlso digits(i - 2) <> "0"c) Then
                            showThousands = True
                        Else
                            showThousands = False
                        End If
                    End If

                    ' Show "thousands" if non-zero in grouping
                    If showThousands Then
                        If column > 0 Then
                            temp = [String].Format("{0}{1}{2}", temp, _thousands(column / 3), If(allZeros, " ", ", "))
                        End If
                        ' Indicate non-zero digit encountered
                        allZeros = False
                    End If
                    builder.Insert(0, temp)
                    Exit Select

                Case 1
                    ' Tens column
                    If ndigit > 0 Then
                        temp = [String].Format("{0}{1}", _tens(ndigit), If((digits(i + 1) <> "0"c), "-", " "))
                        builder.Insert(0, temp)
                    End If
                    Exit Select

                Case 2
                    ' Hundreds column
                    If ndigit > 0 Then
                        temp = [String].Format("{0} sute ", _ones(ndigit))
                        builder.Insert(0, temp)
                    End If
                    Exit Select
            End Select
        Next

        ' Append fractional portion/cents
        builder.AppendFormat("si {0:00} zecimi", (value - CLng(value)) * 100)

        ' Capitalize first letter
        Return [String].Format("{0}{1}", [Char].ToUpper(builder(0)), builder.ToString(1, builder.Length - 1))
    End Function

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...