نیاز به سورس serial gen

[__omid__]

با درود
سال جدید مبارک
دوستان گرامی نیاز به 1 سورس کد serial gen دارم.
که سریال سیستم طرف بده واسه اکتیو برنامه در vb6
لازم به ذکر هست: من از قسمت سی پی یو یکی دارم ولی مشکل اینجاس که تو بیشتر سیستم ها سریال یکی هست و این خیلی بده
کدی میخوام که از جاهای مختلف سریال بده که تو سیستم های مختلف کدهای مختلف بده . و بعد از عوض کردن ویندوز سریال عوض نشه
با احترام

[بهروز عباسی]

با درود
سال جدید مبارک
درود به شما دوست عزیز سال نو شما هم مبارک در این باره اینجـــــــــــا (http://barnamenevis.org/showthread.php?333038-%D9%82%D9%81%D9%84-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87)مفصل توضیح دادم نمونه کد هم گذاشتم

[__omid__]

درود به شما دوست عزیز سال نو شما هم مبارک در این باره اینجـــــــــــا (http://barnamenevis.org/showthread.php?333038-%D9%82%D9%81%D9%84-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87)مفصل توضیح دادم نمونه کد هم گذاشتم

با درود
دوست گرامی اون کد من درست کردم و با پیغام Activation code:0 روبرو شدم و این کد جالب نیست رو بعضی سیستم ها کار میده بعضی ها نه.
من کدی میخوام فقط سریال بده و از چند جای مختلف سیستم طرف باشه که رو بعضی سیستم ها یکی نباشه. مثلا کد سی پی یو نمونه کد 116e7ca18ad8d5d9eb52ca340806b464 این کد سی پی یو هست که حدود 6 نفر از 30 مشتری کدشون اینجوری هست.
امکان بیشتر کمک کنین!
با احترام

[بهروز عباسی]

دوست گرامی اون کد من درست کردم و با پیغام Activation code:0 روبرو شدم و این کد جالب نیست رو بعضی سیستم ها کار میده بعضی ها نه.
در این باره بگم که شما در قسمتی که قطعاتی رو برای بازیابی شماره سریال انتخاب میکنید باید قطعاتی رو انتخاب کنید که روی سیستم کاربر موجود باشد اون مثال یه نمونه ایستا و معیوب بود اگه بخواید از همون روش استفاده کنید اول باید سخت افزار سیستم هدف رو بدست بیاری بعد طبق لیست به دست امده اقدام به بازیابی سریالها کنی


مثلا کد سی پی یو نمونه کد 116e7ca18ad8d5d9eb52ca340806b464 این کد سی پی یو هست که حدود 6 نفر از 30 مشتری کدشون اینجوری هست.
شما باید با آگوریتمی خاص خودتون این سریال الزاماً واحد رو از بین مجموع سریالها(سریال هر قطعه ) انتخاب کنید
وسریال cpu یا هر قطعه دیگری به تنهای کافی نیست
بااین حال مشکل شما چیه

[بهروز عباسی]

در این باره بگم که شما در قسمتی که قطعاتی رو برای بازیابی شماره سریال انتخاب میکنید باید قطعاتی رو انتخاب کنید که روی سیستم کاربر موجود باشد اون مثال یه نمونه ایستا و معیوب بود اگه بخواید از همون روش استفاده کنید اول باید سخت افزار سیستم هدف رو بدست بیاری بعد طبق لیست به دست امده اقدام به بازیابی سریالها کنی


اگه این کار برات مشکله :لبخند:میتونی قطعاتی مثل RAM,CPU,H.D.D,Mainboard رو که وجودشون روی هر سیستم الزامیه :کف:رو انتخاب کنی و الگوریتمی پیچیده تر برای انتخاب سریال واحد سیستم از میان این سریال ها طراحی کنی

موفق باشی

[__omid__]

اگه این کار برات مشکله :لبخند:میتونی قطعاتی مثل RAM,CPU,H.D.D,Mainboard رو که وجودشون روی هر سیستم الزامیه :کف:رو انتخاب کنی و الگوریتمی پیچیده تر برای انتخاب سریال واحد سیستم از میان این سریال ها طراحی کنی

موفق باشی

با درود
تشکر که سری جواب میدید و شما نمونه کد یا سورس دارین که از این قسمت ها سریال در بیاره و برای من بفرستین.
با احترام

[Mr'Jamshidy]

این کد رو بررسی کن دوست من

و حتما قبل از پست جستجو کن

[__omid__]

این کد رو بررسی کن دوست من

و حتما قبل از پست جستجو کن

با درود
دوست گرامی این کاراییش خوب نیست .
و بعد از عوض کردن ویندوز سریال که میده عوض میشه.
با احترام

[__omid__]

UP1 :لبخندساده:

[__omid__]

با درود
UP 2

[بهروز عباسی]

با درود
UP 2

دوست عزیز منظورت از up1,up2 چیه؟

[بهروز عباسی]

با درود
دوست گرامی این کاراییش خوب نیست .
و بعد از عوض کردن ویندوز سریال که میده عوض میشه.
با احترام

من برنامه جناب Mr'Jamshidy (http://barnamenevis.org/member.php?43330-Mr-Jamshidy) رو ندیدم (vbندارم الان) اما اگه کدی که تولید میکنه بااستفاده از ویندوزه این طبیعی
برای بدست اوردن سریالی که با تغییرات نرم افزاری (تعویض ویندوز و ...) تغییر نکنه باید از سخت افزار سریال بگیری
چون به فرض اینکه ویندوز عوض بشه RAM,CPU,H.D.D,Mainboard اینا که عوض نمیشه

[__omid__]

با درود
منظور از اپ1 و 2 اینه که منتظر جواب هستم. ( در فروم های دیگه این کلمه به کار میره اینجا نمیدونم. )
سورس اقای Mr'Jamshidy رو دیدم این کد باید مقدار بدی تا 1 سریال تولید کنه که مورد استفاده نیست.:لبخندساده:
نمونه سورس هارد یا رم ندارین قرار بدین.
با احترام

[بهروز عباسی]

با درود
منظور از اپ1 و 2 اینه که منتظر جواب هستم. ( در فروم های دیگه این کلمه به کار میره اینجا نمیدونم. )درود به شما دوست عزیز
در باره اپ بگم که تاجای که من میدونم اگه بیخودی توی یه تاپیک پست بدی که تاپیک بالا بیاد خلاف قانون سایته

و شما چون باvb میخوای این برنامه رو بنویسی در باره WMI تحقیق کن کارت راه میفته

در مورد سورسی که گذاشتم از شما معذرت میخوام :اشتباه:چون سریال اون قطعه رو برنمی گردونه فقط اسم اونو برمی گردونه :اشتباه:و اون سریال رو براساس مجموع اسم های به دست امده برمیگدونه برای شماره سریال اگه چیزی گیر اوردم میذارم اینجا:لبخند:

[بهروز عباسی]

این سورس برای بدست آوردن شماره سریال یه درایوه (درایو C باشه بهتره همه سیستم ها دارن) نمیدونم با تغییر ویندوز عوض میشه یا نه
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, ByRef lpVolumeSerialNumber As Long, ByRef lpMaximumComponentLength As Long, ByRef lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
Dim root As String
Dim volume_name As String
Dim serial_number As Long
Dim max_component_length As Long
Dim file_system_flags As Long
Dim file_system_name As String
Dim pos As Integer
root = "C:\"

If GetVolumeInformation(root, vbNullString, Len(volume_name), _
serial_number, max_component_length, _
file_system_flags, _
file_system_name, Len(file_system_name)) = 0 _
Then
MsgBox ("Error getting volume information.")
Exit Sub
End If
MsgBox "Serial Namber :" + Format$(serial_number)
End Sub

[__omid__]

این سورس برای بدست آوردن شماره سریال یه درایوه (درایو C باشه بهتره همه سیستم ها دارن) نمیدونم با تغییر ویندوز عوض میشه یا نه
[/VB]

با درود
بله دوست گرامی این سورس با تغییر ویندوز سریال عوض میشه.
در مورد اپ1 و 2 هم نمیدونستم که خلاف این انجمن هست ولی ( این کا باعث میشه بیشتر توجه بشه به پست)
با احترام

[بهروز عباسی]

اینم یه برنامه کامل برای کد فعال سازی دانلود کن اگه خوب نبود بگو یکی دیگه بذارم
این با vb6 دانلود کن 84576


اگه vb.net بلدی و بدردت میخوره بازم هست

[بهروز عباسی]

دوست عزیز اینم یه کد که سریال سخت افزاری میده کدی که توی سیستم خودم داد توشه ببین فرق میکنه یا نه تابع اولی مال مادر برده توی سون خالی بود با ایکس پی چک کن

بقیه کا میکنند توی رویداد کامند1 هم کدی نوشتم که فضاهای خالی بین سریال هارو پاک کنه تا سریال سافو سوفی بدست بیاد

Rem coded by behrooz Abbasi
Public Function MBSerialNumber()
Dim objs As Object
Dim obj As Object
Dim wmi As Object
Dim procid
Set wmi = GetObject("WinMgmts:")
Set objs = wmi.InstancesOf("Win32_BaseBoard")

For Each obj In objs
procid = procid & obj.DeviceID
If procid < objs.Count Then procid = procid & ","
Next
MBSerialNumber = procid
procid = LTrim$(procid)
procid = RTrim$(procid)
MsgBox "Proc_id :" + procid
End Function

Function GetCpuID() As String
Dim wmi, obj, procid
Set wmi = GetObject("winmgmts:")
For Each obj In wmi.InstancesOf("Win32_Processor")
procid = procid + obj.ProcessorID
Next
GetCpuID = procid
End Function

Function NetworkAdapter() As String
Dim wmi, obj, procid
Set wmi = GetObject("winmgmts:")
For Each obj In wmi.InstancesOf("Win32_NetworkAdapter")
procid = procid + obj.DeviceID
Next
NetworkAdapter = procid
End Function
Function DiskDrive() As String
Dim wmi, obj, procid
Set wmi = GetObject("winmgmts:")
For Each obj In wmi.InstancesOf("Win32_DiskDrive")
procid = procid + obj.SerialNumber
Next
DiskDrive = procid
End Function
'================================================= ====================================
Private Sub Command1_Click()
Dim strA, strB As String
strA = (GetCpuID) + (NetworkAdapter) + (DiskDrive)
Text2 = strA
'Text2.Text =178BFBFF00060FB201234567891011121314151617 6RAC4MCP
For i = 0 To Len(strA)
strB = Replace(strA, " ", "")
Next
Text1.Text = strB
'Text1.Text=178BFBFF00060FB20123456789101112131415 16176RAC4MCP
End Sub

[__omid__]

با درود
کد اولی ریجستری هست و به کار من نمیاد.
کد دومی
این کدی که دادین ( بعد از عوض کردن ویندوز سریال عوض میشه یا نه )
نمونه کد: 0FEBFBFF000206A70123456789101213
با احترام

[__omid__]

با درود
راستی یادم رفت بگم کدی که قرار دادین سریال هارد دیسک نمیده
procid = procid + obj.SerialNumber
میشه چک کنین.

با احترام

[بهروز عباسی]

با درود
راستی یادم رفت بگم کدی که قرار دادین سریال هارد دیسک نمیده
procid = procid + obj.SerialNumber
میشه چک کنین.

با احترام

این تابع سریال cpu رو برمی گردونه
Function GetCpuID() As String
Dim wmi, obj, procid
Set wmi = GetObject("winmgmts:")
For Each obj In wmi.InstancesOf("Win32_Processor")
procid = procid + obj.ProcessorID
Next
GetCpuID = procid
End Function
این تابع سریال کارت شبکه :
Function NetworkAdapter() As String
Dim wmi, obj, procid
Set wmi = GetObject("winmgmts:")
For Each obj In wmi.InstancesOf("Win32_NetworkAdapter")
procid = procid + obj.DeviceID
Next
NetworkAdapter = procid
End Function
این تابع هم دیسک
Function DiskDrive() As String
Dim wmi, obj, procid
Set wmi = GetObject("winmgmts:")
For Each obj In wmi.InstancesOf("Win32_DiskDrive")
procid = procid + obj.SerialNumber
Next
DiskDrive = procid
End Function

نمیدونم چرا با ویندوز سون بعضی مقادیرو تهی برمی گردونه

یه توصیه اگه تونستی حتماً مک آدرس کارت شبکه هم توی برنامت دخیل کن چون خودش به تنهای به ادرس منحصر به فرد داره من توی سون نتونستم باWMI بدستش بیارم

در مورد چک کردن کد هارد دیسک من همه روچک کردن درست بودن

[__omid__]

با درود
جا تشکر داره واسه جواب سریتون
1 زحمتی بکشین سورس کد برای سریال هارد رو قرار بدین من هر کاری کردم انجام نشد
لطفا ضمینه کنین.
با احترام

[Mr'Jamshidy]

نمیدونم چرا با ویندوز سون بعضی مقادیرو تهی برمی گردونه


ویندوز 7 بدلیل داشتن امنیتی فراتر از XP که اگر دقت کنید کم و بیش به پیغام های اون برخورد کردید اجازه بعضی از کار ها رو به شما نمیده و جلو شما رو میگیره :چشمک:

[__omid__]

با درود
کد سریال باید با همه ویندوز ها همخوانی داشته باشه ( XP-7-2008-2003 ) (32 OR 64 Bit) برنامه که اکتیو میکنم هر مشتری 1 ویندوز داره و متفاوت هست.
من نتوانستم سریال هارد درست کنم اگه موفق شدین سورس ضمینه کنین
با احترام

[بهروز عباسی]

با درود
جا تشکر داره واسه جواب سریتون
1 زحمتی بکشین سورس کد برای سریال هارد رو قرار بدین من هر کاری کردم انجام نشد
لطفا ضمینه کنین.
با احترام

والا من فقط همون کدو برای هارد گیر آوردم شرمنده

[__omid__]

والا من فقط همون کدو برای هارد گیر آوردم شرمنده

با درود
اگه زحمتی نیست چیزی پیدا کردین ضمینه کنین.
سریال مادربورد چیزی دارین؟
با احترام

[بهروز عباسی]

باشه الان دارم کد میزنم و سرچ میکنم چیزی پیدا شد میذارم اما مشکل من با 7 هستش که جواب نمیده
این کد برا بدست آوردن mac ادرس کارت شبکه
Option Explicit

Const NCBASTAT As Long = &H33
Public Const NCBNAMSZ As Long = 16
Public Const HEAP_ZERO_MEMORY As Long = &H8
Public Const HEAP_GENERATE_EXCEPTIONS As Long = &H4
Public Const NCBRESET As Long = &H32
Public tmp, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7
Public Type NET_CONTROL_BLOCK 'NCB
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte
ncb_buffer As Long
ncb_length As Integer
ncb_callname As String * NCBNAMSZ
ncb_name As String * NCBNAMSZ
ncb_rto As Byte
ncb_sto As Byte
ncb_post As Long
ncb_lana_num As Byte
ncb_cmd_cplt As Byte
ncb_reserve(9) As Byte ' Reserved, must be 0
ncb_event As Long
End Type

Public Type ADAPTER_STATUS
adapter_address(5) As Byte
rev_major As Byte
reserved0 As Byte
adapter_type As Byte
rev_minor As Byte
duration As Integer
frmr_recv As Integer
frmr_xmit As Integer
iframe_recv_err As Integer
xmit_aborts As Integer
xmit_success As Long
recv_success As Long
iframe_xmit_err As Integer
recv_buff_unavail As Integer
t1_timeouts As Integer
ti_timeouts As Integer
Reserved1 As Long
free_ncbs As Integer
max_cfg_ncbs As Integer
max_ncbs As Integer
xmit_buf_unavail As Integer
max_dgram_size As Integer
pending_sess As Integer
max_cfg_sess As Integer
max_sess As Integer
max_sess_pkt_size As Integer
name_count As Integer
End Type

Public Type NAME_BUFFER
name As String * NCBNAMSZ

name_num As Integer
name_flags As Integer
End Type

Public Type ASTAT
adapt As ADAPTER_STATUS
NameBuff(30) As NAME_BUFFER
End Type

Public Declare Function Netbios Lib "netapi32.dll" _
(pncb As NET_CONTROL_BLOCK) As Byte

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(hpvDest As Any, ByVal _
hpvSource As Long, ByVal _
cbCopy As Long)

Public Declare Function GetProcessHeap Lib "kernel32" () As Long
Public Declare Function HeapAlloc Lib "kernel32" _
(ByVal hHeap As Long, ByVal dwFlags As Long, _
ByVal dwBytes As Long) As Long

Public Declare Function HeapFree Lib "kernel32" _
(ByVal hHeap As Long, _
ByVal dwFlags As Long, _
lpMem As Any) As Long

Public Function GetMACAddress() As String 'retrieve the MAC Address for the network controller
'installed, returning a formatted string

Dim tmp As String
Dim pASTAT As Long
Dim NCB As NET_CONTROL_BLOCK
Dim AST As ASTAT 'The IBM NetBIOS 3.0 specifications defines four basic
'NetBIOS environments under the NCBRESET command. Win32
'follows the OS/2 Dynamic Link Routine (DLR) environment.
'This means that the first NCB issued by an application
'must be a NCBRESET, with the exception of NCBENUM.
'The Windows NT implementation differs from the IBM
'NetBIOS 3.0 specifications in the NCB_CALLNAME field.
NCB.ncb_command = NCBRESET
Call Netbios(NCB)

'To get the Media Access Control (MAC) address for an
'ethernet adapter programmatically, use the Netbios()
'NCBASTAT command and provide a "*" as the name in the
'NCB.ncb_CallName field (in a 16-chr string).
NCB.ncb_callname = "* "
NCB.ncb_command = NCBASTAT

'For machines with multiple network adapters you need to
'enumerate the LANA numbers and perform the NCBASTAT
'command on each. Even when you have a single network
'adapter, it is a good idea to enumerate valid LANA numbers
'first and perform the NCBASTAT on one of the valid LANA
'numbers. It is considered bad programming to hardcode the
'LANA number to 0 (see the comments section below).
NCB.ncb_lana_num = 0
NCB.ncb_length = Len(AST)

pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS _
Or HEAP_ZERO_MEMORY, NCB.ncb_length)

If pASTAT = 0 Then
Debug.Print "memory allocation failed!"
Exit Function
End If

NCB.ncb_buffer = pASTAT
Call Netbios(NCB)

CopyMemory AST, NCB.ncb_buffer, Len(AST)

tmp1 = Format$(Hex(AST.adapt.adapter_address(0)), "00") & " "
tmp2 = Format$(Hex(AST.adapt.adapter_address(1)), "00") & " "
tmp3 = Format$(Hex(AST.adapt.adapter_address(2)), "00") & " "
tmp4 = Format$(Hex(AST.adapt.adapter_address(3)), "00") & " "
tmp5 = Format$(Hex(AST.adapt.adapter_address(4)), "00") & " "
tmp6 = Format$(Hex(AST.adapt.adapter_address(5)), "00")
tmp = tmp1 & " " & tmp2 & " " & tmp3 & " " & tmp4 & " " & tmp5 & " " & tmp6
HeapFree GetProcessHeap(), 0, pASTAT

GetMACAddress = tmp

End Function

[بهروز عباسی]

اینم یه کد دیگه برای هارد
خروجی سیستم خودم هم همراشه ببین تفاوت داره یا نه

Private Sub Form_Load()
Dim List, Msg, Obj
On Error Resume Next
Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_LogicalDisk")
For Each Object In List
Msg = Msg & "Disk Serial Number: " & Object.VolumeSerialNumber & vbCrLf
Next
MsgBox Msg
Unload Me
End Sub

خروجی سیستم من

Disk Serial Number:
Disk Serial Number: B880A192
Disk Serial Number: 3CDE92E2
Disk Serial Number: 3CDE94A4
Disk Serial Number: 3CDE971D
Disk Serial Number: 3CDE9989
Disk Serial Number: 78A7C390
Disk Serial Number:

[__omid__]

با درود
خیلی ممنون که سرچ کردین
برای مک لازم ندارم.
اما


اینم یه کد دیگه برای هارد
خروجی سیستم خودم هم همراشه ببین تفاوت داره یا نه

Private Sub Form_Load()
Dim List, Msg, Obj
On Error Resume Next
Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_LogicalDisk")
For Each Object In List
Msg = Msg & "Disk Serial Number: " & Object.VolumeSerialNumber & vbCrLf
Next
MsgBox Msg
Unload Me
End Sub

خروجی سیستم من

Disk Serial Number:
Disk Serial Number: B880A192
Disk Serial Number: 3CDE92E2
Disk Serial Number: 3CDE94A4
Disk Serial Number: 3CDE971D
Disk Serial Number: 3CDE9989
Disk Serial Number: 78A7C390
Disk Serial Number:

این کد هم با تغییر ویندوز سریال عوض میشه تست زدم. :لبخند:
با احترام

[__omid__]

با درود
میخواستم ببینم سریالی برای مادربورد ندارید قرار بدین؟
یا هارد که برای من مشکل داشت کد قبلی.

و اقای sam7sam7 ایدی یاهو دارین پیغام خصوصی کنین؟ یا تلفن!
با احترام

[__omid__]

با درود
شرمنده از دوستان که تاپیک دوباری کشیدم بالا کارم خیلی گیره لطفا کمک کنین ممنون میشم
با احترام

[__omid__]

با درود
دوستان من همچنان منتظر کمک هایتان هستم:لبخندساده:
با احترام

[Hashemvp]

دوست عزیز هر کاری کنی بازم کرک میشه فقط میتونی کار کرکو سخت کنی مگر اینکه نیمی از برنامه رو توی اینترنت بذاری که مجبور بشه به اینترنت وصل بشه و اون موقع هر زمانی که خواستی میتونی چک کنی که برنماه ات دست کاری شده یا نه.

چون دستتشون به سورسی که توی نته نمیرسه مگر اینکه بیان سایت و هک کنن که اون کد ها رو بردارن.

موفق باشی این فقط نظر شخصی بنده بود

[__omid__]

با درود
شرمنده دوستان 1 مدت سایت برنامه نویسی گم کرده بودم :D
کسی نیست کمک کنه من هنوز سریال گربر میخوام
با احترام

[__omid__]

لطفا کمک کنین

[سید حمید حق پرست]

سلام دوست عزیز
فکر نکنم سورس باشه ( اگه هم باشه من ندیدم )
اینم بگم که درخواست سورس کامل خلاف قوانین میباشد

موفق باشید


یا علی (ع)

[بهروز عباسی]

دوست عزیز شرمنده دیرشد
این یه برنامه برای بدست آوردن شماره سریال هارد
86796

[بهروز عباسی]

اینم یه برنامه (بخشی از یک برنامه بزرگ) که شماره سریالی برای هر سیستم ارائه میده البته به همراه کد فعال سازی.
86797