Acte Auto Gratis

giv · April 10, 2015

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!

JIHAD · April 10, 2015

f. bine ca e mocaneala. felicitari pentru asta, dar ce legatura are cu programarea?

BiicuRoxana · June 20, 2015

Buna ziua, nu ma pot inregistra reversing.ro. Pana mi-am dat seama la ce se referea MD5, am incercat mai multe coduri si nu ma mai pot inregistra. Ma puteti ajuta, va rog frumos? Multumesc

Edited June 20, 2015 by BiicuRoxana

giv · June 21, 2015

@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 June 21, 2015 by giv

mundy. · June 24, 2015

Merci, chiar ca e genial programul

giv · June 29, 2015

Daca e cineva interesat de varianta PRO iata un link aici:

Login • Reversing Forum România

Edited July 6, 2015 by giv

wh1sp3r · July 6, 2015

cum ma loghez pe acel forum ?

giv · July 6, 2015

Te inregistrezi razpunzand la cateva intrebari elementare si apoi te prezinti.

Beneficiezi de toate facilitatile apoi.

Ca la orice forum.

Sir-Galahad · July 6, 2015

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

echo -n reversing.ro | md5sum -

giv · July 7, 2015

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.

Download Base64.MD5.SHA.tool.rar @ UppIT

P.S.

Sa fie .NET Framework 4 instalat.

Edited July 7, 2015 by giv

giv · September 1, 2015

Pentru cei interesati (pentru ca am avut solicitari multe) am facut un mic video despre aplicatia Acte Auto Pro:

Zippyshare.com - Video.rar

giv · September 10, 2015

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.

September 10, 2015

Cat costa varianta PRO?

giv · September 10, 2015

Sal.

500 lei.

Preturile sunt aici:

Acte auto PRO 2015 DEMO • Guest area • Reversing Forum România

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 September 10, 2015 by giv

ZeroDoi · September 10, 2015

un link pentru versiunea gratis ?

giv · September 10, 2015

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

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

https://rstforums.com/forum/62710-acte-auto-gratis-post412163.rst#post412163

Acte Auto Gratuit • Lansari de software • Reversing Forum România

Edited September 10, 2015 by giv

giv · September 17, 2015

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:

Acte Auto Pro - Solutie profesionala pentru birourile de acte auto - Urmatorul pass in business

Link pagina DEMO:

Versiunea demonstrativa

Edited September 30, 2015 by giv

RFR · September 18, 2015

Versiunea gratuita e depasita, nu am sa o mai actualizez, asa ca recomand versiunea ACTE AUTO PRO. Pt. birouri / firme pretul de achizitie se scoate din cativa clienti, nu cred ca e o problema, in plus e mult mai completa si usor de utilizat.

giv · July 15, 2016

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.

RFR · July 18, 2016

stii cea mai buna protectie e sa nu dai softul .... :))

giv · July 20, 2016

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 July 20, 2016 by giv

giv · December 27, 2016

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

Sign In

Acte Auto Gratis

Recommended Posts

giv

JIHAD

BiicuRoxana

giv

mundy.

giv

wh1sp3r

giv

Sir-Galahad

giv

giv

giv

J

giv

ZeroDoi

giv

giv

RFR

giv

RFR

giv

giv

Join the conversation

giv

giv

giv

Browse

Activity

Pages