<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type="text/xsl" href="https://www.dotnetzone.gr:443/cs/utility/FeedStylesheets/rss.xsl" media="screen"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/" xmlns:wfw="http://wellformedweb.org/CommentAPI/"><channel><title>Visual Basic 6.0</title><link>https://www.dotnetzone.gr:443/cs/forums/25/ShowForum.aspx</link><description>Θέματα που αφορούν την VB6 και COM components</description><dc:language>el</dc:language><generator>CommunityServer 2.1 SP3 (Build: 20423.1)</generator><item><title>Απ: Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη   ?</title><link>https://www.dotnetzone.gr:443/cs/forums/thread/78170.aspx</link><pubDate>Wed, 06 Sep 2017 01:07:21 GMT</pubDate><guid isPermaLink="false">2622095e-976c-431a-859e-16783ec7ecd7:78170</guid><dc:creator>gioklis</dc:creator><slash:comments>0</slash:comments><comments>https://www.dotnetzone.gr:443/cs/forums/thread/78170.aspx</comments><wfw:commentRss>https://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=25&amp;PostID=78170</wfw:commentRss><description>&lt;p class="MsoNormal"&gt;Αυτό προσπαθώ να καταλάβω, &amp;nbsp;πως μπορεί κάποιος να φτιάξει μια εφαρμογή&amp;nbsp; που να κάνει αυτό που περιέγραψα παραπάνω …
με ποια λογική … γιατί αν καταλάβω &amp;nbsp;το &lt;span&gt;trick&lt;/span&gt;&lt;span&gt; &lt;/span&gt;(λογική
που χρησιμοποιεί ) θα βρω και την λύση … &amp;nbsp;κάποιος να δώσει ένα παράδειγμα ?&lt;/p&gt;</description></item><item><title>Απ: Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη   ?</title><link>https://www.dotnetzone.gr:443/cs/forums/thread/78169.aspx</link><pubDate>Mon, 04 Sep 2017 02:57:51 GMT</pubDate><guid isPermaLink="false">2622095e-976c-431a-859e-16783ec7ecd7:78169</guid><dc:creator>gioklis</dc:creator><slash:comments>0</slash:comments><comments>https://www.dotnetzone.gr:443/cs/forums/thread/78169.aspx</comments><wfw:commentRss>https://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=25&amp;PostID=78169</wfw:commentRss><description>&lt;p class="MsoNormal"&gt;Έχω κατεβάσει το&amp;nbsp; &lt;span&gt;ollydb&lt;/span&gt;&lt;span&gt; &lt;/span&gt;&amp;nbsp;αλλα δεν ξέρω να το χειρίζομαι …. Και τίποτα …&amp;nbsp;&lt;/p&gt;</description></item><item><title>Απ: Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη   ?</title><link>https://www.dotnetzone.gr:443/cs/forums/thread/78147.aspx</link><pubDate>Tue, 25 Jul 2017 20:17:40 GMT</pubDate><guid isPermaLink="false">2622095e-976c-431a-859e-16783ec7ecd7:78147</guid><dc:creator>Main</dc:creator><slash:comments>0</slash:comments><comments>https://www.dotnetzone.gr:443/cs/forums/thread/78147.aspx</comments><wfw:commentRss>https://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=25&amp;PostID=78147</wfw:commentRss><description>&lt;p&gt;έχεις δοκιμάσει κάποιον Disassembler; &lt;/p&gt;&lt;p&gt;Υπάρχουν στο διαθέσιμοι web για την δουλεια που θέλεις.&amp;nbsp;&lt;/p&gt;</description></item><item><title>Απ: Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη   ?</title><link>https://www.dotnetzone.gr:443/cs/forums/thread/78146.aspx</link><pubDate>Sat, 22 Jul 2017 14:52:29 GMT</pubDate><guid isPermaLink="false">2622095e-976c-431a-859e-16783ec7ecd7:78146</guid><dc:creator>γιωργος μπακογιαννης</dc:creator><slash:comments>0</slash:comments><comments>https://www.dotnetzone.gr:443/cs/forums/thread/78146.aspx</comments><wfw:commentRss>https://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=25&amp;PostID=78146</wfw:commentRss><description>&lt;div&gt;&lt;span style="font-size:10pt;"&gt;Υπάρχουν αλγόριθμοι που είναι σχεδιασμένοι που για το ίδιο input, δίνουν κάθε φορά διαφορετικό output.&lt;/span&gt;&lt;/div&gt;&lt;div&gt;&lt;span style="font-size:10pt;"&gt;&amp;nbsp;&lt;/span&gt;&lt;/div&gt;&lt;div&gt;&lt;span style="font-size:10pt;"&gt;Ένας από αυτους είναι ο παρακάτω:&lt;/span&gt;&lt;/div&gt;&lt;div&gt;https://defuse.ca/blowfish.htm&lt;/div&gt;&lt;div&gt;&lt;br&gt;&lt;/div&gt;</description></item><item><title>Απ: Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη   ?</title><link>https://www.dotnetzone.gr:443/cs/forums/thread/78139.aspx</link><pubDate>Tue, 18 Jul 2017 21:12:47 GMT</pubDate><guid isPermaLink="false">2622095e-976c-431a-859e-16783ec7ecd7:78139</guid><dc:creator>c0d3punk</dc:creator><slash:comments>0</slash:comments><comments>https://www.dotnetzone.gr:443/cs/forums/thread/78139.aspx</comments><wfw:commentRss>https://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=25&amp;PostID=78139</wfw:commentRss><description>&lt;p&gt;Γιώργο θα σε μαλώσω που σκαλίζεις τέτοια πράγματα.... αλλά προγραμματιστικά έχει ενδιαφέρον.&amp;nbsp;&lt;/p&gt;&lt;p&gt;Από περιέργεια πως γνωρίζεις ότι ο 6-ψήφιος αριθμός έχει σχέση με τον HDD και όχι με την μητρική για παράδειγμα;&lt;/p&gt;&lt;p&gt;Ο κατασκευαστής το καταφέρνει μέσα από συγκεκριμένο μαθηματικό μοντέλο που ταυτίζει μεταξύ της εφαρμογής που πούλησε και της εφαρμογής που έχει στο γραφείο του, ώστε να κάνει την ταυτοποίηση έπειτα από επικοινωνία.&lt;/p&gt;&lt;p&gt;&amp;nbsp;&lt;/p&gt;</description></item><item><title>Απ: Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη   ?</title><link>https://www.dotnetzone.gr:443/cs/forums/thread/78121.aspx</link><pubDate>Wed, 21 Jun 2017 17:06:36 GMT</pubDate><guid isPermaLink="false">2622095e-976c-431a-859e-16783ec7ecd7:78121</guid><dc:creator>gioklis</dc:creator><slash:comments>0</slash:comments><comments>https://www.dotnetzone.gr:443/cs/forums/thread/78121.aspx</comments><wfw:commentRss>https://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=25&amp;PostID=78121</wfw:commentRss><description>&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Έχω ένα πρόβλημα τον τελευταίο καιρό στην πλατφόρμα&amp;nbsp;&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;VB&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;6 …….&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Και προσπαθώ να καταλάβω&amp;nbsp; πάνω σε ποια λογική εχει φτιαχτεί …&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Έχω μια εφαρμογή &amp;nbsp;(από κάποιον άλλο φτιαγμένη ) που προστατεύεται από κάποιο κωδικό … &amp;nbsp;αρχικά το&amp;nbsp;exe&amp;nbsp;&amp;nbsp;για να εγκατασταθεί εμφανίζει ένα πρώτο &amp;nbsp;κωδικό (6 ψηφίο , όπου καταλαβαίνω ότι φτιάχνεται από κάποιο σειριακό &amp;nbsp;αριθμό &amp;nbsp;του&amp;nbsp;HD&amp;nbsp;του&amp;nbsp;PC), όπου στην συνέχεια πρέπει &amp;nbsp;να επικοινωνήσεις με τον κατασκευαστή για να σου δώσει τον κωδικό ενεργοποίησης.&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Αυτό που δεν μπορώ να καταλάβω είναι ότι , όσες φορές προσπαθήσεις να κάνεις την εγκατάσταση&amp;nbsp; παίρνεις πάντα ένα διαφορετικό πρώτο κωδικό από την προηγούμενη φορά της προσπάθειας (υποθέτω ότι αυτό γίνεται γιατί συνδυάζεται ο σειριακός αριθμός του &amp;nbsp;PC&amp;nbsp;+ ένας &amp;nbsp;τυχαίος &amp;nbsp;αριθμό (rand)κάπως ετσι.&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Label1.Caption = Int((Rnd(Text1.Text)) * 899999 + 100000)&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Όπου&amp;nbsp;Text1.Text&amp;nbsp;= σειριακός αριθμός του&amp;nbsp;PC.&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Έχω το παρακάτω ερώτημα?&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Πως &amp;nbsp;μπορεί ο κατασκευαστής να δίνει τον κωδικό ενεργοποιήσεις αφού κάθε φορά&amp;nbsp; λαμβάνει ένα τυχαίο αριθμό , λόγο τις σχέσεις αυτής.&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;σειριακός αριθμός του&amp;nbsp;PC&amp;nbsp;+ τυχαίος αριθμός = (αποτέλεσμα) τυχαίος αριθμός&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;κάποιος που μπορεί να βοηθήσει?&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Ευχαριστώ&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;&lt;p style="margin:0px;padding:0px;font-family:helvetica, arial, sans-serif;font-size:14px;"&gt;&lt;span&gt;&lt;span style="font-family:tahoma, sans-serif;"&gt;&lt;span style="font-size:9pt;"&gt;Γιώργος&lt;/span&gt;&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;</description></item><item><title>Απ: Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη   ?</title><link>https://www.dotnetzone.gr:443/cs/forums/thread/78120.aspx</link><pubDate>Wed, 21 Jun 2017 17:04:50 GMT</pubDate><guid isPermaLink="false">2622095e-976c-431a-859e-16783ec7ecd7:78120</guid><dc:creator>gioklis</dc:creator><slash:comments>0</slash:comments><comments>https://www.dotnetzone.gr:443/cs/forums/thread/78120.aspx</comments><wfw:commentRss>https://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=25&amp;PostID=78120</wfw:commentRss><description>&lt;p class="MsoNormal"&gt;Σε &amp;nbsp;ευχαριστώ …&amp;nbsp;&lt;/p&gt;</description></item><item><title>Απ: Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη   ?</title><link>https://www.dotnetzone.gr:443/cs/forums/thread/77762.aspx</link><pubDate>Thu, 14 Jul 2016 23:53:07 GMT</pubDate><guid isPermaLink="false">2622095e-976c-431a-859e-16783ec7ecd7:77762</guid><dc:creator>manosB</dc:creator><slash:comments>0</slash:comments><comments>https://www.dotnetzone.gr:443/cs/forums/thread/77762.aspx</comments><wfw:commentRss>https://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=25&amp;PostID=77762</wfw:commentRss><description>&lt;p&gt;To πήρα από εδώ&amp;nbsp;http://www.access-programmers.co.uk/forums/showthread.php?t=216672&lt;/p&gt;&lt;p&gt;και το δοκίμασα σε access 2010 με win 7 64bit. Δεν έχω περιβάλλον vb6 (εδώ και 10+ χρόνια) να το δοκιμάσω αλλά πιστεύω ότι δουλεύει και σε αυτό!&lt;/p&gt;&lt;p&gt;&lt;br&gt;&lt;/p&gt;&lt;p&gt;Private Sub Command0_Click()&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; Dim myWMI As Object, myObj As Object, Itm&lt;/p&gt;&lt;p&gt;&lt;br&gt;&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; Set myWMI = GetObject("winmgmts:\\.\root\cimv2")&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; Set myObj = myWMI.ExecQuery("SELECT * FROM " &amp;amp; _&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;"Win32_NetworkAdapterConfiguration " &amp;amp; _&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;"WHERE IPEnabled = True")&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; For Each Itm In myObj&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Debug.Print Itm.IPAddress(0)&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Debug.Print Itm.MACAddress&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Exit For&lt;/p&gt;&lt;p&gt;&amp;nbsp; &amp;nbsp; Next&lt;/p&gt;&lt;p&gt;End Sub&lt;/p&gt;&lt;div&gt;&lt;br&gt;&lt;/div&gt;</description></item><item><title>Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη   ?</title><link>https://www.dotnetzone.gr:443/cs/forums/thread/77758.aspx</link><pubDate>Sat, 09 Jul 2016 19:25:47 GMT</pubDate><guid isPermaLink="false">2622095e-976c-431a-859e-16783ec7ecd7:77758</guid><dc:creator>gioklis</dc:creator><slash:comments>0</slash:comments><comments>https://www.dotnetzone.gr:443/cs/forums/thread/77758.aspx</comments><wfw:commentRss>https://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=25&amp;PostID=77758</wfw:commentRss><description>&lt;p class="MsoNormal"&gt;Γνωρίζει κάποιος … αν υπάρχει εντολή σε &lt;span&gt;VB&lt;/span&gt;6,&amp;nbsp;
να μπορώ να &amp;nbsp;εμφανίσω σε ένα &amp;nbsp;&lt;span&gt;text&lt;/span&gt;&lt;span&gt; &lt;/span&gt;&lt;span&gt;box&lt;/span&gt;&lt;span&gt; &amp;nbsp;&lt;/span&gt;την
mac address του υπολογιστη &amp;nbsp;που είμαι συνδεδεμένος
&lt;/p&gt;

&lt;p class="MsoNormal"&gt;Και πως συντάσσεται ?&lt;/p&gt;

&lt;p class="MsoNormal"&gt;&lt;o:p&gt;&amp;nbsp;&lt;/o:p&gt;&lt;/p&gt;

&lt;p class="MsoNormal"&gt;Ευχαριστώ.&lt;/p&gt;</description></item></channel></rss>